VB大神求帮忙，急急急急急急！！！！！！

for i = 1 to len(s) a=asc(mid(s,i,1)) if a>=65 and a<=90 then j=j+1 end if next fun=j