出现子程序或函数未定义

lwl1288 发布于 2013-07-12 18:36， 411 次点击

Private Sub text1_lostfocus()
If Text1.Text <> "" And Not isnumberic(Text1.Text) Then
MsgBox "a值输入有误：含有非数字字符！", , "输入有误"
Text1.Text = ""
Text1.SetFocus
End If
End Sub

1 回复

Artless2013-07-12 21:14

IsNumeric