最近在研究一个小工具，用到这个功能，但是发现网上没有现成的代码，所以自己写了一个。此VBS代码用于判断一个输入的字符串的字符形式——全都是字母，或不全是字母。
Dim Yuanzifan '欢迎访问原梓番博客
Dim LenOfString
Dim Arr(100)
Yuanzifan=InputBox("输入一个长度小于100的字符串")
LenOfString=Len(Yuanzifan)
For i=1 To LenOfString
Arr(i)=Mid(Yuanzifan,i,1)
Next
SType=0
For j=1 To LenOfString
If Asc(Arr(j))>96 And Asc(Arr(j))<123 Then
SType=SType+1
ElseIf Asc(Arr(j))>64 And Asc(Arr(j))<91 Then
SType=SType+1
End If
Next
If SType=LenOfString Then
MsgBox "全是字母:www.yuanzifan.com"
Else
MsgBox "不全是字母:www.yuanzifan.com"
End If
评论