Question

使用Excel VBA，对窗体中的一个文本框控件，如何可以不断滚动两位数字，就像抽签似的？谢谢！

Answer 1

flag = True '初始化中断变量。当中断变量为真时开始循环

Do While flag
DoEvents '释放程序控制权，允许执行其它事件。
TextBox1 = 10 + Int(Rnd * 90) '文本框动态显示10到99
Loop

PS：如要中断循环，可通过其他程序改变flag为False

Answer 2

1.建立文本框控件TextBox1

2.建立两个模块
Sub text_box()
Application.OnTime TimeValue(Now()) + TimeValue("00:00:01"), "text_box1"
End Sub
Sub text_box1()S
heet1.TextBox1.Text = Round(Rnd() * 90 + 10, 0)
text_box
End Sub

3.在Workbook_Open事件中输入
Private Sub Workbook_Open()
text_box
End Sub