单项选择题

下面程序运行后，输出结果是( )。
Private Sub mysub(b()As Integer,Optional ByVal n As Integer=2)
For I=1 to 4
b(I)=n*I
Next I
End Sub
Private Sub Command1_Click()
Dim a(1 to 4)As Integer,I As Integer
Call mysub(a(),5)
Mysub a()
For I=1 to 4
Print a(I);
Next
End Sub