办公和生活家具购置费按照设计定员人数乘以（)计算。A.单项指标B.差旅交通费C.综合指标D.职工福利

阅读程序 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

阅读程序： 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．出错

请阅读程序： 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.出错

阅读程序： 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．出错

请阅读程序：

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.出错

程序执行结果s的值是【 】。 Private Sub subl(Byval p As Integer) p=p * 2 End Sub Private Sub Command1_Click() Dim i As Integer i=3 Call sub1 (i) if i＞4 then i=i mod 2 Print cstr(i) End Sub