帮我用vb编写一个猜数字的小游戏，数字1到100，程序语言3到5行即可．

帮我用vb编写一个猜数字的小游戏，数字1到100，程序语言3到5行即可．~

画个text1和command1
Private
Sub
Command1_Click()
Dim
a
As
Long
a
=
Rnd
*
100
MsgBox
IIf(a
=
Val(Text1),
"你猜对了，数字是:"
&
a,
"你猜错了，正确答案是:"
&
a)
End
Sub

首先说一说猜数字这个游戏的玩法，一开始计算机会随机产生一个不重复的四位数，你要输入四位不重复的数与计算机给出的数作对比，如果与计算机给出的数的位置相同数字相同，那么将会是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
Command2.Enabled = False
Command3.Enabled = False
View.Enabled = False
End Sub
Private Sub New_Click()
'开始一个新游戏时
View.Enabled = True '可以看答案
List1.Clear '清空列表框
Degree = 0
' 对随机数生成器做初始化
Randomize
Num = 1
Label1.Caption = 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
Command2.Enabled = False
Command3.Enabled = True
End Sub
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
'取得用户输入
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
'显示提示
Label1.Caption = A ＆ “A" ＆ B ＆ “B"
List1.AddItem UserA ＆ UserB ＆ UserC ＆ UserD ＆ “ " ＆ Label1.Caption
'初始化输入按钮
Command2.Enabled = 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
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
运行程序，选择新游戏，就可以开始玩你自己开发的游戏了.

画个text1和command1

Private Sub Command1_Click()
Dim a As Long
a = Rnd * 100
MsgBox IIf(a = Val(Text1), "你猜对了，数字是:" & a, "你猜错了，正确答案是:" & a)
End Sub

做command两个，textbox一个。
下面为代码：

Dim a as integer
Private Sub Form_Load()
command1.caption="Guess"（即确认）
command1.enabled= False
command2.caption="Reset"（重新生成数字）
End Sub

Private Sub Command1_Click()
If val(text1.text)=a then
Msgbox "Correct!"
Else
Msgbox "Incorrect! Answer is: " & a
Endif
command1.enabled=false
call command2_click()
End Sub

Private Sub Command2_Click()
a=int(rnd()*100)+1
command1.enabled=true
msgbox " New number generated!"
End Sub

猜数字的小游戏：前提，随机数在你猜中之前不能变
所以要建一个生成新数字按钮command2
如果不想猜又想答案的话还要加一个command3显示答案，这里就显示在text1里
private sub command2click()
x= Int(Rnd() * 100)
end sub
Private Sub Command1_Click()
if val(text1.text)>x then
msgbox "太大了"
elseif val(text1.text)<x then
msgbox "太小了"
else
msgbox "你太棒了！这么快就猜对了"
end if
End Sub

private sub command3_click()
text1.text=x
end sub

3楼的回答比较好，而且做出来会有意思点！

---

连南瑶族自治县17399603424： 帮我用vb编写一个猜数字的小游戏,数字1到100,程序语言3到5行即可. - ？
章府兰悉： 画个text1和command1 Private Sub Command1_Click() Dim a As Long a = Rnd * 100 MsgBox IIf(a = Val(Text1), ＂你猜对了,数字是:＂ & a, ＂你猜错了,正确答案是:＂ & a) End Sub

连南瑶族自治县17399603424： vb制作猜数游戏 - ？
章府兰悉： 数字大小,首先对比得有个对象. 那么对象必须两个或两个以上!! 那0-9 你说那个大 那个小!! 思路:0到9 的数 ,设置0-4小 5-9大 这样才可以实现! 或者 对比.

连南瑶族自治县17399603424： 用VB写一个猜数字游戏 - ？
章府兰悉： Private a As Long '用于计时'timer的时间设为1000,事件写入 a = a + 1 Private Sub Timer1_Timer() a = a + 1 End Sub Private Sub Form_Load() timer1.Enabled = 0 End Sub Private Sub CommandButton1_Click() a = Int(Rnd() * 100) '随机一个1~...

连南瑶族自治县17399603424： 简单VB猜数编程 - ？
章府兰悉： '没测试,如果有问题就说一下'添加3个CommandButton控件(Command1、Command2、Command3),1个TextBox控件(Text1),3个Lable控件(Label1、Label2、Label3) Din n as integer,Tn as integer,Tm as single,T as integer Private Sub ...

连南瑶族自治县17399603424： vb程序设计 猜数游戏 - ？
章府兰悉： Dim a As Byte Dim b As Byte '回车次数 Private Sub Command1_Click() Randomize a = Int(Rnd * 100 + 1) Command1.Enabled = False b = 0 End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Command1.Enabled = ...

连南瑶族自治县17399603424： 请大神帮忙用vb做一个简单的猜数字程序~~~ - ？
章府兰悉： Dim RandInt As Integer = 0 Dim CountInt As Integer = 0 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load RandInt = Int(Rnd() * 10) + 1 End Sub Private Sub Button1_Click(ByVal ...

连南瑶族自治县17399603424： 用VB语言编写一个猜数字的游戏？
章府兰悉： View.Enabled = False End Sub Private Sub New_Click() 注释:开始一个新游戏时 View.Enabled = True 注释:可以看答案 List1.Clear 注释:清空列表框 Degree = 0 注释: 对随机数生成器做初始化 Randomize Num = 1 Label1.Caption = 0 & ...

连南瑶族自治县17399603424： 求VB猜数字游戏做法 - ？
章府兰悉： Private Sub Command1_Click()Text1.Text = Int(Rnd() * 100) + 1End SubPrivate Sub Command2_Click()If Val(Text2.Text) > Val(Text1.Text) ThenLabel2.Caption = ＂太大了!ElseIf Val(Text2.Text) < Val(Text1.Text) ThenLabel2.Caption = ＂太小了!＂ElseLabel2.Caption = ＂恭喜你!猜中了!＂End IfEnd Sub

连南瑶族自治县17399603424： 用VB做的猜数游戏代码! - ？
章府兰悉： '添加两个CommandButton 三个Label 一个Timer 设置Tiemr1.Interval=100 每次猜完数后单击窗体可继续游戏 Private Sub Command1_Click() Timer1.Enabled = False If Val(Label1.Caption) > Val(Label2.Caption) Then Label3.Caption = ＂左边大,...

连南瑶族自治县17399603424： ■用vb编一个简单的游戏(代码)(要详细) - ？
章府兰悉： '猜数字,这个简单了吧. Private Sub Form_Load()Randomizenum = Int(Rnd * 1000)str1 = ＂输入一个0到999间的整数＂Donum1 = Val(InputBox(str1))If num1 > num Thenstr1 = ＂大了＂ElseIf num1 < num Thenstr1 = ＂小了＂ElseMsgBox ＂恭喜您!答对了.＂Exit DoEnd IfLoop End Sub