笔记本风扇加油脂:如何用VB实现每隔一秒在label里出现一个0到9的随机数

来源：百度文库编辑：高考问答时间：2024/04/25 17:09:13

如题：
如何用VB实现每隔一秒在label里出现一个0到9的随机数
再把它们加起来

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

首先在窗体上建立一个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

如何用VB实现每隔一秒在label里出现一个0到9的随机数如何用VB实现每隔一秒在label里出现一个0到9的随机数如何用VB实现 vb timer 怎样让label在一秒变换两种形式如何用VB实现人机对话如何用VB在XP下实现屏蔽任务管理器如何用VB 实现远程关机呢如何用VB实现shift键多选数据结构如何用VB编程实现如何用VB实现直接发送邮件？