常见错误 数据合法性检查中引起程序的死循环 Private Sub Text1 LostFocus( Private Sub Text2 LostFocusO If Not IsNumeric(Text1)Then If Not IsNumeric(Text2y Then Text1 II lI Text2= Text 1, setFocus Text1. setfocus End if 1: End If End sub Text 1 Text2 End sub 确定 If Text2<>And Not IsNumeric(Text2常见错误 数据合法性检查中引起程序的死循环 Private Sub Text1_LostFocus() If Not IsNumeric(Text1) Then Text1 = "" Text1.SetFocus End If End Sub Private Sub Text2_LostFocus() If Not IsNumeric(Text2) Then Text2 = "" Text1.SetFocus End If End Sub If Text2 <> "" And Not IsNumeric(Text2) Text1 Text1 Text2 确定