题目：
在窗体上画一个命令按钮，然后编写如下事件过程： 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。
粒子从正极板边缘以某一初速度垂直于电场方向射入两极板之间，到达负极板时恰好落在极板中心.已知质子电荷为e，质子和中子的质量均视为m，忽略重力和空气阻力的影响，求：