会vb的朋友们帮帮忙~

来源：百度知道 编辑：UC知道 时间：2024/06/07 08:34:19
尝试编写这样一个程序：由计算机产生一个0到100的随机数，让大家去猜这个数是多少。如果猜错了，计算机给出提示：“太大了”或“太小了”；然后继续猜，如果猜了10次都不对，就退出程序。如果猜对了，计算机给出猜对信息，并结束游戏。
提示：
1、综合使用条件语句if-then和循环语句for-next
2、可以能过InputBox函数让用户输入数字，如：a=Val(InputBox("请输入你要猜的数字（0—100）","猜数 "））
3、Rnd通常与Int函数配合使用生成[a,b]区间内的随机整数，可以采用Int(Rnd*(b-a+1)+a),例如：产生1-100的随机数：Int(Rnd*100)+1
做出个
如果猜了10次都不对，就退出程序。
的代码~

Private Sub Form_Load()
n = Int(101 * Rnd)
For i = 1 To 10
a = Val(InputBox("请输入你要猜的数字（0—100）", "猜数 "))
If a > n Then
MsgBox "大了!"
ElseIf a < n Then
MsgBox "小了!"
Else
MsgBox "猜对了!"
End
End If
Next
End Sub

VB忘得差不多了
写个例子给你，是C的，

Num = int(random()*100)

inNum = input()
for (i = 0 ; i < 10 , i++)
{
if (Num > inNum)
{
printf("小了")
}
else if (Num < inNum)
{
printf ("大了")
}
else if (Num = inNum)
{
printf("对了")
close()
}
}

能不能不用提示里面的东西啊,若可以不用提示里面的东西的话你就把分留给我,我回家再写,现在在学校手头没电脑