VB输入一个字符串,统计其中字母a的出现次数,用过程实现

网友回答

Private Sub Command1_Click()
Dim istr As String
istr = InputBox(, , abcdeaa)
Num istr
End Sub
Private Sub Num(ByVal istr As String)
Dim i As Integer
Dim N As Integer
For i = 1 To Len(istr)
If Mid(istr, i, 1) = a Then N = N + 1
NextMsgBox N
End Sub