用VB6.0开发猜数字小游戏

　　 Next i
　　 Command2.Enabled = False
　　 End If
　　 End Sub
　　 Private Sub Command3_Click()
　　 '单击取消按钮时
　　 Num = 1
　　 For i = 0 To 9
　　 Command1(i).Enabled = True
　　 Next i
　　 Command2.Enabled = False
　　 End Sub
　　 Private Sub View_Click()
　　 '显示答案时
　　 MsgBox “答案是：" ＆ PcA ＆ PcB ＆ PcC ＆ PcD ＆“你答对了吗？"
　　 End Sub
　　 Private Sub End_Click()
　　 '游戏结束时
　　 End
　　 End Sub
　　 Sub UserEnter(i) '取得用户输入
　　 If Num = 1 Then
　　 UserA = i
　　 Num = Num ＋ 1
　　 ElseIf Num = 2 Then
　　 UserB = i
　　 Num = Num ＋ 1
　　 ElseIf Num = 3 Then
　　 UserC = i
　　 Num = Num ＋ 1
　　 ElseIf Num = 4 Then
　　 UserD = i
　　 Num = Num ＋ 1
　　 Else: MsgBox “四位数够了！"
　　 End If
　　 End Sub
　　 运行程序，选择新游戏，就可以开始玩你自己开发的游戏了。
　　 上面程序在Win95,VB6下运行通过。

上一篇： Visual Basic 中字符淡出淡入的实现
下一篇： 用Visual Basic的Move方法实现动画效果

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!