VB求猜数游戏的编写代码

添加两个按钮（一个是 “生成一个数”，另一个是 “猜测”），一个label1,一个text1
所有 代码如下：
Dim a As Integer, b As Integer
Private Sub Command1_Click() '生成一个数 按钮
Label1.Visible = False 'label1 不可见
Randomize
a = Int(4 * Rnd + 1) '随机生成数字范围1~4，自己设置
Label1.Caption = a
End Sub

Private Sub Command2_Click() '猜测 按钮
b = Val(Text1.Text)
If CStr(a) = CStr(b) Then
respose = MsgBox("你答对了", vbOKOnly, "提示") '对话框只有确定按钮
Label1.Visible = True
Else
respose = MsgBox("你错了", vbRetryCancel, "提示") '对话框有重试和取消按钮
If respose = vbRetry Then
Text1.SetFocus
Text1.text =""
Else
Label1.Visible = True
End If
End If
End Sub

Private Sub Command1_Click()
Dim a As Integer
If Text1.Text = Label1.Caption Then
MsgBox "答对了"
Label1.Visible = True
Else
a = MsgBox("答错了", vbRetryCancel)
If a = vbCancel Then
Label1.Visible = True
ElseIf a = vbRetry Then
Text1.Text = ""
Text1.SetFocus
End If
End If
End Sub

Private Sub Form_Load()
Randomize
Label1.Caption = Int(Rnd * 10) '生成一个10以内的整数
Text1.Text = ""
Command1.Caption = "确定"
Label1.Visible = False
End Sub
你看看是这样吗？