Question

用vb做一段程序，点一个“执行按键”开始运行，每隔5秒执行一次，点另一个“结束按键”结束。

急，在线等，谢谢。

Answer 1

Private Sub Command1_Click()   '执行按键
Timer1.Interval = 5000
Timer1.Enabled = True
Timer1_Timer
End Sub

Private Sub Command2_Click()   '结束按键
Timer1.Enabled = False
Me.Cls
Print "程序运行结束"
End Sub

Private Sub Timer1_Timer()
Static x As Long
x = x + 1
Me.Cls
Print "程序正在运行……" & x
'要执行的程序放在这里
End Sub

上述代码涉及三个控件：Command1、Command2、Timer1