以下程序的运行结果是 。 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 s 1 a () For i = 1 To 4 Print a(i); Next i End Sub A. 6 7 8 9 B. 12 14 16 18 C. 2 4 6 8 D. 1 2 3 4