在窗体上画一个命令按钮,然后编写如下事件过程: Sub BTC(old Copy() As Integer,new Copy() A
在窗体上画一个命令按钮,然后编写如下事件过程: 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