下面程序运行后，输出结果是( )。
Private Sub mysub(b()As Integer,OptionalByValnAsInteger=2)
ForI=1 to 4
b(I)=n*I
NextI
End Sub
Private Sub Commandl_Click()
Dima(1 to 4)As Integer，I As Integer
Callmysub(a()，5)
Mysuba()
ForI=1 to 4
Print a(i)；
Next
End Sub

A．5101520

B．2468

C．出错

D．0000