vb题目 达人进 急！！！

来源：百度知道 编辑：UC知道 时间：2024/06/01 09:46:18
多行文本框中任意输入多行文字，统计并输出每个字母和数字出现次数。
如字母A~Z分别出现多少次，数字0~9分别出现多少次？要求用过程实现（大小写不敏感，即大写A和小写a都记为字母A）。

Private Sub Command1_Click()
Dim Num(0 To 9) As Long, StrAZ(1 To 26) As Long
Call TongJi(Text1.Text, Num, StrAZ)

'显示结果
Me.Cls: Me.AutoRedraw = True
For I = 1 To 9
If Num(I) > 0 Then Me.Print I & "：" & Num(I) & "次"
Next
For I = 1 To 26
If StrAZ(I) > 0 Then Me.Print Chr(I + 64) & "：" & StrAZ(I) & "次"
Next
End Sub
Private Sub TongJi(nStr As String, Num() As Long, StrAZ() As Long)
Dim I As Long, S As Long, Str1 As String
For I = 1 To Len(nStr)
Str1 = UCase(Mid(nStr, I, 1))
S = Asc(Str1)
If S > 47 And S < 58 Then S = S - 48: Num(S) = Num(S) + 1 '统计数字
If S > 64 And S < 91 Then S = S - 64: StrAZ(S) = StrAZ(S) + 1 '统计字母
Next
End Sub

Dim c As Long, e_word As Long
Dim Num As Long, s As Long

Private Sub Command1_Click()