vb中timer的使用

来源：百度知道 编辑：UC知道 时间：2024/05/12 17:14:59
我想用两个timer,第一个timer事件中随机循环出一个数n,再把n赋给第二个timer的interval中,让第二个中的事件n秒执行一次.
请大家帮帮忙啊.谢谢.
interval中能接收变量马？
如果interval不能接收变量的话怎么实现我想要的结果？

能接受变量:

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
Timer2.Enabled = True
End Sub

Private Sub Timer1_Timer()
n=Int(Rnd * 1000)
Timer2.Interval = n
'或是直接 Timer2.Interval = Int(Rnd * 1000)
End Sub

Private Sub Timer2_Timer()
'正常的timer需要实现的功能
End Sub