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

以下程序的运行结果是 Sub s1(b() As Integer) For i = 1 To 4 b(i) = 2 * i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4) As Integer For i = 1 To 4 a(i) = i + 5 Next i s1 a() For i = 1 To 4 Print a(i) Next i End Sub

下列程序的运行结果为（ ）。 Private Sub Command1_Click() Dim a(5) As String Dim i As Integer For i = 0 To 5 a(i) = i + 1 Print a(i); Next i End Sub

下列程序: Option Base 1 Private Sub Form_Click() Dim a(5，5) For i ＝ 1 To 5 For j ＝ 1 To 5 k ＝ k ＋ 1 a (i，j)＝ k Next j Next i For i ＝ 1 To 5 s ＝ s ＋ a (i，i) Next i Print s End Sub 运行时的输出结果是( )。

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