求vb大神帮忙，怎么编写这个程

Asc(Str) 返回字符的编码：
dim tmp as string
dim a%,b%,c%,d%
for i=1 to len(text1.text)
tmp=mid(i,1)
if tmp>=asc("A") and tmp<=asc("Z") then
a=a+1
elseif ...
....

谢谢