【按键精灵】判断是否全是英文

Mr_老冷

[Visual Basic] 纯文本查看 复制代码

 dim str = "azAZ09"
TracePrint 判断是否全英文(str)
Function 判断是否全英文(str)          
    Dim i,tmp
    For i = 1 To Len(str)
        tmp = Mid(str, i, 1)
        tmp= asc(tmp)
        If tmp > 122 or tmp < 65 or (tmp > 90 and tmp < 97) Then 
            TracePrint tmp
            判断是否全英文 = False
            exit Function
        End If
    Next
    判断是否全英文 = True
End Function