[填空题] 下列这个Sub过程的功能是统计字符串中“a”的个数，请在空白处填上合适的代码，将程序补充完整。 Private Sub numCoun() Dim num As Integer s＄

[填空题] 下列这个Sub过程的功能是统计字符串中“a”的个数，请在空白处填上合适的代码，将程序补充完整。

Private Sub numCoun()

Dim num As Integer

s＄="software And hardware"

num=Len(s＄)

For i=1 To num

b＄=______

Ifb＄="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。