基于vb的猜数字游戏.pdfVIP

Option Explicit Private a As Integer Private b As Integer Private c As Integer Private d As Integer Private jishu As Integer Private ba As Integer Private bb As Integer Function getabcd(a As Integer, b As Integer, c As Integer, d As Integer) Randomize 100 a = Int(10 * Rnd) If a = 0 Then GoTo 100 End If 110 b = Int(10 * Rnd) If b = a Or b = 0 Then GoTo 110 End If 120 c = Int(10 * Rnd) If c = a Or c = b Or c = 0 Then GoTo 120 End If 130 d = Int(10 * Rnd) If d = a Or d = b Or d = c Or d = 0 Then GoTo 130 End If End Function 输完数字后检查输入数字是否合法，如果输入不合法则弹出错误信息 Private Sub Command1_GotFocus() If Text1.Text = Text2.Text Or Text1.Text = Text2.Text Or Text1.Text = Text3.Text Or Text1.Text = Text4.Text Or Text2.Text = Text3.Text Or Text2.Text = Text4.Text Or Text3.Text = Text4.Text Then Call MsgBox( 输入有错！请重来！, 0, 错误!) Text1.Text = Text2.Text = Text3.Text = Text1.SetFocus Command1.Enabled = False End If End Sub Private Sub Form_Load() getabcd a, b, c, d 初始化数字 End Sub Private Sub mnexit_Click() 游戏菜单中“退出”选项 Unload Me End Sub Private Sub mnkjg_Click() “看结果”菜单 Label1.Visible = False Label2.Visible = True Label3.Visible = True Label4.Visible = True Label5.Visible = True Label2.Caption = b Label3.Caption = c Label4.Caption = d Label5.Caption = a End Sub Private Sub mnnew_Click() “游戏”菜单中“新游戏”选项 List1.Visible = True Text1.Text = Text2.Text = Text3.Text = Text4.Text = Label1.Visible = True Label1.Caption = Command1.Enabled = False Text1.SetFocus List1.Clear getabcd a, b, c, d Label2.Visible = False Label3.Visible = False Label4.Visible = False Label5.Visible = False jishu = 0 ba = 0 bb = 0 Frame2.Caption = 最接近成功的一次 End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 49 Or