Question

一个关于抽奖游戏的VB小程序

要求模仿选号抽奖方式进行游戏。程序运行中，用户先输入所选的号码，号码范围是1-10，单击“开始”按钮进行摇奖，下方开号文本框内数字将会不停滚动，知道单击“停止”按钮。此时将会对摇出的号码与用户所选的号码进行比较，通过消息对话框告诉用户是否中奖。
请帮帮我，给出具体的操作步骤，以及程序代码。

Answer 1

第一步，在界面上放三个按钮、一个标签、一个计时器。

第二步，把下面的代码复制过去。
Dim x As Integer, y As Integer

Private Sub Command1_Click()
Do
x = Val(InputBox("请输入你选择的号码（1~10）"))
If x < 1 Or x > 10 Then
MsgBox "选号范围是1到10，看看你选了什么呀", vbCritical
Else
Exit Do
End If
Loop
Command1.Visible = False
Command2.Visible = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = True
Command2.Visible = False
Command3.Visible = True
End Sub

Private Sub Command3_Click()
Timer1.Enabled = False
Command3.Visible = False
Command4.Visible = True
信息 = "你选的号码是" & x & vbCrLf & "本期中奖号码是" & y
If x = y Then
信息 = 信息 & vbCrLf & "恭喜你，中奖了。"
Else
信息 = 信息 & vbCrLf & "遗憾，你没有中奖。"
End If
MsgBox 信息
End Sub

Private Sub Command4_Click()
复原
End Sub

Private Sub Form_Load()
Command1.Caption = "选号"
Command2.Caption = "开奖"
Command3.Caption = "确定"
Command4.Caption = "重来"
Label1.FontSize = 28
Timer1.Interval = 100
复原
End Sub

Private Sub 复原()
Command1.Visible = True
Command2.Visible = False
Command3.Visible = False
Command4.Visible = False
Label1 = ""
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Randomize
y = Int(Rnd * 10 + 1)
Label1 = y
End Sub

第三步，运行。