vb 输入一个字符串,编写程序统计其中每个字母出现的次数 (不区分字母大小写)

Question

输入一个字符串，编写程序统计其中每个字母出现的次数 (不区分字母的大小写)
效果如图

Answer 1

Private Sub Command1_Click()

  Dim a(26) As Integer

  s = Text1.Text

  For i = 1 To Len(s)

    b = Asc(Mid(s, i, 1))

    If b >= 97 And b <= 97 + 25 Then b = b - 32

    If b >= 65 And b <= 65 + 25 Then a(b - 64) = a(b - 64) + 1

  Next i

  Text2.Text = ""

  For i = 1 To 26

    Text2.Text = Text2.Text & Chr(64 + i) & "=" & a(i) & "  "

    If i Mod 7 = 0 Then Text2.Text = Text2.Text & vbCrLf

  Next i

End Sub

Answer 2

Dim ABC(65 To 90) As Integer
Dim AB As Integer
For i = 1 To Len(Text1) '
AB = Asc(UCase(Mid(Text1, i, 1)))
If AB > 64 And AB < 91 Then ABC(AB) = ABC(AB) + 1 '是字母A-Z
Next i
For j = 65 To 90
Text2 = Text2 & Chr(j) & "=" & ABC(j) & Chr(9)
Next j

Answer 3

像是正在考试啊！