Question

VB让程序每隔一段时间改触发一次事件

比如我隔5秒，一个文本框 输出 一个随机数。

Answer 1

Private Sub Form_Load()
Randomize '随机种子有了它才能随机
Form1.AutoRedraw = True '能print出来
Timer1.Enabled = True '控件响应
Timer1.Interval = 5000 '每隔5秒更新
End Sub
Private Sub Timer1_Timer()
Dim a As Integer
a = Rnd() * 10 '随机0-9
Print a
End Sub

Answer 2

新建一个窗体,画上一个text1 和一个timer ,直接添加以下代码 ,按F5执行

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Text1 = Int(Rnd * 100)
End Sub

Answer 3

用个timer将timer的interval设置为5000，在timer的事件中写代码更新文本框中的值