InputBox取消按钮的问题

Question

我做了一个VB程序，用到了InputBox函数，可是我一点击取消的时候就出现类型型不匹配的错误
这种情况该怎么处理

Answer 1

Private Sub Command1_Click()
    MsgBox InputBox("请输入数据", "输入", "0")   '第三个参数是default,设置一下
End Sub

Answer 2

On error resume next

Answer 3

dim t1 as integer, dim t2 as integer    t1 = 1
    t2 = 1
    
    t1 = InputBox("请输入题的类型", "选择类型", 1)
    t2 = InputBox("请输入题号", "选择题号", 1)这就是原码

Answer 4

t1,t2是integer类型，取消后t1="":t2="",怎么不出错呢

Answer 5

if t1<>"" then
if IsNumeric(t1) then
else
msgbox "非数值类型"
end if
end if
t2类似处理。按“取消”这个代码就不执行了。

Answer 6

同意楼上两位的.....
第三个参数default,是说不输入任何数据,点击确定,返回的值.
点击取消,是返回零长度字符串"".

Answer 7

字符串赋给integer类型,肯定会报类型不匹配的错误.