单项选择题

有如下程序,输出结果为( )。
Private Sub Form_Activate()
Dima
a=Array(1,2,3,4,5)
Fori=LBound(a)To UBound(a)
a(i)=i*a(i)
Nexti
Printi,LBound(a),UBound(a),a(i)
End Sub

A.4 0 4 25
B.5 0 4 25
C.不确定
D.程序出错