62,244
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
northwolves 2006-11-02
- 打赏
- 举报
if s Like "*[0-9，a-z,A-Z]*" And Not s Like "*[!0-9，a-z,A-Z]*" then msgbox "true"
topzz 2006-11-01
- 打赏
- 举报
英数字是混在一起的，如a12b5这样是对的
northwolves 2006-11-01
- 打赏
- 举报
Function thetype(ByVal s As String) As String
If IsNumeric(s) Then thetype = "Number"
If s Like "*[a-z,A-Z]*" And Not s Like "*[!A-Z,a-z]*" Then thetype = "letters of the alphabet"
End Function
If IsNumeric(s) Then thetype = "Number"
If s Like "*[a-z,A-Z]*" And Not s Like "*[!A-Z,a-z]*" Then thetype = "letters of the alphabet"
End Function
