Question

vb猜数程序

Private Sub form_load()
Randomize
a = Int(Rnd * 100)
do
b = InputBox("请输入一个数")

If b > a Then
msgbox"大了"
ElseIf b < a Then
msgbox"小了"
End If
loop until b=a
MsgBox "恭喜猜中了"
End Sub

运行后，退不出循环。总是说"大了"。好像第二个if怎么都不会运行。
求高手指点！~刚学vb,好多不懂啊

Answer 1

这就是不声明变量造成的后果。解决方案有两个： 一个是在前面显式地声明变量：dim a as integer,b as integer；另一个是把b = InputBox("请输入一个数") 改为b = Val(InputBox("请输入一个数")) 。

Answer 2

你得程序基本没错~只不过是b的赋值问题 应该加个VAL函数转换成数值
Private Sub form_load()
Randomize
a = Int(Rnd * 100)
Do
b = Val(InputBox("请输入一个数"))
If b > a Then
MsgBox "大了"
ElseIf b < a Then
MsgBox "小了"
End If
Loop Until b = a
MsgBox "恭喜猜中了"
End Sub

Answer 3

我做了一个猜数字的程序，要的话我发给你，参考参考

Answer 4

首席运营官,说的真是好