dim ss as string, s as string, dx as integer, xx as integer, i as integer
ss="sREadsGadsaBVhVgdsNaNfBdweNgBjNiNlBNeBrNiogyiChXCgXkDFnDbHlnNklbNv"
for i=1 to len(ss)
s=mid(ss,i,1)
if s>="A" and s<="Z" then
dx=dx+1
elseif s>="a" and s<="z" then
xx=xx+1
end if
next
msgbox "大写字母" & dx & "个" & vbcrlf & "小写字母" & xx & "个"