![[填空题] 下面这个Sub过程的功能是统计字符串中“a”的个数，请在空白处填上合适的代码完成程序。 Private Sub numCount()Dim hum As Integers＄ = &qu](http://www.mshxw.com/aiimages/31/249468.png "[填空题] 下面这个Sub过程的功能是统计字符串中“a”的个数，请在空白处填上合适的代码完成程序。 Private Sub numCount()Dim hum As Integers＄ = &qu")
[填空题] 下面这个Sub过程的功能是统计字符串中“a”的个数，请在空白处填上合适的代码完成程序。
Private Sub numCount()
Dim hum As Integer
s＄ = "software And hardware"
num = Len(s$)
For i = 1 To hum
b$=______
If b$ = "a" Then x = x+1
Next i
Print "x="; x
End Sub
参考答案：
Mid(s$,i,A)问题解析:
分析题目和程序段可知，空白处的作用是取出字符串s中的第i个字符。这里可以使用Mid函数来取出第i个字符，然后对比该字符是否是字符a。如果是，则变量x加1；如果不是，则跳过if后面的语句继续循环，最后输出x。
