（12）有下列Sub过程: Sub Sub（x As Single,y As Single) t=x x=t/y y=t Mody End Sub 在窗体上的

A.2 34

B.12 34

C.2 3

D.12 3

（26 ）有以下程序：

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

窗体上有一个命令按钮和一个列表框(Sorted属性为True)，执行下列过程后的输出结果是()。 Private Sub Command1_Click() List1.AddItem"China" List1.AddItem"Great" List1.AddItem"Is",1 List1.AddItem"!",3 Print List1.List(2) End Sub

A．China

B．Great

C．Is

D．!

在窗体中使用一个文本框（名为 x ）接受输入值，有一个命令按钮 test ，事件代码如下：

Private Sub test_Click()

y = 0

For i=0 To Me!x

y=y+2*i+1

Next i

MsgBox y

End Sub

打开窗体后，若通过文本框输入值为 3 ，单击命令按钮，输出的结果是 【 12 】

设有以下窗体单击事件过程：

Private Sub Form_Click()

a=1

For i=1 To 3

End Select

Next i

End Sub

打开窗体运行后，单击窗体，则消息框的输出内容是()。

在代码中定义了一个子过程： Sub P(a,B)... End Sub 下面 ______调用该过程的格式是正确的。... End Sub 下面 ______调用该过程的格式是正确的。

A．Call P

B．Call P 10,20

C．CallP(10,20)

D．P(10,20)

A.a=4 b=2

B.a=4 b=4

C.a=2 b=4

D.a=6 b=8

下面程序运行的结果为

1

11 12

21 22 23

31 32 33 34

请在画线处填上适当的内容使程序完整。

Private Sub Form_Click()

Call [13]

End Sub

Private Sub Pl6()

End Sub

Private Sub p16()

ForI=1 to 4

Forj=1 to I

a= [14]

Print Tab(j-

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

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Sum=0 For x=1 To 5 Call subl(x, s) Sum=Sum+s Next x Print Sum End Sub Private Sub subl(y, w) w=1 For i=1 To y w=w*i Next i End Sub 程序运行后。单击命令按钮，则窗体上显示的内容是______。

A．5

B．120

C．153

D．160