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
仅代表个人观点，不喜勿喷，谢谢。

Answer 3

首先在窗体上建立一个timer 控件 ，然后把他的interval 属性改为1000。再建立一个text 控件用与显示结果。
把 Timer1_Timer() 事件中改为以下代码：
Static Sub Timer1_Timer()
dim sum As Integer
Label1.Caption = Int(Rnd * 10)
sum = sum + Val(Label1.Caption)
Text1.Text = sum

Answer 4

Private Sub Timer1_Timer()
Static sum As Integer
Label1.Caption = Int(Rnd * 10)
sum = sum + Val(Label1.Caption)
Text1.Text = sum
End Sub