UC知道高手帮忙做个VB程序
来源：百度知道 编辑：UC知道 时间：2024/05/04 08:45:58
要求：
有限次猜数字游戏
项目要求：
1． 随机生成一个1—100的整数，然后通过inputbox进行输入数字，并把输入的数字与随机数进行比较（即猜数字的过程），程序在运行中，不出现随机生成数，但是在程序结束（猜对或者5次猜错的情况）时，在文本框里把随机生成数显示出来。
2． 在猜对的情况下：根据猜的次数，用msgbox输出不同的信息
例如：第一次就猜对了，输出提示信息“你简直就是天府学院的天才一号！”
第二次猜对了，输出提示信息“你简直就是天府学院的天才二号！”
依次类推
3． 在猜错的情况下，根据输入的情况，输出不同的信息
如果输入的数字比生成的数字大，输出提示信息“你输入的数字太大，请重新输入！”
另外一种情况类同
当次数达到第5次时，如果还不正确，此时输出信息
“你个小笨笨，你输入的次数已经达到5次！”
4． 在猜对或者5次猜错的情况下，都退出程序。
主要涉及知识：
if……then select case 选择结构
for ……….. next 循环结构
inputbox msgbox 输入和输出
visible 是否显示属性
有限次猜数字游戏
项目要求：
1． 随机生成一个1—100的整数，然后通过inputbox进行输入数字，并把输入的数字与随机数进行比较（即猜数字的过程），程序在运行中，不出现随机生成数，但是在程序结束（猜对或者5次猜错的情况）时，在文本框里把随机生成数显示出来。
2． 在猜对的情况下：根据猜的次数，用msgbox输出不同的信息
例如：第一次就猜对了，输出提示信息“你简直就是天府学院的天才一号！”
第二次猜对了，输出提示信息“你简直就是天府学院的天才二号！”
依次类推
3． 在猜错的情况下，根据输入的情况，输出不同的信息
如果输入的数字比生成的数字大，输出提示信息“你输入的数字太大，请重新输入！”
另外一种情况类同
当次数达到第5次时，如果还不正确，此时输出信息
“你个小笨笨，你输入的次数已经达到5次！”
4． 在猜对或者5次猜错的情况下，都退出程序。
主要涉及知识：
if……then select case 选择结构
for ……….. next 循环结构
inputbox msgbox 输入和输出
visible 是否显示属性
我在程序中加拉个时间控件和标签 用来控制程序的关闭
标签用来显示已经输过的数据
Dim z As Integer, a As Integer,s As Integer
Private Sub Command1_Click()
s = InputBox("请输入1~100的数", "输入")
Label1.Caption = s & " " & Label1.Caption
z = z + 1
End Sub
Private Sub Command2_Click()
If z <= 5 Then
If s < a Then
MsgBox "输入的数据过小", , "提示"
End If
If s > a Then
MsgBox "输入的数据过大", , "提示"
End If
If s = a Then
Text1.Text = a
MsgBox "你简直就是天府学院的天才" & z & "号！", , "提示"
End If
Else
MsgBox "你个小笨笨，你输入的次数已经达到5次！", , "提示"
End If
If z = 5 Then
Command1.Enabled = False
Timer1.Enabled = True
End If
End Sub
Private Sub Form_Load()
Randomize
a = Int(Rnd * 100) + 1
End Sub
Private Sub Timer1_Timer()
End
End Sub