Question

vb编程 ：统计文本框text1中大写字母的个数。

这是我们的一个考试题，谢谢了~！！！！

Answer 1

Dim n As Integer
n = 0
Dim str As String
For i = 1 To Len(Text1)
str = Mid(Text1, i, 1)
If str <= "Z" And str >= "A" Then n = n + 1
Next
Print n