Dim X As Long
Private Sub Command1_Click()
Randomize
X = Int(Rnd * 100) + 1
Command3.Enabled = True
Text1.Text = "": Text1.SetFocus
End Sub
Private Sub Command2_Click()
Unload Form1
End Sub
Private Sub Command3_Click()
a = a + 1
If Text1.Text = X Then MsgBox "恭喜你,猜对了!", vbOKOnly + vbCritical, "提示信息"
If Text1.TextX Then MsgBox "你猜的数字偏大。", vbOKOnly + vbCritical, "提示信息"
Text1.Text = "": Text1.SetFocus
If a > 9 Then
MsgBox "对不起,你五次都猜错了,开始新的游戏!", vbOKOnly + vbCritical, "提示信息"
Command3.Enabled = False
End If
End Sub
Private Sub Form_Load()
Command3.Enabled = False
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii58 Then
Text1.Text = 0
End If
End Sub
先谢谢 两位拉 还是不行啊总是要调试这句代码 If Text1.Text = X Then
请再进来 帮帮忙吧
|