Question

用vb设计一个随即抽取幸运数字的程序,单击"开始"按钮,在文本框中随机产生7为数

用vb设计一个随即抽取幸运数字的程序,单击"开始"按钮,在文本框中随机产生7为数字,并不断滚动.单击"暂停"按钮,文本框内停止翻滚.单击"退出"关闭窗体.

Answer 1

创建一个VB工程，在窗体上放置一个文本输入框text1，一个标签Label1，三个按钮，名称分别为
Command1 “开始”
Command2 “暂停”
Command3 “退出”
再加入一个定时器timer1，Interval属性设置为2000ms

双击开始按钮，添加下面代码
Private Sub Command1_Click()
Dim a As Long
a = Int(Rnd * 9000000 + 1000000)
Text1 = a
Timer1.Enabled = True
End Sub

双击暂停按钮，添加下面代码
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

双击退出按钮，添加下面代码
Private Sub Command3_Click()
Call Command2_Click
End
End Sub

双击窗体，添加下面代码
Private Sub Form_Load()
Randomize Timer
End Sub

双击定时器，添加下面代码
Private Sub Timer1_Timer()
Dim a As Long
a = Int(Rnd * 9000000 + 1000000)
Text1 = a
End Sub

运行一下，一个幸运数字程序新鲜出炉