要改成这样；
for i = 1 to Len(s)
j = Mid(s,i,1)
select case j
case "a" to "z","A" to "Z"
C = C + 1
CASE "0" TO "9"
D = D + 1
CASE ELSE
M= M+1
END SELECT
NEXT
Next要放到End Select后面一行
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024