End Sub作者: blinkday 时间: 2004-9-26 00:52
没有出现异常,当然就执行done2咯
Sub main
dim s as String
dim i as Integer
s=Inputbox("Input the number:")
on error goto a
i=CInt(s)
msgbox "OK"
exit sub
a:
msgbox "NO"
exit sub
End Sub
一个简单的例子,如果输入数字,则显示OK,如果输入字符则显示NO。
此类的问题可以发到[Rational Robot]论坛中。作者: songfun 时间: 2004-9-26 01:02
to 楼上的: