VB编程急求！输入一个字符串，统计各小写字母出现的次数。注：小写字母!!!

Question

要区分大小写！但只统计小写字母出现的次数！

Answer 1

Private Sub Command1_Click()
   Dim a(1 To 26)
   stri = Text1.Text
   For i = 1 To Len(stri)
        s = Mid(stri, i, 1)
        If s >= "a" And s <= "z" Then
            k = Asc(s) - Asc("a") + 1
            a(k) = a(k) + 1
        End If
   Next i
   
   stri = ""
   For i = 1 To 26
        If a(i) <> 0 Then
            stri = stri & Chr(i + Asc("A") - 1) & "=" & a(i) & " "
        End If
   Next i
   Text2.Text = stri
End Sub

Answer 2

匿名的 可以私信我