[求助]关于 实时错误 的解决办法
我做一个Inputbox的时候，定义的是整数，输入字母或标点时就会弹出一个对话框－－“实时错误13”类型不匹配，还有结束和调试哦按钮，要怎样才能使输入非数字时不会这样。
[此贴子已经被作者于2007-9-25 22:13:15编辑过]
◆ωǒ嘚丗堺o﹎習慣了①個ré n靜靜dêヤ发呆.?уi个人ˋｚi уoμ *.自﹎在 .o
方法一:
不推荐.
Private Sub Command1_Click()
Dim n As Integer
On Error GoTo errHandle
n = InputBox("input datas")
MsgBox n
Exit Sub
errHandle:
MsgBox "输入出错"
End Sub
方法二:
Private Sub Command1_Click()
Dim s As String
Dim n As Integer
s = InputBox("input datas")
If IsNumeric(s) Then
n = s
MsgBox n
Else
MsgBox "输入出错"
End If
End Sub