要把A、B、C、D四包不同的商品放到货架上，但是，A不能放在第一层，B不能放在第二层，C不能放在第三层，D

B．尾髓

C．S＜suB＞1＜/suB＞～S＜suB＞5＜/suB＞

D．S＜suB＞1＜/suB＞～S＜suB＞5＜/suB＞和尾髓

E．S＜suB＞3＜/suB＞～S＜suB＞5＜/suB＞和尾髓

A．S＜suB＞1~2＜/suB＞

B．S＜suB＞3~5＜/suB＞

C．L＜suB＞1~2＜/suB＞

D．L＜suB＞2~4＜/suB＞

E．S＜suB＞4~5＜/suB＞

运行下列程序：

Private Sub Command1_Click()

s$ = "abcdefabcdefabcdef"

k = InStr(s$, "c")

Do While k ＞ 0

n = n + 1

s$ = Mid(s$, k + 1)

k = InStr(s$, "c")

Loop

Print n

End Sub

单击Command1命令按钮后，则在窗体上显示的结果是()。

A.1

B.2

C.3

D.4

A．L＜suB＞1＜/suB＞、L＜suB＞2＜/suB＞

B．L＜suB＞2＜/suB＞、L＜suB＞4＜/suB＞

C．S＜suB＞3~5＜/suB＞

D．S＜suB＞1~3＜/suB＞

E．L＜suB＞5＜/suB＞～S＜suB＞1＜/suB＞

有下列程序，运行后变量x1、y1和z1的结果分别是【 】、【 】和【 】。 Private Sub fun1(s，m，n) s = m + 1 m = n + 2 n = s + 3 End Sub Private Sub form. Click() Dim x1， y1 x1 = 1 ：y1 = 1 ：z1 = 1 Call fun1(x1，y1 + 1，(z1)) Debug．Print x1； y1； z1 End Sub

在窗体上画一个命令按钮，然后写出如下事件过程： Private Sub Command1 _ Click() S=1 Do S=(S + 1) ^(S + 2) Number=Number+1 Loop Until S＞=6 Print Number，S End Sub 程序运行后，输出的结果是

A．2 3

B．3 18

C．1 8

D．10 20