Question

VB题目 关于统计的

4、在文本框中输入字符串，如下图所示，单击【统计】按钮统计出其中的字母、数字、空格的个数，结果显示在三个不同的文本框中。使用三种方法实现：
（1）使用事件过程实现
（2）定义并调用子过程实现
（3）定义并调用自定义函数实现

Answer 1

Private Sub Command1_Click()
Dim a(3)
s = Len(Text1.Text)
For i = 1 To s
n = Mid(Text1.Text, i, 1)
If UCase(n) = " " Then a(0) = a(0) + 1 '空格
If UCase(n) >= "A" And UCase(n) <= "Z" Then a(1) = a(1) + 1 '字母
If UCase(n) >= "0" And UCase(n) <= "9" Then a(2) = a(2) + 1 '数字
Next i
Text2.Text = a(0) & "个空格" '空格
Text3.Text = a(1) & "个字母" '字母
Text4.Text = a(2) & "个数字" '数字
End Sub