[填空題] 下列這個(gè)Sub過(guò)程的功能是：統(tǒng)計(jì)字符串中“a”的個(gè)數(shù)，請(qǐng)?jiān)诳瞻滋幪钌虾线m的代碼，將程序補(bǔ)充完整。

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

Mid(s$,i,A)

分析題目和程序段可知，空白處的作用是取出字符串。中的第i個(gè)字符，這里我們可以使用Mid函數(shù)來(lái)取出第i個(gè)字符，然后對(duì)比該字符是否是字符a，如果是，則變量x加1，如果不是則跳過(guò)if后面的語(yǔ)句繼續(xù)循環(huán)，最后輸出x。