vb在标签中模拟显示数字1到6循环滚动，点击按钮随机生成1到6的任意结果在标签上显示出来

vb在标签中模拟显示数字1到6循环滚动，点击按钮随机生成1到6的任意结果在标签上显示出来

试编写代码如下：
Dim Num As Integer

Private Sub Command1_Click()
    Randomize
    a = Int(Rnd * (6) + 1)
    Label2.Caption = a
End Sub

Private Sub Form_Initialize()
    Num = 1
End Sub

Private Sub Timer1_Timer()
    Num = Num + 1
    If Num > 6 Then Num = 1
    Label1.Caption = Num
End Sub运行截图：

有几点提示的：

代码中，显示数字1到6循环滚动，是数字 1 到 6 的变动。
代码中，使用了2个 Label ，如果只使用1个 Label，则需要停止 Timer1.

追问可是没有数字滚动啊

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息