Question

写在文本框中输入一个字符串,并统计其中字母,数字,空格及其他字符的个数的VB代码

VB代码

Answer 1

我记得字母，数字和其他符号的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)<b then'如果这个字符的ASC码满足数字字母符号的ASC范围
y=y+1
end if
next

如果ASC没有连着，在里面的判断语句多加点判断语句就可以了。。这个方法不知道算不算笨的啊，很久没接触VB了