（31 ）在窗体上画 1 个命令按钮，名称为 Command1 ，然后编写下列程序：Dim Flag As BooleanPrivate

（31 ）在窗体上画 1 一个名称为 Command1 的命令按钮，并编写以下程序

Private Sub Command1_Click （）

Print fun （“ ABCDEFG ” ）

End Sub

Function fun （st As String ） As String

stlen=Len （st ）

temp= ””

For k

temp=temp=Mid(st,k,l)+Mid(st,stlen-k+1 ， 1)

Next k

fun=temp

End Function

程序运行时，单击命令按钮，则窗体上显示的是（）

A ） ABCDEFG

B ） AGBFCE

C ） GFEDCBA

D ） AGBFCED

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Dim k As Integer Private Sub Form_Load() k=15 End Sub Private Sub Command1_Click() Static b As Integer b=b+k k=k+1 Print k，b End Sub 程序运行时，两次单击命令按钮Command1后，在窗体上显示的第二行是()。

A．17 31

B．15 31

C．17 16

D．2 1

在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click_() For n=1 To 20 If n Mod 3＜＞0 Then m=m+n\3 Next n print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是 ______。

A．15

B．18

C．21

D．24

（23 ）在窗体上画 1 个名称为 Command1 的命令按钮，然后编写下列事件过程：

Private Sub Command1_Click()

a=0

For i=1 To 2

For j=1 To 4

If j Mod 2＜＞0 Then

a=a-1

End If

a=a+1

Next j

Next i

Print a

End Sub

程序运行后，单击命令按钮，输出结果是（）。

A ） 0

B ） 2

C ） 3

D ） 4

在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_ Click() c=1234 c1=Trim(str(c)) For i=1 To 4 Print ______ NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容： 1 12 123 1234则在横线外应填入的内容为______。

A．Right (c1，i)

B．Left(c1，i)

C．Mid(c1，i，1)

D．Mid(c1，i，i)

在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_click() Dim a As Integer,s As Integer a=8 s=1 Do s=s+a a=a-1 Loop While a＜=0 Print s；a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容，是 ______。

A．79

B．340

C．97

D．死循环

在窗体上画—个名称为Command1的命令按钮，然后编写如下代码： Option Base 1 Private Sub Command1_Click() d=0 c=10 x=Array(10，12，21，32，24) For i=1 To 5 If x(i)＞c Then d=d+x(i) c=x(i) Else d=d-c End If Next I Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为______。

A．89

B．99

C．23

D．77

在窗体上画—个命令按钮(名称为Command1)，并编写如下代码：Function Fun1 (ByVala As Integer, b As Integer)As Integer Dim t As Integer t=a-b b=t+ a Fun 1=t+ bEnd FunctionPrivate Sub Command1_ Click() Dim x As Integer x=10 Print Fun1(Fun1 (x,(Fun1(x，x-1))),x-1)End Sub程序运行后，单击命令按钮，输出结果是 ______。

A．10

B．0

C．11

D．21

（33 ）在窗体上画 1 个名称为 Command1 的命令按钮，然后编写如下事件过程

Option Base 1

Pribate Sub Command1_Click （）

Dim a （5.5 ） As Integer

For i=1 To 5

For j=1to5

a （i+j ） *5\10

Next j

Next i

s=0

For i=1 To 5

s=s+a （i,i ）

Next i

Print s

End Sub

程序运行后，单击命令按钮，输出结果是（）

A ） 15

B ） 13

C ） 11

D ） 9

在窗体上画—个命令按钮和—个文本框，名称分别为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．旅游景点：故宫