简单问题 请高手赐教

[00132006]

Private Sub CmdAward_Click()
Randomize
ImgMoney.Visible = False
LblNum1.Caption = Int(Rnd * 10)
LblNum2.Caption = Int(Rnd * 10)
LblNum3.Caption = Int(Rnd * 10)
If LblNum1.Caption = "6" Or LblNum2.Caption = "6" Or LblNum3.Caption = "6" Then
ImgMoney.Visible = True
End If
End Sub
Private Sub CmdQuit_Click()
End
End Sub

程序为两个按钮 按1号按钮 产生一组随机数, 按2号按钮 退出程序

请问: 如何编写另外两个按钮 实现:按钮3 连续产生随机数 按钮4 停止 谢谢!!

[熊孩子开学喽]

dim StopDo as boolean
Private Sub CmdAward_Click()
...
End Sub
Private Sub CmdQuit_Click()
End
End Sub

Private sub Cmd1_click()
StopDo=False
Do while not StopDo
CmdAward_Click
doevents
loop
end sub

Private sub Cmd2_click()
StopDo=True
end sub

就是这样

[junki]

你这个好像是在摇奖一样

[熊孩子开学喽]

估计就是摇奖用的

[jsjjzzx]

还摇奖呢！在VB里面随机数在一定数量（次数），会发生重复现象。就是在一定次数以后，随机数的发生是有规律的，不信你试试，次数记不得了，试过！

[UltraBejing]

好像没那么简单,呵呵.