作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/07/19 05:42:04
VB输入一个字符串,统计其中字母a的出现次数,用过程实现
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
Next
MsgBox N
End Su