单项选择题

在窗体上画一个命令按钮，然后编写如下事件过程：　　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　　程序运行后，单击命令按钮输出结果为

点击查看答案&解析