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

　　MsgBox “你猜对了！" ＆ “你一共猜了" ＆ Degree ＆ “次"
　　For i = 0 To 9
　　Command1(i).Enabled = False
　　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下运行通过。

156

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