简单的猜数程序VB 如何写?

来源：百度知道 编辑：UC知道 时间：2024/06/02 21:55:11
如何控制出来的数在1~100之间?

a = Int(Rnd * 100)
n = InputBox("数字筐", "请输入您猜的数字", "")
Label2.Caption = n
If n < 0 Or n > 100 Then MsgBox ("只能输入1~100的整数")
ElseIf (n > a) Then Print "你的数字太大了"
ElseIf (n < a) Then Print "你的数字过小"

我这个按了后老是出来错误说 else 没有 if
我..看不懂..要做具体如何做..哪为高手来帮忙..

够详细吧!我写了半个小时,希望你看的懂
代码:
'有两个label 一个是显示上回猜的 一个是显示次数
'设置:label1.caption = "" (没有) label2.caption = "" (没有)
'一个text用来输数字 text1
'一个按钮来检测 cammand1 设置: cammand1.caption=我来猜
Dim a, b '声明变量a,b
Private Sub Command1_Click() '如果按钮被按下，则执行下面的语句
If a = "" Then '如果没有数，则执行下面的语句
Randomize '初始化生成数（可以理解为准备工作，要不然总是1个数）
a = Int(Rnd * 100) '生成一个数（100以内）
End If '如果执行语句到此结束
b = b + 1
Label2.Caption = "你猜了" & b & "次" '显示你猜了几次
n = Text1.Text '得到你输的数
Label1.Caption = n '显示输的数
n = Int(n) '因为得到的是一句话，我要把它变成数字
If n < 0 Or n > 100 Or n = "" Then '如果猜的数小于0或大于100或没有数，则执行下面的语句
MsgBox ("只能输入1~100的整数") '弹出对话框 只能输入1~100的整数
ElseIf (n > a) Then '否则如果猜的数大于这个数，则执行下面的语句
MsgBox "你的数字太大了" '弹出对话框 你的数字太大了
ElseIf (n < a) Then '否则如果猜的数小于这个数，则执行下面的语句
MsgBox