Vb猜谜游戏...无论输入什么数字，都显示“数字太大”...请修改它...

你的A是一个在Form_Load中定义的局部变量。Command1_Click中没有A变量，A为null，所以无论输入什么B，都必须大于A的null值，建议以后写代码的时候在顶部加上Option Explicit，避免此类错误。

删除所有代码，并修改如下:

选项显式

将a作为整数变暗

私有子窗体_Load() Randomize

a = Int(100 * Rnd + 1)

打印“正确答案是”&；a

末端接头

私有子命令1_Click() Dim b As Integer

B = Val(InputBox("请输入一个数字(1-100)")。

如果b & gt100或b & lt那么1

MsgBox("输入错误！")

那么ElseIf b = a

MsgBox ("Pass！")

ElseIf b & gt那么

MsgBox("数字太大")

其他

MsgBox("数字太小")

如果…就会结束

末端接头