调用下面的函数进行检测
Function HaveNum(S As String) As Boolean
'功能说明:此函数用于判断一个字符串S中,是否含有数字
'参数说明: S 为要检查的字符串
'返回值: True表示含有数字,False表示不含数字
Dim sN As String, I As Integer
sN = "0123456789"
HaveNum = False
For I = 1 To Len(S)
If InStr(sN, Mid(S, I, 1)) > 0 Then
HaveNum = True
Exit Function
End If
Next
End Function
内容全部来源于网络收集，如有侵权，请联系网站删除！
QQ：24596024