用vb设计一个随即抽取幸运数字的程序,单击"开始"按钮,在文本框中随机产生7为数字,并不断滚动.单击"暂停"按钮,文本框内停止翻滚.单击"退出"关闭窗体.
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/22 11:15:42
用vb设计一个随即抽取幸运数字的程序,单击"开始"按钮,在文本框中随机产生7为数字,并不断滚动.单击"暂停"按钮,文本框内停止翻滚.单击"退出"关闭窗体.
用vb设计一个随即抽取幸运数字的程序,单击"开始"按钮,在文本框中随机产生7为数字,并不断滚动.单击"暂停"按钮,文本框内停止翻滚.单击"退出"关闭窗体.
用vb设计一个随即抽取幸运数字的程序,单击"开始"按钮,在文本框中随机产生7为数字,并不断滚动.单击"暂停"按钮,文本框内停止翻滚.单击"退出"关闭窗体.
创建一个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
运行一下,一个幸运数字程序新鲜出炉