设有如下程序：
Option Base 1
Private Sub Form Click()
Dim a(5)As String，i As Integer
For i=1 To 5
a(i)=Chr(Asc("A")+i)
Call f(a，i)
Next i
End Sub
Sub f(ta()As String，n As．Integer)
Dim i As Integer
For i=1 To n
Print ta(i)；
Next i
Print
End Sub
对上述程序．以下叙述中正确的是( )。