在窗体上画一个命令按钮，然后编写如下事件过程：

Sub BTC（oldCopy（） As Integer, newCopy（） 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（）

Dim m（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

程序运行后，单击命令按钮输出结果为（ ）。

A．0

B．2

C．10

D．25