请叫大家一个问题:出错处理!
大家好,我这个学期才开始学习VB,所以有好多东西都还不懂,以后请多多指教!
现在有这么个问题:在判断输入一个文本框的内容是否为数字型,是则显示,否则弹出出错对话框。在这个文本框(text1)里的代码我是这样给的:
Private Sub Text1_Change()
If IsNumeric(Text1.Text) then
x=val(text1.text)
else
myexit = MsgBox("输入错误,重新输入!",vbExclamation+okOnly, "出错")
End If
If myexit = okOnly then
text1.text=""
End If
End Sub
问题是:当text1输入的不是数字时,弹出出错对话框,点击确定后,又出了个出错对话框,再点击才能再输入!
我自己用单步运行的方法看了一下,就是第一个if判断后,执行完第二个if判断后,程序直接又判断第一个if语句了,这时,输入为空,非数值型(用户还没再输入嘛),再出现出错对话框可以理解,就是她为什么它会立马再执行呢?
请大家帮我看看,问题出在何处?!
谢谢!!!!!!!!!!!!!!!!!!!!!