Question

如何用VB实现每隔一秒在label里出现一个0到9的随机数

如题：：
如何用VB实现每隔一秒在label里出现一个0到9的随机数

Answer 1

打开VB，在窗体里添加Label1和时间控件Timer1,双击窗体在代码框中输入：

Private Sub Form_Load()
Label1.Caption = 0
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Dim strRnd
Randomize
strRnd = 10 * Rnd
Label1.Caption = Int(strRnd)
End Sub

F5运行，察看

Answer 2

Timer1的Interval设为1000,代码如下:
Private Sub Timer1_Timer()
Randomize
Label1.Caption = Int(Rnd * 10)
End Sub