问题 单项选择题

请阅读程序:
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(1)=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
16
D.出错

答案

参考答案:A

解析: 本题考查数组为参数在函数间的传递。本题中,当用户点击控件Command1时,控件的Command1_Click()事件过程被触发,在此过程中首先定义了一个包含4个元素的数组a,并赋值,然后将数组a为参数传递给过程subP,在过程subP中执行For循环分别给a中的4个元素赋值为2、4、6、8。函数执行结束返回过程Command1_Click(),利用For循环打印输出a数组中的值,所以选A。

单项选择题
单项选择题