在窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输出为( )。 Option Base 1 Private Sub fun(a()As Integer,n As Integer) ReDim Preserve a(6) a(6)=a(1)*a(3)*a(5) n=UBound(a) End Sub Private Sub Command1_Click() Dim arr1()As Integer,k As Integer ReDimarrl(5) For i=1 To 5 arrl(i)=i Next i k=6 Call fun(arrl，k) Print arrl(1)；arrl(k) End Sub