我记得字母，数字和其他符号的ASC码好像是连着，比如他们起始ASC码是a,结束ASC码是b：
dim y as integer=0
dim i as integer
dim x as string
for i=1 to text1.text.length
x=right(left(text1.text,i),1)'取字符串的第i个字符串
if asc(x)>a and asc(x)y=y+1
end if
next
如果ASC没有连着，在里面的判断语句多加点判断语句就可以了。。这个方法不知道算不算笨的啊，很久没接触VB了
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024