有以下程序: Sub subP(b()As Integer) For i=1 To 4 b(i)=2*i Next i End Sub Private Sub Command1_Click()

admin2009-03-16  23

问题 有以下程序:    Sub subP(b()As Integer)       For i=1 To 4          b(i)=2*i       Next i    End Sub    Private Sub Command1_Click()       Dim a(1 To 4)As Integer       a(i)=5       a(2)=6       a(3)=7          a(4)=8          subP a()          For i=1 To 4             Print a(i)          Next i    End Sub    运行上面的程序,单击命令按钮,输出结果为______。

选项 A、 2       4         6   8
B、5   6   7   8
C、10   12   14    6
D、出错

答案A

解析 过程SubP的参数b()是按地址传递的(ByRef,数组的传递方式),而subP过程用语句subP a()调用后,形参b()的值为b(1)=2,b(2)=4,b(3)=6,b(4)=8,则实参a()的值亦为以上值。
转载请注明原文地址:https://jikaoti.com/ti/mdq0FFFM
0

最新回复(0)