用vb设计一个随即抽取幸运数字的程序,单击"开始"按钮,在文本框中随机产生7为数字,并不断滚动.单击"暂停"按钮,文本框内停止翻滚.单击"退出"关闭窗体.
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/30 11:06:59
![用vb设计一个随即抽取幸运数字的程序,单击](/uploads/image/z/11492706-66-6.jpg?t=%E7%94%A8vb%E8%AE%BE%E8%AE%A1%E4%B8%80%E4%B8%AA%E9%9A%8F%E5%8D%B3%E6%8A%BD%E5%8F%96%E5%B9%B8%E8%BF%90%E6%95%B0%E5%AD%97%E7%9A%84%E7%A8%8B%E5%BA%8F%2C%E5%8D%95%E5%87%BB%22%E5%BC%80%E5%A7%8B%22%E6%8C%89%E9%92%AE%2C%E5%9C%A8%E6%96%87%E6%9C%AC%E6%A1%86%E4%B8%AD%E9%9A%8F%E6%9C%BA%E4%BA%A7%E7%94%9F7%E4%B8%BA%E6%95%B0%E5%AD%97%2C%E5%B9%B6%E4%B8%8D%E6%96%AD%E6%BB%9A%E5%8A%A8.%E5%8D%95%E5%87%BB%22%E6%9A%82%E5%81%9C%22%E6%8C%89%E9%92%AE%2C%E6%96%87%E6%9C%AC%E6%A1%86%E5%86%85%E5%81%9C%E6%AD%A2%E7%BF%BB%E6%BB%9A.%E5%8D%95%E5%87%BB%22%E9%80%80%E5%87%BA%22%E5%85%B3%E9%97%AD%E7%AA%97%E4%BD%93.)
用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
运行一下,一个幸运数字程序新鲜出炉