求VB随机数产生代码，要求产生1—10，而且1-10在窗口滚动！！急！！！！

来源：百度知道 编辑：UC知道 时间：2024/06/30 14:51:44
求VB随机数产生代码，要求产生1—10，而且1-10在窗口滚动！！按开始滚动，按停止产生数。
谢谢！！！急！！！！

Option Explicit

Private isLoop As Boolean

Private Sub Command1_Click()
isLoop = True

Randomize
While isLoop

Label1.Caption = Int(Rnd * 10 + 1)
DoEvents
Wend
End Sub

Private Sub Command2_Click()
isLoop = False
End Sub

Private Sub Form_Load()
isLoop = False

Command1.Caption = "开始"
Command2.Caption = "停止"
End Sub

需要一个label控件和两个cmmand控件