code122a.txt

来自「VB大全（精华版）源代码」· 文本 代码 · 共 21 行

 Dim CurrentChar As String

  For I = 1 To Len(CheckString)
    CurrentChar = UCase(Mid(CheckString, I, 1))
    If (Asc(CurrentChar) < 65 Or Asc(CurrentChar) > 90) And Not IsNumeric(CurrentChar) Then
      Is_AlphaNum = False
      Exit Function
    End If
  Next
  Is_AlphaNum = True
End Function

Public Sub Main()
  Dim TestString As String

  TestString = "abcde#"
  Debug.Print Is_AlphaNum(TestString)
  TestString = "AbcdeFgh123"
  Debug.Print Is_AlphaNum(TestString)
End Sub