在窗体上面两个名称分别为Command1和Command2、标题分别为“初始化”和“求和”的命令按钮。程序运行后

在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1)， 然后编写如下事件过程： Private Sub Command1 Click() Text1．Text=InputBox("请输入数据1") TextText=InputBox("请输入数据2) End Sub 程序运行后，如果单击命令按钮，将先后显示两个输入对话框，在两个输入对话框中分别输入123和abc，则两个文本框中显示的内容分别为【 】和【 】。

在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1)，然后编写下列事件过程： Private Sub Command1 Click（） x=0 DO While x＜50 x=(x+2)*(x4．3) n=n+1 Loop Text1．Text=Str(n) Text2．Text=Str(x) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别为（）。

A.1和0

B.2和72

C.3和50

D.4和168

在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1)，然后编写下列事件过程：

Private Sub Command1 Click（）

x=0

DO While x＜50

x=(x+2)*(x+3)

n=n+1

Loop

Text1．Text=Str(n)

Text2．Text=Str(x)

End Sub

程序运行后，单击命令按钮，在两个文本框中显示的值分别为（）。

A.1和0

B.2和72

C.3和50

D.4和168

A.50

B.20

C.14

D.7

在启动窗体Form1上画一个名为Command1的命令按钮和两个文本框(其名称分别为Text1和Text2)，新建一个窗体Form2。然后编写如下程序： Private Sub Command1_ Click() msg$ = "Retry" Title$ = "Error!" If TextText = "a" And TextText = "1" Then Unload Me Form. Show Else MsgBox msg$, vbOKOnly + vbCritical, Title$ End If End Sub运行该程序，要实现单击Command1命令按钮后卸载当前窗体，再弹出名为Form. 2的窗体，则在两个文本框中应分别输入______。

A．a 1

B．a a

C．1 a

D．1 1

A．

d=UCase (

B．

&

在窗体上面画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下代码： Sub S(X As Integer，y As Integer) Static z As Integer y=x*x+Z z=y End Sub Private Sub Command1 Click（） Dim i As Integer．z As Integer m=0 z=0 For i=1 T0 3 S i，Z m=m+z Next i Label1．Caption=Str(m) 程序运行后，单击命令按钮，在标签中显示的内容是（）。

A.50

B.20

C.14

D.7

在窗体上面画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下代码：

Sub S(X As Integer，y As Integer)

Static z As Integer

y=x*x+Z

z=y

End Sub

Private Sub Command1 Click（）

Dim i As Integer．z As Integer

m=0

z=0

For i=1 T0 3

S i，Z

m=m+z

Next i

Label1．Caption=Str(m)

程序运行后，单击命令按钮，在标签中显示的内容是（）。

A.50

B.20

C.14

D.7