End functio Private Sub Commandl Click Dim a As Integer F 1 To 3 Sum= Sum +f(a) Next i Print su End Sub A.24 B.12 C.28 D.32 (7)以下程序的运行结果是 Dim x As Integer, y As Integer, z As Integer Sub sl(a As Integer, b As Integer) D a End Sub Sub s2(a As Integer, By Val b As Integer) Dim c as I b=b+2 End Sub Private Sub Command1 Click Call sl(x, y) Print x+y+z Call s2(x, y) Print+ End Sub A.2428 B.2028 C.2018 (8)以下程序的运行结果是: Sub sl(b(As Integer) For i= 1 To 4 b(1)=2*i Next End Sub Private Sub Command1 Click Dim a(l To 4)As Integer For i= 1 To 4 a(1)=1+5 sI ao For i= 1 To 4 Print a(i) End sub A.6789B.12141618C.2468D.1234 2填空题 (1)一个工程中包括两个窗体Form1和Form2,启动窗体为Form1。在Fom1上有一命 令按钮 Command1。程序运行后,要求单击命令按钮时,Form1窗体消失,显示窗End Function Private Sub Command1_Click() Dim a As Integer a = 2 Sum = 0 For i = 1 To 3 Sum = Sum + f(a) Next i Print Sum End Sub A. 24 B. 12 C. 28 D. 32 （7）以下程序的运行结果是： 。 Dim x As Integer, y As Integer, z As Integer Sub s1(a As Integer, b As Integer) Dim c As Integer a = 2 * a b = b + 2 c = a + b End Sub Sub s2(a As Integer, ByVal b As Integer) Dim c As Integer a = 2 * a b = b + 2 c = a + b End Sub Private Sub Command1_Click() x = 4 y = 4 z = 6 Call s1(x, y) Print x + y + z; Call s2(x, y) Print x + y + z End Sub A. 24 28 B. 20 28 C. 20 18 D. 20 20 （8）以下程序的运行结果是： 。 Sub s1(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 For i = 1 To 4 a(i) = i + 5 Next i s1 a() For i = 1 To 4 Print a(i); Next i End Sub A. 6 7 8 9 B. 12 14 16 18 C. 2 4 6 8 D. 1 2 3 4 2 填空题 （1） 一个工程中包括两个窗体 Form1 和 Form2，启动窗体为 Form1。在 Form1 上有一命 令按钮 Command1。程序运行后，要求单击命令按钮时，Form1 窗体消失，显示窗