比如该文本框是text1,加一段：Private Sub Text1_change()'非数字校验~~~~~~~~~~~~~~~~~~If IsNumeric(Text1.Text) = False Then MsgBox "请输入数字！", 48, "错误提示" Text1.Text ="" Text1.SetFocus Exit Sub End If.......endsub
