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

F．or i=1 T04

X=3

F．or j=1 T03

F．or k=1 T02

x=x+3

Next k

Next jNext iText1．Value=Str(x)

E．nd Sub

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

A．6

B．12

C．18

D．21

[单选题]在窗体上有一个命令按钮Commandl和一个文本框Textl，编写事件代码如下：Private SuB cormmandl_Click()D．im i,j,xF．or i=i To 20 step 2x=0F．or j=1 To 20 step 2x=x+1Next jNext iText1.Value=Str(x)E．nd SuB打开窗体运行后，单击命令按钮，文本框中显示的结果是A．1B．7C．17D．400

[单选题]在窗体中有一个文本框Textl，编写事件代码如下：Private Sub Form. Cl ick() ’X=val(Inputbox(“输入X的值”))Y=1If X<>0 Then Y：2Textl．Value=YE．nd Sub打开窗体运行后，在输入框中输入整数12，文本框Textl中输出的结果是A．1B．2C．3D．4

[单选题]（ 31 ）在窗体上有一个命令按钮 Commandl 和一个文本框 Textl ，编写事件代码如下：Private Sub Command1_Click()D．im i,j,xF．or i = 1 To 20 step 2x = 0F．or j = To 20 step 3x = x + 1Next jNext iTextl.Value=Str(x)E．nd Sub打开窗体运行后，单击命令按钮，文本框中显示的结果是A． ） 1B． ） 7C． ） 17D． ） 400

[单选题]在窗体上面一个命令按钮Commandl和一个文本框Textl,然后编写下列程序： Private Sub Commandl_ClickO A=InputBox("请输入日期（1～31）") T="旅游景点："_ ﹠IIf(A>0And A ﹠IIf(A>10And A ﹠IIf(A>20And A Text1.Text=t End Sub程序运作后，如果从键盘输入5，则在文本框中显示的内容。A．旅游景点：长城 B. 旅游景点：长城颐和园C. 旅游景点：颐和园 D. 旅游景点：故宫

[单选题]在窗体中有一个命令按钮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

[单选题]在窗体中有一个命令按钮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

[单选题]在窗体中有一个命令按钮Commandl，编写事件代码如下：Private Sub Command1_CliCk()D．im s As Integers=P(1)+P(2)+e(3)+P(4)debug．Print SE．nd SUbPublic Function P(N AS Integer)D．im Sum As IntegerSum=0F．or i=1 To NSum=Sum+iNext iP=SumE．nd Function打开窗体运行后，单击命令按钮，输出结果是A．15B．20C．25D

[主观题]在窗体上有一个命令按钮和一个文本框。编写如下事件过程：Private Sub Command1_Click()a=InputBox("请输入一个整数")Text1．Text=aIf a ＞ 0 ThenIf a Mod 3 = 0 ThenMsgBox "True"E．lseMsgBox "error"E．nd IfE．nd IfE．nd Sub程序运行后，单击命令按钮，在输入对话框里输入12，则弹出的提示内容是______。

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

[单选题]在窗体上添加一个命令按钮和一个文本框，并在命令按钮中编写如下代码：PrivateSubCommand1_Click()a=1.2c=Len(Str( )+Space(10))Text1.Text=cE．ndSub程序运行后，单击命令按钮，在文本框中显示( )A．3B．8C．14D．10