计算机二级
请阅读程序：Sub subP(b（ ）As Integer)For i=1 To4b(i)=2*iNext iEnd SubPrivate Sub Commandl Click（ ）Dim a(1 To 4)As Integera(1)=5:a(2)=6:a(3)=7:a(4)=8subP a（ ）For i=1 To 4Print a(i)Next iEnd Sub运行上面的程序，单击命令按钮，则输出结果是（ ）。A.2468B.5678C.10121416D.出错
题目
请阅读程序：
Sub subP(b（ ）As Integer)
For i=1 To4
b(i)=2*i
Next i
End Sub
Private Sub Commandl 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.出错
相似问题和答案
第1题：
下列程序段执行时在屏幕上显示的结果是
DIME a(6)
a(I)=1
a(2)=l
FOR i=3 TO 6
a(i)=a(i-1)+a(i-2)
NEXT
?a(6)
A．5
B．6
C．7
D．8
解析：该程序最后求得的结果是a(6)，其中：a(6)=a(4)+a(5)，a(5)=a(3)+a(4)，a(4)=a(2)+a(3)，a(3)=a(1)+a(2)=2，最后可分别求得a(4)=3，a(5)=5，a(6)=8。
第2题：
阅读程序 SUB P(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 P A( ) FOR I = 1 TO 4 MSGBOX A(I) NEXT I END SUB 运行上面的程序，单击命令按钮COMMAND1后，消息框4次输出的内容分别是( )。
A．出错
B．10, 12, 14, 16
C．5, 6, 7, 8
D．2, 4, 6, 8
解析：VBA中，数组可以作为过程的参数进行定义和使用。主要有两种形式：一是数组元素作为过程参数使用，与普通变量作为参数使用相同，同样存在传值与传址两种调用情况；二是数组名作为过程参数使用，形式参数必须定义为没有下标的数组，实际参数则为数组名，而且这种数据传递采用传址的“双向”作用形式。本题就是数组作为过程参数的第二种使用形式，考虑到“双向”作用效果，正确答案为D。
第3题：
请阅读程序：
Option Base 1
Pfivate Sub Form_Click()
Dim Arr(4，4)As Integer
For i=1 To 4
For j=1 To 4
Arr(i,j)=(i-1)*2+j
Next j
Next i
For i=3 To 4
For j=3 To 4
Print Arr(j，i)；
Next j
Next i
End Sub
程序运行后，单击窗体，则输出结果是( )。
A．5 7 6 8
B．6 8 7 9
C．7 9 8 10
D．8 10 8 11
解析：本题利用嵌套for循环给数组Arr赋值。结果是Arr(3，3)=7，Arr(3，4)=8，Arr(4，3)=9，Arr(4，4)=10，其他与后面程序无关。然后再次利用嵌套循环输出，输出顺序为Arr(3，3)，Arr(4，3)，print，Arr(3，4)，Arr(4，4)，所以结果为C。
第4题：
1、阅读程序，给出程序的执行结果。 #include＜stdio.h＞ int Square（int i) { return i*i; } int main（void) { int i=0; i=Square（i ); for（;i ＜ 3; i++) { static int i=1; i +=Square（i ); printf（"%d,", i ); } printf（"%d", i) return 0; }
第5题：
请仔细阅读程序，将程序的执行结果详细的写出来。注意字符和标点符号的书写 #include ＜stdio.h＞ int main（) { int i,j=4; for（i=j;i＜=2*j;i++) switch（i/j) { case 0: case 1: printf（"*");break; case 2: printf（"#"); } return 0; }
第6题：
请阅读程序． 0ption Base 1 Private Sub Fo,m Click（ ） Dim Arr(4，4)As Integer For i=1 To 4 For j=1 To 4 Arr(i，j)=(i=1)*2+j Next j Next i For i=3 To 4 For j=3 To 4 Print Arr(j，i)； Next j Print Next i End Sub 程序运行后，单。旨窗体，则输出结果是（ ）。
A.5 7 6 8
B.6 8 7 9
C.7 9 8 10
D.8 10 8 11
C。【解析】本题利用嵌套for循环给数组Arr赋值。结果是Arr(3，3)=7，Arr(3，4)=8，Arr(4，3)=9，Arr(4，4)=10，其他与后面程序无关。然后再次利用嵌套循环输出，输出顺序为Arr(3，3)，Arr(4，3)，print，Arr(3，4)，Arr(4，4)，所以结果为C。
第7题：
8、下列程序中，哪一行语句有错误 。 1 PROGRAM P01 2 INTEGER:: I,S=0 3 DO I=10,1,-2 4 I=I*I 5 S=S+I 6 ENDDO 7 END PROGRAM
A．2
B．3
C．4
D．7
第8题：
阅读程序： Sub p( b () As Integer)For i =1To 4 b(i) = 2(iNext 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 call p (a) For i=1 To 4 Print a(i) Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为。
【解析】本题综合考查Sub过程的建立与调用以及数组的赋值。P过程为参数b()赋值，赋值方法为b()中的元素值等于其下标的2倍。在事件过程中，数组a(1 to 4)先被逐一赋值，然后以传地址的方式被p过程调用。在调用中，a(i)被重新按照p过程的赋值方式（即元素值等于对应下标值的2倍）赋值。由于是以传地址的方式传送a(1 to 4)，故在调用完p过程后，a(1 to 4)，故在调用完p过程后，a(1 to 4)中的元素值将保留，故空白处填：2 4 6 8。
第9题：
L1是不带头结点的单链表。以下算法功能是什么？ Status fun（LinkList &L1, LinkList &L2) {p=L1; n=0; while（p){n++; p=p-＞next;} p=L1; for（i=1;i＜n/2;i++)p=p-＞next; L2=p-＞next; p-＞next=NULL; return OK; }
第10题：
以下代码符合MATLAB语法的是（）
A．for i=1：10 i++ end
B．While (i＜10) i=i+1; end
C．while (i＜10) { i=i+1; }
D．for i=1：10 i end