首先，介绍猜数字这一游戏的玩法，首先计算机随机生成不重复的4位。 输入不重复的4位数字与计算机给出的数字进行比较，如果与计算机给出的数字相同，则为1A；如果数字相同，位置不同，则显示为1B。 例如，计算机的随机数字是1234，我推测的数字是1356。 然后，计算机提示为1A1B。 也就是说，在你推测出的数字中，有一位数字正确，数字位置一致，所以显示为1A。 另一个数字也猜对了，但是位置错了，所以显示为1B。 就这些，看看谁推测的次数少。
首先在表单中加入CommandButtion控件，在Command1上单击鼠标右键，选择副本，在表单上单击鼠标右键，然后粘贴到表单中粘贴9个Command1 在此选择是。 然后添加两个CommandButtion控件： ListBox、Frame和Label。 窗体的Caption属性为“猜测”，BorderStyle为1固定单个，控件数组的Captin分别为0、1、2、3、4、5、6、7、8、9和Command2 游戏，新游戏，显示答案，游戏结束。 她们的Name属性分别是Game、New、View和End。 那么，剩下的属性用默认的就可以了。 最后一个接口必须与下图相同。
程序列表如下所示。
Dim PcA、PcB、PcC、PcD As Integer '计算机赋予各位
Dim UserA、UserB、UserC、UserD As Integer '用户输入的位数
Dim Degree As Integer '用户猜了几次
Dim Num As Integer '判断用户输入次数的变量
私有sub form _ load (
'程序执行时
'初始化
For i=0 To 9
command1(I ).Enabled=False
下一步
=False
=False
=False
最终辅
隐私sub new _ click (
'开始新游戏的时候
=True '可以看到答案
'清空列表框
Degree=0
'初始化随机数发生器
自述文件
Num=1
=0 &； “A' &； 0 &； “b”
“计算机给的每一位
PCA=int(9*rnd )
德奥
PCB=int(9*rnd )
Loop While PcB=PcA
德奥
PCC=int(9*rnd )
Loop While PcC=PcA Or PcC=PcB
德奥
PCD=int(9*rnd )
loopwhilepcd=pcaorpcd=pcborpcd=PCC
For i=0 To 9
command1(I ).Enabled=True
下一步
=False
=真
最终辅
私有子命令1 _ click (index as integer )
'用户输入时
'使输入的按钮无效
If Num=4 Then
command1(index ).Enabled=False
End If
'判断用户输入了多少位，如果输入了4位，则确认按钮有效
If Num=4 Then
=真
End If
'获取用户输入
选择案例索引
Case 0
用户(0) '调用用户进程
case 1用户(1)
case 2用户(2)
case 3用户(3)
case 4用户(4)
case 5用户(5)
case 6用户(6)
情况7用户(7)
case 8用户(8)
情况9用户(9)。
最终选择
最终辅
私有子命令2 _ click (
'点击确定按钮时
'判断用户输入是否正确
Dim A，B As Integer
A=0
B=0
Degree=Degree 1
If UserA=PcA Then
A=A 1
else if usera=pcborusera=pccorusera=PCD then
B=B 1
用Visual BASIC 6.0开发猜谜游戏结束if
If UserB=PcB Then
A=A 1
else if userb=pcaoruserb=pccoruserd=PCD then
B=B 1
End If
If UserC=PcC Then
A=A 1
elseifuserc=pcaoruserc=pcboruserc=PCD then
B=B 1
End If
If UserD=PcD Then
A=A 1
else if userd=pcaoruserd=pcboruserc=PCC then
B=B 1
End If
'显示提示
=A &； “A' &； B &； “b”
用户与地图； 用户与地图； 用户与地图； 用户& Amp； “' &；
'初始化输入按钮
=False
For i=0 To 9
command1(I ).Enabled=True
下一步
Num=1
“判断胜负
If A=4 Then
MsgBox“我认为你是对的！ ' &； “全部猜对了' &； 删除和映射； 下一个
For i=0 To 9
command1(I ).Enabled=False
下一步
=False
End If
最终辅
私有子命令3 _ click (
'点击取消按钮时
Num=1
For i=0 To 9
command1(I ).Enabled=True
下一步
=False
最终辅
隐私sub view _ click (
'显示答案时
MsgBox“答案是： ' &； PcA &； PcB &； PcC &； PcD &； “正确吗？'
最终辅
个人隐私sub end _ click (
'游戏结束时
结束
最终辅
subuserenter(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
最终辅
运行程序，选择新游戏，就可以开始自己开发的游戏。
回答者：先谈谈猜数字这个游戏的玩法吧。 一开始是-初学弟子10-24 19:49:03级
这里也有你吗？ 是采石布的游戏啊。 和上述方法一样呢。
回答者：我这里也有你吗？ 是剪刀石头布-试用期一级10-24 20:33:14