各位,我做了一个猜字小游戏,里面的的程序老是提示错误!请大家指点以下 - VB6论坛

问题点数：0 回复次数：9

各位,我做了一个猜字小游戏,里面的的程序老是提示错误!请大家指点以下

Dim PcA, PcB, PcC, PcD As Integer '电脑给出的每一位数 Dim UserA, UserB, UserC, UserD As Integer '每一位数 Dim Degree As Integer '拥护猜了几次 Dim Num As Integer '判断用户输入次数的变量

Private Sub Command1_Click(index As Integer) '用户输入时 '使用输入过的按钮无效 If Num >= 4 Then Command1(index).Enabled = False End If '判断用户输入了几位，如果输入了四位则确认按钮有效 If Num = 4 Then Command2.Enabled = True End If End Sub

Private Sub Command2_Click() '单击确认按钮 '判断用户是否输入正确 Dim A, B As Integer A = o B = o Degree = Degree + 1 If UserA = PcA Then A = A + 1 ElseIf UserA = PcB Or UserA = PcC Or UserA = PcD Then B = B + 1 End If If UserB = PcB Then A = A + 1 ElseIf UserB = PcA Or UserB = PcC Or UserB = PcD Then B = B + 1 End If If UserC = PcC Then A = 1 + 1 ElseIf UserC = PcA Or UserC = PcB Or UserC = PcD Then B = 1 End If If UserD = PcD Then A = A + 1 ElseIf UserD = PcA Or UserD = PcB Or UserC = PcC Then B = B + 1 End If '显示提示 Label1.Caption = A & "A" & B & "B" List1.Addltem UserA & UserB & UserC & UserD & "" & Label1.Caption '初始化输入按钮 If A = 4 Then MsgBox "你猜对了！" & "你一共猜对了" & Degree & "次" For i = o To 9 Command1(i).Enabled = False Next i Command2.Enabled = False End If

End Sub

Private Sub Command3_Click() '单击取消按钮时 Num = 1 For i = o To 9 Command1(i).Enabled = True Next i Command2.Enabled = False

End Sub

Private Sub End_Click(index As Integer) '游戏结束时 End

End Sub

Private Sub Form_Load() '程序运行时 '初始化 For i = 0 To 9 Command1(i).Enabled = False Next i Command2.enbled = False Command3.enbled = False View.enbled = False End Sub

Private Sub List1_Click() '取得用户输入 Select Case index Case 0 UserEnter (0) '调用UserEnter过程 Case1 UserEnter(1) Case2 UserEnter(2) Case3 UserEnter(3) Case4 UserEnter(4) Case5 UserEnter(5) Case6 UserEnter(6) Case7 UserEnter(7) Case8 UserEnter(8) Case9 UserEnter(9) End Select End Sub

End Sub

Private Sub New_Click(index As Integer) '开始一个新游戏 View Enabled = True '可以看答案 List1.Clear '清空列表框 Degree = 0 '对随机数生成器做初始化 Randomize Num = 1 Label1 = 0 & "a" & 0 & "b" '电脑给出的每一位数 PcA = Int(9 * Rnd) PcB = Int(9 * Rnd) Loop While PcB = PcA Do PcC = Int(9 * Rnd) Loop While PcC = PcA Or PcC = PcB Do PcD = Int(9 * Rnd) Loop While PcD = PcA Or PcD = PcB Or PcD = PcC For i = 0 To 9 Command1(i).Enabled = True Next i Command2(i).Enabled = False Command3(i).Enabled = True End Sub

Private Sub View_Click(index As Integer) '显示答案 MsgBox "答案是:" & PcA & PcB & PcC & PcD & "你答对了吗？"

End Sub Sub UserEnter(i) '取得用户输入 If Num = 1 Then UserA = i Num = Num + 1 ElseIf Num = 2 Then UserB = 2 ElseIf Num = 3 Then UserC = i Num = Num + 1 ElseIf Num = 4 Then UserD = i Num = Num + 1 Else: MsgBox "四位数够了!" End If End Sub

End Sub

搜索更多相关主题的帖子: 小游戏　提示　

第 2 楼

得分:0

我怎么看不懂呀

第 3 楼

得分:0

你的语法错漏百出...

/* HELLO.C -- Hello, jat chan */ #include \"stdio.h\" #include \"conio.h\" main() { printf(\"Hello, jat chan\\n\"); getch(); }

第 4 楼

得分:0

我有一个简单的猜数字的游戏: Dim num

Private Sub Command1_Click() Dim num_1 as string For i = 0 To 3 num_1 = num_1 & Text1(i).Text Next If val(num_1) = num Then MsgBox "you win!" Else MsgBox "you lose!" For i = 0 To 3 Text1(i).Text = "" Next Text1(0).SetFocus End If End Sub

Private Sub Command2_Click() End End Sub

Private Sub Command3_Click() Randomize num = Fix((9999 - 1000 + 1) * Rnd) + 1000 End Sub

Private Sub Command4_Click() MsgBox "the number is:" & Str(num) End Sub

Private Sub Form_Activate() Text1(0).SetFocus End Sub

Private Sub Form_Load() For i = 0 To 3 Text1(i).MaxLength = 1 Next Command1.Enabled = False Randomize num = Fix((9999 - 1000 + 1) * Rnd) + 1000 End Sub

Private Sub Text1_Change(Index As Integer) For i = 0 To 3 If Text1(i).Text = "" Then Command1.Enabled = False Else Command1.Enabled = True End If Next End Sub

[此贴子已经被作者于2005-7-1 0:01:04编辑过]

/* HELLO.C -- Hello, jat chan */ #include \"stdio.h\" #include \"conio.h\" main() { printf(\"Hello, jat chan\\n\"); getch(); }