圣杯战争官方小说:如何用VB实现每隔一秒在label里出现一个0到9的随机数

来源：百度文库编辑：中科新闻网时间：2024/05/12 05:53:55

如题：
如何用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实现直接发送邮件？