有以下程序： 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 30

问题有以下程序： 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://kaotiyun.com/show/Fk1p777K

本试题收录于：二级VB题库NCRE全国计算机二级分类