Question

急 求懂VB程序的 帮我 编写以下程序 谢谢 是电子摇奖机的 一个程序

功能要求 设计一个电脑抽奖程序 单击“开始”按钮 “开始”按钮的 caption 属性变为 “停止” 界面上方的6个按钮上开始不断随机显示0～9间的数字 单击“停止”按钮 数字显示停止 在标签上显示获奖号码序列
晕 哥哥姐姐帮帮忙啊 我最讨厌编程啦

Answer 1

添加一个Command控件，取名：comm
添加一个Label控件，取名：Lab
添加一个Timer控件,取名：Timer1,每200毫秒执行一次。

Private sub timer1_timer()
Lab.caption = rnd() * 100
end sub

Private sub command1_click()
if comm.caption = "开始" then
comm.caption = "停止"
print lab.caption
else
comm.caption = "开始"
end if
end sub

Answer 2

command1改名为c1,记得把计时器控件（timer1)拉到窗体里interval=100

Private Sub c1_Click()
If c1.Caption = "开始" Then
c1.Caption = "停止"
Else
c1.Caption = "开始"
End If
If c1.Caption = "停止" Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If

End Sub

Private Sub Form_Load()
Timer1.Enabled = False
c1.Caption = "开始"
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Int(Rnd() * 10)
Label2.Caption = Int(Rnd() * 10)
Label3.Caption = Int(Rnd() * 10)
Label4.Caption = Int(Rnd() * 10)
Label5.Caption = Int(Rnd() * 10)
Label6.Caption = Int(Rnd() * 10)

End Sub

Answer 3

又是作业，平时认真点