Question

vb中怎么判断一个字符串中，是否有除了字母和数字以外的字符

在设置密码的时候，只能包含字母和数字，但是怎么样判断一个字符串中只有二者？
请高手指教
解决之后的函数：
Public Function Check_LawlessChar(ByVal Str As String) As Boolean
Check_LawlessChar = False
Dim S_Char As String '有则返回TRUE，否则FALSE
Dim i As Integer
For i = 1 To Len(Str)
S_Char = Mid(Str, i, 1)
If (48 <= Asc(S_Char) And Asc(S_Char) <= 57) Or (65 <= Asc(S_Char) And Asc(S_Char) <= 90) Or (97 <= Asc(S_Char) And Asc(S_Char) <= 122) Then
Else
Check_LawlessChar = True
End If
Next
End Function

Answer 1

用mid把字符串拆成单个字符
转为ASCII码，如果只有数字和字母的话，在ASCII码中只有一段数值，比如48-57是数字，65-90是小写字母，97-122是大写字母

Answer 2

正则表达式，^[A-Za-z0-9]*$，符合的通过不符合的不通过