有如下程序：Private Sub Command1_Click（) a$="A WCIRKER IS HERE" x=Len（a$) For i=1 To x-1

有如下程序： Private Sub Form_Click() Dim Check, Counter Check=True Counter=0 Do Do While Counter＜20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End If Loop Loop Until Check=False Print Counter, Check End Sub 程序运行后，单击窗体，输出结果为______。

A．15 0

B．20 -1

C．10 True

D．10 False

有如下程序： Private Sub Form_Click() Dim Check,Counter Check=True Counter=0 Do Do While Counter＜20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End If Loop Loop Until Check=False Print Counter,Check End Sub 程序运行后，单击窗体，输出结果为()。

A．15 0

B．20 -1

C．10 True

D．10 False

对于如下程序，单击Co皿andl事件发生后，窗体上显示的内容为 ______。 Private Sub Command1_Click() Dim i As Integer,a a As Integer Do While i＜20 Do While True If i Mod 10 = 0 Then Exit Do Else i=i-1 End If Loop i=i+11 a=a+1 Loop Print a End Sub

A．21

B．32

C．33

D．11

在窗体上画—个命令按钮和—个文本框，名称分别为Command1和Text1，然后编写如下程序： Private Sub Command1_Click() a=InputBox("请输入日期(1～31)") t="旅游景点："&IIf(a＞0 And a＜=10，"长城"，"")&_ IIf(a＞10 And a＜=20，"故宫"，"")&IIf(a＞20 And a＜=31，"颐和园"，"") Text1.Text=t End Sub 程序运行后，如果从键盘上输入16，则在文本框中显示的内容是

A．旅游景点：长城故宫

B．旅游景点：长城颐和园

C．旅游景点：颐和园

D．旅游景点：故宫

（9 ）在窗体上画一个名称为 Command1 的命令按钮。然后编写如下程序：

Option Base 1

Private Sub Command1_Click （）

Dim a （10 ） As Integer

F or i=1 To 10

a （i ） =i

Next

Call swap （【 11 】 ）

For i=1 To 10

Print a （i ） ;

Next

End Sub

Sub swap （b （） As Integer ）

n =U b ound （b ）

For i=1 To n / 2

t =b （i ）

b （i ） =b （n ）

b （n ） =t

【 12 】

Next

End Sub

上述程序的功能是，通过调用过程 swap ，调换数组中数值的存放位置，即 a (1 ) 与 a (10 ) 的值互换， a (2 ) 与 a (9 ) 的值互换 ， …… 。请填空。

有如下程序： Private Sub Command1_Click() as="A WORKER IS HERE" x = Len(a$) For i=1 To x - 1 b$ =Mid$(a$, i,3) If b$ ="WOR" Then S=S+ 1 Next Print S End Sub 单击命令按钮，程序运行结果为

A．1

B．2

C．3

D．5

有如下程序：

Private Sub Form_C1ick()

E=1:F=1

For j=1 To 3

E=E+F:F=F+E

Next

Print E;F

End Sub

该程序的输出结果是

A．6 6

B． 5 8

C． 13 21

D．34 55

（8 ）有如下程序：

Private Sub Form_Click （）

n=10

i=0

Do

i=i+n

n=n-2

Loop While n＞2

Print i

End Sub

程序运行后，单击窗体，输出结果为 【 10 】 。

有如下程序： Private Sub Commandl_Cick() a=10:b=50 Rem Print a;b Print bla Print a；b End Sub 运行后，单击命令按钮后的输出结果是 ()

A．10 50 50 10 10 50

B．10 50

C．10 50 50 10

D．50 10