Question

输入一串字符统计其中某字母个数vb

VB 输入一个字符串，分别统计其字母A,E,Z的个数，不区分大小写
求大神指导

Answer 1

Private Sub Command1_Click()

  s = Text1.Text

  For i = 1 To Len(s)

    If Mid(s, i, 1) = "A" Or Mid(s, i, 1) = "a" Then

      na = na + 1

    Else

      If Mid(s, i, 1) = "E" Or Mid(s, i, 1) = "e" Then

        ne = ne + 1

      Else

        If Mid(s, i, 1) = "Z" Or Mid(s, i, 1) = "z" Then

          nz = nz + 1

        End If

      End If

    End If

 Next i

 Print "Na="; na, "Ne="; ne, "Nz="; nz

 End Sub

Answer 2

's : 字符串
'c : 指定的字符 
Public Function CharCount(ByVal s As String, ByVal c As String) As Integer
    Dim i As Integer, count As Integer
    i = 1
    count = 0
    Do While (i <= Len(s))
        If (Mid(s, i, 1) = c) Then count = count + 1
        i = i + 1
    Loop
    CharCount = count
End Function

'调用
Dim count as Integer
count =CharCount("AAABBEEEZZCCC", "A")
'结果：count = 3
count =CharCount("AAABBEEEEEZZCCC", "E")
'结果：count=5
count =CharCount("AAABBEEEEEZZCCC", "Z")
'结果：count=2