啊，你的意思是，当点击取消按钮、或者是那个叉号按钮时，就重新打开这个对话框呗。那就不要把InputBox的返回值直接赋值给整数变量x 因为InputBox的返回值是字符串型，即文本型，所以你要先把InputBox的值赋值给文本型变量，然后用StrPtr函数转化一下，如果用StrPtr函数转化后的值为0，说明点了取消或...
VB中使用inputbox函数后 在对话框点取消按钮报错该如何解决？
啊，你的意思是，当点击取消按钮、或者是那个叉号按钮时，就重新打开这个对话框呗。
那就不要把InputBox的返回值直接赋值给整数变量x
因为InputBox的返回值是字符串型，即文本型，
所以你要先把InputBox的值赋值给文本型变量，
然后用StrPtr函数转化一下，
如果用StrPtr函数转化后的值为0，说明点了取消或叉号，
如果用StrPtr函数转化后的值大于0，说明点了确定按钮，
Sub test()
Dim s$, x%
Do
s = InputBox("请输入X的值")
Loop Until StrPtr(s) '如果点的是确定则终止循环
'当循环终止后，进行如下处理：
x = Val(s) '将文本s转化为数值赋值给x
Select Case x '用select语句Select判断x的值
Case Is < 0
MsgBox "你输入了小于0的整数", 64
Case Is < 100
MsgBox "你输入了大于等于0且小于100的整数", 64
Case Is < 300
MsgBox "你输入了大于等于100且小于300的整数", 64
Case Else
MsgBox "你输入了大于等于300的整数", 64
End Select
End Sub
2022-06-16
