A．From the captured or tamed elephants.B．From the British wildlife protection group.C．

假定有如下事件过程： Private Sub Form. Click() Dim x As Integer, n As Integer x=1 n=0 Do While x＜28 x=x*3 n=n+1 Loop Print x, n End Sub 程序运行后，单击窗体，输出结果是______。

A．81 4

B．56 3

C．28 1

D．243 5

有如下事件过程： Private Sub Form. Click（） Dim n As Integcr x=0 n=InputBox("请输入一个整数") For i=1 To i for j =1 To j x=x+1 Next j Next i Print x End sub 程序运行后，单击窗体，如果在输入对话框中输入5，则在窗体上显示的内容是（）。

A.13

B.14

C.15

D.16

有如下事件过程：

Private Sub Form. Active ()

Dim Score (1 to 3) As Integer

Dim i As Integer

Dim t As Variant

Fori=3 To 1 step-1

Score (i) = 2 * i

Next

For Each t In Score

Print t

Next

End Sub

程序运行后窗体上显示的值为【 】。

窗体中有一个命令按钮(Command1。其Click事件过程如下。

Private Sub Command1_Click()

Dim a(10,10)

For m=1 To 4

For n=3 To 5

a(m,n)=m*n

Next n

Next m

MsgB0x a(1, 3)+a(2, 4) +a(3, 5)

End Sub

窗体运行后，单击命令按钮，消息框输出的结果是______。

设有如下程序：

Private Sub Form. Click（）

Dim s As Long，f As Long

Dim n As Integer，i As Integer

f=1

n=4

For i=1 To n

f=f*i

s=s+f

Next i

Print s

End Sub

程序运行后，单击窗体，输出结果是（）。

A.32

B.33

C.34

D.35

窗体Form. 1上有一个名称为Command 1的命令按钮，以下对应窗体单击事件的事件过程是

A）Private Sub Form. 1_Click() B）Private Sub Form. _Click()

End Sub End Sub

C）Private Sub Commandl_Click() D）Private Sub Command_ Click()

End Sub End Sub

编写如下事件过程： Private sub sub1 (ByVal x1 As String, y1 As String) Dim xt As String Dim i As Integer i = Len(x1) Do While i＞= 1 xt = xt + Mid(x1, i, 1) i=i-1 Loop y1 = xt End Sub Private Sub Form. Click() Dim s1 As String, s2 As String s1= "teacher" sub1 s1, s2 Print s2 End Sub 程序运行后，单击窗体，则窗体上显示的内容是

A．rehcaet

B．tahreee

C．themee

D．eerthea

有如下程序:: Private Sub Form. Click() Dim i As Integer,sum As Integer sum=0 For i=2 To 10 If i Mod 2 ＜＞0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为______。

A． 12

B．30

C．24

D．18