（ 33 ）在窗体中有一个命令按钮 command1 和一个文本框 text1, 编写事件代码如下：

Private sub command1_click()

F．or i=1 to 4

X=3

F．or j=1 to 3

F．or k=1 to 2

X=x+3

Next k

Next j

Next i

Text1.value=str(x)

E．nd sub

打开窗体运行后，单击命令按钮，文本框 text1 输出的结果是

A． ） 6

B． ） 12

C． ） 18

D． ） 21

[单选题]在窗体中有一个命令按钮Command1和一个文本框Text1，编写事件代码如下：Private Sub Command1_Click()F．or I=1 To 4X=3F．or j=i To 3F．or k=1 To 2X=x+3Next kNext jNext IText]．value=Str(x)E．nd Sub打开窗体运行后，单击命令按钮，文本框Text1输出的结果是A．6B．12C．18D．21

[主观题]在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1)，编写如下事件过程：Private Sub Command1_Click()D．im x As Integer,y As Integer,z As IntegerC．all f(x,y,z)E．nd SubSub f(a As Integer,b As Integer,c As Integer)c=b*aE．nd Sub打开窗体运行后，单击命令按钮，文本框中显示的内容是( )。

[单选题]在窗体上添加一个命令按钮(名为Command1)和一个文本框(名为Text1)，并在命令按钮中编写如下事件代码： Private Sub Command1_Click() m=2.17 n=Len(Str$(m)＋Space(5)) Me!Text1=n End Sub 打开窗体运行后，单击命令按钮，在文本框中显示______。A．5B．8C．9D．10

[单选题]在窗体中添加一个命令按钮(名为Command1) 和一个文本框(名为Text1) ，并在命令按钮中编写如下事例代码： Private Sub Command1_Click( ) Str1="981765" Str2="65" n=InStr(Str1,Str2) Me.Text1=n End Sub 窗体打开运行后，单击命令按钮，在文本框中显示______。A．4B．5C．6D．7

[单选题]在窗体上添加一个命令按钮(名为Command1)和一个文本框(名为Text1)，则执行如下事件过程后，文本框中的输出为______。private Sub Command1_ click() for i = 1 To 4 for j = 1 To 3 x = 3 for K = 1 To 2 x=x+3 Next K Next j Next i Text1.Text= Str(x)End SubA．3B．6C．9D．12

[单选题]（ 24 ）窗体上有一个 Text1 文本框，一个 Command1 命令按钮，并有以下程序Private Sub Commandl_Click （）D．im nIf Text1.Text<> " 23456 " Thenn=n ＋ 1Print " 口令输入错误 " & n & " 次 "E．nd IfE．nd Sub希望程序运行时得到左图所示的效果，即：输入口令，单击 “ 确认口令 ” 命令按钮 ， 若输入的口令不是 “ 123456 ” ，则在窗体上

[单选题]在窗体上有一个命令按钮Command1和一个文本框Text1，编写事件代码如下： Private Sub Command1_Click() Dim i，j，x For i=1 To 20 Step 2 x=0 For j-i To 20 Step 3 x=x+1 Next j Next i Text1.Value=Str(x) End Sub打开窗体运行后，单击命令按钮，文本框中显示的结果是( )。A．1B．7C．17D．400

[单选题]在窗体中添加一个命令按钮(名称为Command1)和一个文本框(名为text1)，然后编写如下事件过程： Private Sub Command_Click() Dim x As Integer, y As Integer,z As Integer x=5: y=7: z=0 Me!Text1="" Call p1(x, y, z) Me!Textl=z End Sub Sub p1 (a As Integer, b As Integer, Byval c As Integer) c=a+b

[单选题]在窗体上画一个命令按钮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＜=30，"颐和园"，"") Text1.Text=t End Sub 程

[单选题]在窗体上画一个命令按钮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＜=30,"颐和园","") Text1.Text=t End Sub 程序运