vb利用计算机做猜数游戏,用VB语言编写一个猜数字的游戏

首先说一说猜数字这个游戏的玩法，一开始计算机会随机产生一个不重复的四位数，你要输入四位不重复的数与计算机给出的数作对比，如果与计算机给出的数的位置相同数字相同，那么将会是1A，如果数字相同而位置相不同，将会显示1B。例如：计算机的随机数字为：1234 ，我猜的数字为：1356 ，那么这时计算机会给你提示为：1A1B，也就是说，你猜的数字中，有一位数字是猜对的，而且数字位置都对，所以显示为1A；还有一个数字也猜对了，但是位置不对，所以显示为1B。就这些了，看谁猜的次数少。

首先在Form中加入一个CommandButtion控件，在Command1上点击鼠标右键，选择复制，在窗体上点击鼠标右键，选择粘贴在窗体上粘贴出九个Command1,此时出现对话框问你要不要创建控件数组，在此选择是。然后再加入两个CommandButtion控件，一个ListBox、一个Frame、一个Label 。设置窗体的Caption属性为“猜一猜”、BorderStyle为1－Fixed Single、控件数组的Captin分别为0、1、2、3、4、5、6、7、8、9，Command2的Caption为“确定"，Command3的Caption为“取消"，Frame1的Caption为“提示："，Label1的Cpation为“0A0B"。然后选择菜单编辑器编辑菜单为：游戏、新游戏、显示答案、结束游戏，她们的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 '判断用户输入次数的变量

Private Sub Form_Load()

'程序运行行时

'初始化

For i = 0 To 9

Command1(i).Enabled = False

Next i

= False

= False

= False

End Sub

Private Sub New_Click()

'开始一个新游戏时

= True '可以看答案

'清空列表框

Degree = 0

' 对随机数生成器做初始化

Randomize

Num = 1

= 0 ＆ “A" ＆ 0 ＆ “B"

'电脑给出的每一位数

PcA = Int(9 ＊ Rnd)

Do

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

= False

= True

End Sub

Private Sub Command1_Click(Index As Integer)

'用户输入时

'使得输入过的按钮无效

If Num <= 4 Then

Command1(Index).Enabled = False

End If

'判断用户输入了几位，如果输入了四位则确认按钮有效

If Num = 4 Then

= True

End If

'取得用户输入

Select Case Index

Case 0

UserEnter (0) '调用UserEnter过程

Case 1 UserEnter (1)

Case 2 UserEnter (2)

Case 3 UserEnter (3)

Case 4 UserEnter (4)

Case 5 UserEnter (5)

Case 6 UserEnter (6)

Case 7 UserEnter (7)

Case 8 UserEnter (8)

Case 9 UserEnter (9)

End Select

End Sub

Private Sub Command2_Click()

'单击确定按钮时

'判断用户输入是否正确

Dim A, B As Integer

A = 0

B = 0

Degree = Degree ＋ 1

If UserA = PcA Then

A = A ＋ 1

ElseIf UserA = PcB Or UserA = PcC Or UserA = PcD Then

B = B ＋ 1

用Visual BASIC 6.0 开发猜数字小游戏 End If

If UserB = PcB Then

A = A ＋ 1

ElseIf UserB = PcA Or UserB = PcC Or UserD = PcD Then

B = B ＋ 1

End If

If UserC = PcC Then

A = A ＋ 1

ElseIf UserC = PcA Or UserC = PcB Or UserC = PcD Then

B = 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

'显示提示

= A ＆ “A" ＆ B ＆ “B"

UserA ＆ UserB ＆ UserC ＆ UserD ＆ “ " ＆

'初始化输入按钮

= False

For i = 0 To 9

Command1(i).Enabled = True

Next i

Num = 1

'判断输赢

If A = 4 Then

MsgBox “你猜对了！" ＆ “你一共猜了" ＆ Degree ＆ “次"

For i = 0 To 9

Command1(i).Enabled = False

Next i

= False

End If

End Sub

Private Sub Command3_Click()

'单击取消按钮时

Num = 1

For i = 0 To 9

Command1(i).Enabled = True

Next i

= 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

运行程序，选择新游戏，就可以开始玩你自己开发的游戏了.

回答者：首先说一说猜数字这个游戏的玩法，一开始计 - 初学弟子 一级10-24 19:49:03

我这里也有个 你要不要嘛 是 剪子石头布 的游戏哈和上面说的方法差不多哈!!!

回答者：我这里也有个 你要不要嘛 是 剪子石头布 - 试用期 一级10-24 20:33:14