阅读下面的程序； Function Func(x As Integer，y As Integer)As Integer Dim n As Integer Do While n ＜ = 4 x=x + y n = n + 1 Loop Func=x End Function Private Sub Command1_Click() Dim x As Integet, y As Integer Dim n As Integer，z As Integer x=1 y=1 For n = 1 To 6 z=Func(x，y) Next n Print z End Sub 程序运行后，单击命令按钮，输出的结果为．

A．16

B．21

C．26

D．31

[单选题]阅读程序： 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 8B．5 6 7 8C．10 12 14 1

[主观题]阅读程序： 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 subP(b()As Integer)F．or i=1 To 4b(i)=2*iNext iE．nd SubPrivate Sub Command 1_Click()D．im a(1 To 4)As Integera(1)=5：a(2)=6：a(3)=7：a(4)=8subP a()F．or i=1 To 4Print a(i)Next iE．nd Sub运行上面的程序，单击命令按钮，则输出结果是( )。A．2 4 6 8B．5 6 7 8C．10 12 14 16D．出错

[单选题]阅读程序 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．1

[主观题]阅读下面的程序段：sum＝0for i＝1 to 3for j＝i to 4for k＝j to 5sum＝sum+1next knext jnext i执行上面的三重循环后，sam的值为______。

[主观题]阅读下面的程序段：sum=0for i=1 to 3for j=i to 4for k=j to 5next jnext i执行上面的三重循环后，sum的值为( )。

[单选题]阅读下面的程序段： K=0 For I=1 to 3 For J=1 to I K=K+J Next J Next I 执行上面的语句后，K的值为______。A．8B．10C．14D．21

[单选题]阅读下面的程序段： For i=1 To 3 Forj=i To 3 For k=1 To 3 a=a+i Next k Nextj Next i 执行上面的3重循环后，a的值为A．3B．9C．14D．30

[单选题]下面的程序 main() { int x=3,y=0,z=0； if(x=y+z)printf("***")； else printf("####")； } _______。A．有语法错误不能通过编译B．输出****C．可以通过编译，但是不能通过连接，因而不能运行D．输出####

[单选题]阅读下面的程序段： For i=1 To 3 For j=i To 3 For k= 1 To 3 a=a+i Next k Next j Next i 执行上面的3重循环后，a的值为A．3B．9C．14D．30