[单项选择题] 在窗体上画一个命令按钮，然后编写如下事件过程：　　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 Integ

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。

当前位置：IT认证＞BASIC题库

[单项选择题] 在窗体上画一个命令按钮，然后编写如下事件过程： 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 Integ

相关题目: