Private Sub Command1_Click() Dim strTemp As String strTemp = "aslkdjalksj32334j23j" Dim i As Integer For i = 1 To Len(strTemp) If IsCommonChar(Mid(strTemp, i, 1)) = False Then MsgBox "有非字母或数字的字符" Exit Sub End If Next MsgBox "没有非字母或数字的字符"
strTemp = "aslkdja@¥#!¥lksj32334j23j" For i = 1 To Len(strTemp) If IsCommonChar(Mid(strTemp, i, 1)) = False Then MsgBox "有非字母或数字的字符" Exit Sub End If Next MsgBox "没有非字母或数字的字符" End SubPrivate Function IsCommonChar(strChar As String) As Boolean If (Asc(strChar) >= 48 And Asc(strChar) <= 57) _ Or (Asc(strChar) >= 65 And Asc(strChar) <= 90) _ Or (Asc(strChar) >= 97 And Asc(strChar) <= 122) Then IsCommonChar = True Else IsCommonChar = False End If End Function
Private Sub Command1_Click() MsgBox ZIMUSHUZIONLY("123DFGD#SGG") End Sub Function ZIMUSHUZIONLY(ByVal X As String) As Boolean ZIMUSHUZIONLY = False For I = 0 To 9 X = Replace(X, I, "") Next For I = 1 To 26 X = Replace(X, Chr(64 + I), "") X = Replace(X, Chr(96 + I), "") Next If X = "" Then ZIMUSHUZIONLY = True End Function
Dim strTemp As String
strTemp = "aslkdjalksj32334j23j"
Dim i As Integer
For i = 1 To Len(strTemp)
If IsCommonChar(Mid(strTemp, i, 1)) = False Then
MsgBox "有非字母或数字的字符"
Exit Sub
End If
Next
MsgBox "没有非字母或数字的字符"
strTemp = "aslkdja@¥#!¥lksj32334j23j"
For i = 1 To Len(strTemp)
If IsCommonChar(Mid(strTemp, i, 1)) = False Then
MsgBox "有非字母或数字的字符"
Exit Sub
End If
Next
MsgBox "没有非字母或数字的字符"
End SubPrivate Function IsCommonChar(strChar As String) As Boolean
If (Asc(strChar) >= 48 And Asc(strChar) <= 57) _
Or (Asc(strChar) >= 65 And Asc(strChar) <= 90) _
Or (Asc(strChar) >= 97 And Asc(strChar) <= 122) Then
IsCommonChar = True
Else
IsCommonChar = False
End If
End Function
MsgBox ZIMUSHUZIONLY("123DFGD#SGG")
End Sub
Function ZIMUSHUZIONLY(ByVal X As String) As Boolean
ZIMUSHUZIONLY = False
For I = 0 To 9
X = Replace(X, I, "")
Next
For I = 1 To 26
X = Replace(X, Chr(64 + I), "")
X = Replace(X, Chr(96 + I), "")
Next
If X = "" Then ZIMUSHUZIONLY = True
End Function