Private Sub Command1_Click() '按钮，点击此按钮，计算开始
Call fun(Text1.Text) '调用模块
End Sub
Private Sub fun(str As String)
Cls '每次输出前先清屏
Dim ShuZi As Integer '数字个数
Dim ZiMuU As Integer '大写字母个数
Dim ZiMuL As Integer '小写字母个数
Dim QiTa As Integer '其他字符个数
Dim KongGe As Integer '空格个数
Dim i As Integer 'i 为循环变量
Dim a As String 'a存放str中取得的一个字符
Dim b As Integer 'b中存放a的ASCII值
For i = 1 To Len(str) 'i 为循环变量
a = Mid(str, i, 1) 'a存放str中取得的一个字符
b = Asc(a) 'b中存放a的ASCII值
If b >= 65 And b <= 91 Then '为大写字母
ZiMuU = ZiMuU + 1
Else
If b >= 97 And b <= 123 Then '为小写字母
ZiMuL = ZiMuL + 1
Else
If b >= 48 And b <= 57 Then '为数字
ShuZi = ShuZi + 1
Else
If a = " " Then '为空格
KongGe = KongGe + 1
Else '其他字符
QiTa = QiTa + 1
End If
End If
End If
End If
Next i
Print "电气07-9班 陈柄衡"
Print
Print "注意：此程序中汉字记在其他字符范围内！"
Print
Print "大写字母个数为" & ZiMuU, "小写字母个数为" & ZiMuL, "字母总数为" & ZiMuL + ZiMuU
Print "数字个数为 " & ShuZi
Print "空格个数为 " & KongGe
Print "其他字符个数为" & QiTa
End Sub
Private Sub Form_Load()
Me.Caption = "统计由实参传来的一个字符中的字母,数字,空格和其它字符的个数。"
End Sub
