VB统计输入的多行字符串中字母出现的次数(不区分大小写)，并对出现的字母显示其出现的个数。

Private Sub Command1_Click()
  Dim a(25) As Integer
  s = Text1
  For i = 1 To Len(s)
    c = Mid(s, i, 1)
    If c >= "a" And c <= "z" Then c = Chr(Asc(c) - 32)
    If c >= "A" And c <= "Z" Then
      j = Asc(c) - 65
      a(j) = a(j) + 1
    End If
  Next i
  j = 0
  For i = 0 To 25
    If a(i) > 0 Then
      j = j + 1
      Text2 = Text2 & Chr(65 + i) & "=" & a(i) & "  "
      If j Mod 8 = 0 Then Text2 = Text2 & vbCrLf
    End If
  Next i
End Sub

Private Sub Form_Load()
  Text1 = ""
  Text2 = ""
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/v2ejr3r22ry7fy3373.html