在窗体中有一个命令按钮Command1和一个文本框Text1，编写事件代码如下：

Private Sub Command1_Click()

F．or I=1 To 4

X=3

F．or j=i To 3

F．or k=1 To 2

X=x+3

Next k

Next j

Next I

Text]．value=Str(x)

E．nd Sub

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

A．6

B．12

C．18

D．21

[单选题]在窗体上有一个命令按钮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和一个文本框Test1，编写事件代码如下： Private Sub Command1_Click() For I=1 To 4 x=3 For j=1 To 3 For k=1 To 2 x=x+3 Next k Next j Next I Text1.Value=Str(x) End Sub 打开窗体运行后，单击命令按钮，文本框Text1中输出的结果是( )。A．6B．12C．18D．21

[单选题]（ 33 ）在窗体中有一个命令按钮 command1 和一个文本框 text1, 编写事件代码如下：Private sub command1_click()F．or i=1 to 4X=3F．or j=1 to 3F．or k=1 to 2X=x+3Next kNext jNext iText1.value=str(x)E．nd sub打开窗体运行后，单击命令按钮，文本框 text1 输出的结果是A． ） 6B． ） 12C． ） 18D． ） 21

[单选题]在窗体上画一个命令按钮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 程序运

[单选题]（ 32 ）在窗体中有一个文本框 text1, 编写事件代码如下：Private sub form_click()X=val(inputbox( “ 输入 x 的值 ” ))Y=1If x<> then y=2Text1.value=yE．nd sub打开窗体运行后。在输入框中输入整数 12 ，文本框 text1 中输出的结果是A． ） 1B． ） 2C． ） 3D． ） 4

[单选题]在窗体上画一个命令按钮Command1和一个文本框Text1，然后编写下列程序：Private Sub Command1 click()A．=InputBox("请输入日期(1～31)")t="旅游景点："_&Ⅱf(A＞0 And A＜=10,"长城","")_&Ⅱf(A＞10 And A＜=20,"故宫","")_&Ⅱf(A＞20 And A＜=30,"颐和园","")Text1.Text=tE．nd Sub程序运行后，如果从键盘输入5，

[单选题]在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Text1_LostFocus( )If Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"E．nd IfE．nd Sub当在text1文本框中输入字符"abc"之后，单击命令按钮，结果为()A．显示对话框，提示信息为"帐号正确"B．显示对话框，提

[单选题]在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Command1_Click( )D．im I As IntegerIf Text1.Text"Gong" ThenI = MsgBox("密码错误", 5 + vbExclamation, "输入密码")If I4 ThenE．ndE．lseText1.Text = ""Text1.SetFocusE．nd IfE．lseMsgBox "密码帐号正确!"E．nd IfE．n

[单选题]在窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并编写有如下事件过程：程序运行后，单击命令按钮，在文本框中显示的是（ ）。A． 2B． 3C． 4D． 5