下列这个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

依据企业所得税的优惠政策，下列收入中，属于免税收入的有（）

A.企业购买国债取得的利息收入

B.非营利组织从事营利性活动取得的收入

C.在境内设立机构的非居民企业从居民企业取得的与该机构有实际联系的红利收入

D.在中国境内设立机构的非居民企业连续持有上市公司股票不足12个月取得的投资收益