[单项选择题] 在窗体上画一个命令按钮，然后编写如下事件过程：　　Sub BTC(old Copy( ) As Integer，new Copy( ) As Integer)　　　　Dim i AS

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

A．0

B．2

C．10

D．25

D

在此题中定义了一个数据拷贝函数，用数组来保存数据，在主调过 程中，先用For…Next循环语句给m( )赋给，然后调用BTC函数，将m( )中的数据赋给n ( )，最后输出n(5)。在数据拷贝函数中，用了函数LBound(oldCopy( ))和UBound(old- Copy( ))分别获得数组的下界和上界，控制循环次数。用newCopy(i)=oldCopy(i)赋值语句，将m数组中的数据赋给n数组。因为m(5)=25，数组n与数组m等价，所以n (5)也是25。