答案: '验证第一个字符是否为字母_
'false :不是;true :是
'*****************************************************
function IsFirstStr(str)
IsFirstStr = true
str=LCase(str)
strSource ="abcdefghijklmnopqrstuvwxyz"
if InStr(strSource,mid(str,1,1))<=0 then
IsFirstStr = false
else
IsFirstStr = true
end if
end function