【B17】

假定有如下事件过程： 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 i=1 To i

x=x+1

Next j

Next i

Print x

End sub

程序运行后，单击窗体，如果在输入对话框中输入5，则在窗体上显示的内容是（）。

A.13

B.14

C.15

D.16

有如下事件过程： 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 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_Activate() Dimscore(1 to 3)As Integer Dimi As Integer Dim t As Variant Fori= 3 To 1 Step-1 score(i)=2*i Nexti ForEach t Inscore Printt Next End Sub 程序运行后窗体上显示的值是()。

A．642

B．246

C．2

D．6

1. 编写如下程序： Private Sub Command1_Click() Dim score As Integer score = 86 If score > 85 Then r = 1 ElseIf score > 60 Then r = 2 Else r = 0 End If Print r End Sub 程序运行后，单击命令按钮Command1，输出结果为()。 A. 0 B. 1 C. 2 D. 86

A、A

B、B

C、C

D、D

有如下事件过程： Private Sub Commaild1_Click() Dim i As Integer For i =1 To 2 DC Next i End Sub Sub DC() Dim x As Integer，m As String Static y，n x=x + 1 y=y + 1 m=m&"*"：n=n &"#" Print x，y，m，n End Sub 程序运行后，输出的结果是

A．1 1 * # 1 1 * #

B．1 1 * # 1 2 * #

C．1 1 * # 1 1 * ##

D．1 1 * # 1 2 * ##

窗体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