在窗体中有一个命令按钮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．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

[单选题]在窗体中有一个文本框Test1，编写事件代码如下： Private Sub Form_Click() X=Val(InputBox("输入X的值")) Y=1 If X＜＞0 Then Y=2 Text1.Value=Y End Sub 打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是( )。A．1B．2C．3D．4

[单选题]在窗体上有一个命令按钮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，编写事件代码如下： Private Sub Command1_Click() Dim s As Integer s=P(1)+P(2)+P(3)+P(4) Debug.Print s End Sub Public Function P(N As Integer) Dim Sum As Integer Sum=0 For i=1 To N Sum=Sum+1 Next i P=Sum End Function 打开窗体运行后，单击命令按钮，输出的结果是( )

[单选题]在窗体中有一个命令按钮Commandl和一个文本框Textl，编写事件代码如下：F．or i=1 T04X=3F．or j=1 T03F．or k=1 T02x=x+3Next kNext jNext iText1．Value=Str(x)E．nd 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 程序运

[单选题]在窗体上有一个命令按钮Command1，编写事件代码如下： Private Sub Command1_Click() Dim y As Integer y=0 Do y=InputBox("y=") If(y Mod 10)+Int(y/10)=10 Then Debug.Print y； Loop Until y=0 End Sub 打开窗体运行后，单击命令按钮，依次输入10、37、50、55、64、20、28、19、-19、0，立即窗口上输出的结果是( )。A．37 55 64 28 1

[单选题]在窗体上有一个命令按钮Command1，编写事件代码如下： Prirate Sub Command1_Click() Dim d1 AS Date Dim d2 As Date d1=#12/25/2009# d2=#1/5/2010# MsgBox DateDiff("ww"，d1，d2) End Sub 打开窗体运行后，单击命令按钮，消息框中输出的结果是( )。A．1B．2C．10D．11