vb 帮我看看这段码

来源:百度知道 编辑:UC知道 时间:2024/05/27 16:44:24
Dim NN As Integer
Private Sub Command1_Click()
Label1.Caption = Int(Text1.Text * Rnd + 1)
Timer1.Interval = 100
End Sub

Private Sub Command2_Click()
Label1.Caption = Int(Text1.Text * Rnd + 1)
Timer2.Interval = 1000
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
SendKeys "{ENTER}"
End Sub

Private Sub Timer2_Timer()
If NN < 3 Then
NN = NN + 1
SendKeys "{ENTER}"
Debug.Print NN,
'End
End If
Timer1.Enabled = False
End Sub

Command1停左之后,之后再恢复,要加什麼
第1次按完 Command2停止之后再恢复Command1的正常运作,

没看明白。。
发的什么程序啊,害我电脑没响应了。。。

你定义的NN变量不对,用在Timer控件里的计数变量应为局部静态变量,用private定义它。

什么意思