在窗体上画一个命令按钮,然后编写如下事件过程:  Sub BTC(old Copy( ) As Integer,new Copy( ) As Integer)    Dim i AS Integer    For i=LBound(oldCopy( ))T

admin2009-01-15  31

问题 在窗体上画一个命令按钮,然后编写如下事件过程:  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

答案8

解析 在此题中定义了一个数据拷贝函数,用数组来保存数据,在主调过程中,先用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。
转载请注明原文地址:https://jikaoti.com/ti/X380FFFM
0

最新回复(0)