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
Dim i As Integer
fun = 0
For i = 1 To Len(Text1.Text)
If Asc(Mid(Text1.Text, i, 1)) >= 65 And Asc(Mid(Text1.Text, i, 1)) <= 90 Then
fun = fun + 1
End If
Next
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024