在窗体上画一个命令按钮，然后编写如下事件过程：
Sub BTC(old Copy( ) As Integer，new Copy( ) As Integer)
Dim i AS Integer
For i=LBound(oldCopy( ))To UBound(oldCopy( ))
newCopy(i)=oldCopy(i)
Next i
End Sub
Private Sub Command1 _ Click( )
Dimm(10) As Integer，n(10)As Integer
For i=1 To 10
m(i) =i*i
Next i
Call BTC(m，n)
Print n(5)
End Sub
程序运行后，单击命令按钮输出结果为( )。