close
Private Sub Command1_Click()
Timer1.Interval = 0
End Sub
Private Sub Command2_Click()
Timer2.Interval = 0
End Sub
Private Sub Command3_Click()
Timer3.Interval = 0
If Frame1.Caption = Frame2.Caption Or Frame2.Caption = Frame3.Caption Or Frame1.Caption = Frame3.Caption Then
Label1.Caption = "恭喜你"
Else
Label1.Caption = "悲哀你"
End If
End Sub
Private Sub Command4_Click()
Timer1.Interval = 1000
Timer2.Interval = 1000
Timer3.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Frame1.Caption = Int(Rnd * 10)
End Sub
Private Sub Timer2_Timer()
Frame2.Caption = Int(Rnd * 10)
End Sub
Private Sub Timer3_Timer()
Frame3.Caption = Int(Rnd * 10)
End Sub
Timer1.Interval = 0
End Sub
Private Sub Command2_Click()
Timer2.Interval = 0
End Sub
Private Sub Command3_Click()
Timer3.Interval = 0
If Frame1.Caption = Frame2.Caption Or Frame2.Caption = Frame3.Caption Or Frame1.Caption = Frame3.Caption Then
Label1.Caption = "恭喜你"
Else
Label1.Caption = "悲哀你"
End If
End Sub
Private Sub Command4_Click()
Timer1.Interval = 1000
Timer2.Interval = 1000
Timer3.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Frame1.Caption = Int(Rnd * 10)
End Sub
Private Sub Timer2_Timer()
Frame2.Caption = Int(Rnd * 10)
End Sub
Private Sub Timer3_Timer()
Frame3.Caption = Int(Rnd * 10)
End Sub
全站熱搜
留言列表