关于随机数在Text1中滚动

[simon505]

有6个Text1
点击开始 想让这六个Text1分别都从1-9滚动显示数字

停止
就取得一个六位的数

[zdingyun]

Option Explicit
    Dim flag As Boolean
Private Sub Command1_Click()
    If flag Then
        Timer1.Enabled = False
        Command1.Caption = "Open"
    Else
        Timer1.Enabled = True
        Command1.Caption = "Close"
    End If
    flag = Not flag
End Sub

Private Sub Form_Load()
    Timer1.Interval = 50
    Timer1.Enabled = False
    Command1.Caption = "Open"
End Sub

Private Sub Timer1_Timer()
    Dim MyValue
    Randomize   ' 对随机数生成器做初始化的动作。
    MyValue = Int(1000000 * (Rnd) + 1)
    Text1(0) = Mid(MyValue, 1, 1)
    Text1(1) = Mid(MyValue, 2, 1)
    Text1(2) = Mid(MyValue, 3, 1)
    Text1(3) = Mid(MyValue, 4, 1)
    Text1(4) = Mid(MyValue, 5, 1)
    Text1(5) = Mid(MyValue, 6, 1)
End Sub

[zdingyun]

Private Sub Timer1_Timer()
    Randomize (1)
    Text1(0) = Int((9 * Rnd) + 1)
    Text1(1) = Int((9 * Rnd) + 1)
    Text1(2) = Int((9 * Rnd) + 1)
    Text1(3) = Int((9 * Rnd) + 1)
    Text1(4) = Int((9 * Rnd) + 1)
    Text1(5) = Int((9 * Rnd) + 1)
End Sub

[simon505]

有什么区别呢？

[simon505]

这是一个显示效果

再问一个问题

如何从数据库中取得停止滚动后的数字呢

就跟抽奖差不多

[zdingyun]

[Quote=引用 3 楼 simon505 的回复:]
有什么区别呢？
[/Quote]
前一个0-9
后一个1-9