填空题

下列这个Sub过程的功能是：统计字符串中“a”的个数，请在空白处填上合适的代码，将程序补充完整。
Private Sub numCount()
Dim num 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