有如下程序：
Option Base 1
Private Sub Form_Click（）
Dim Xyz（50）
For i=1To 5
j=i*i
Xyz（j）=j
Next i
Print Xyz（25）
End Sub
程序运行时输出的结果是（）。

A.36
B.出错信息
C.16
D.25