题目内容
（请给出正确答案）
在窗体中有一个命令按钮Command1和一个文本框Text1，编写事件代码如下：
Private Sub Command1_Click()
For I=1 To 4
X=3
For j=i To 3
For k=1 To 2
X=x+3
Next k
Next j
Next I
Text]．value=Str(x)
End Sub
打开窗体运行后，单击命令按钮，文本框Text1输出的结果是
A．6
B．12
C．18
D．21
如果结果不匹配，请 联系老师 获取答案
更多“在窗体中有一个命令按钮Command1和一个文本框Text1…”相关的问题
在窗体中有一个名为(Command1的命令按钮，Click事件的代码如下：
单击命令按钮后，标签显示的结果是()。
在窗体中有一个标签kabel()，标题为“测试进行中”；有一个命令按钮Command1，事件代码如下：
Private Sub Conunandl_Click()
Label(). Caption=“标签”
End Sub
Private Sub Foml_Load()
Form.Caption：“举例”
Commandl.Caption=“移动”
End Sub
打开窗体后单击命令按钮，屏幕显示
A．1.jpg)
B．2.jpg)
C．3.jpg)
D．4.jpg)
在窗体中有一个标签Lb1和一个命令按钮Command1，事件代码如下： OPtion Compare Databse Dim a As String * 10 Private Sub COmmand1_Click() a="1234" b=Len(a) Me.Lbl.Caption=b End Sub 打开窗体后单击命令按钮，窗体中显示的内容是
A．4
B．5
C．10
D．40
在窗体中有一个名为Command1的命令按钮，事件代码如下： Private Sub Command1_Click（） Dim m(10) For k=1 T0 10 m(k)=11=k Next k x=6 MsgBox m(2+m(x)) End Sub 打开窗体，单击命令按钮，消息框的输出结果是（）。
A.2
B.3
C.4
D.5
（33 ）在窗体中有一个命令按钮 command1 和一个文本框 text1, 编写事件代码如下：
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
Private Sub Command1_Click()
Label0.Caption=" 标签 "
End Sub
Private Sub Form_Load()
Form.Caption=" 举例 "
Command1.Caption=" 移动 "
End Sub
打开窗体后单击命令按钮，屏幕显示
A
B
C
D
在窗体中有一个标签Labele，标题为“测试进行中”，有一个命令按钮Command1，事件代码如下：
Private Sub Command1,Click()
Labele.Caption＝"标签"
End Sub
Private Sub Form_Load()
Form.Caption＝"举例"
Command1.Caption＝"移动"
End Sub
打开窗体后单击命令按钮，屏幕显示()。
A．
B．
C．
D．
在窗体中有一个命令按钮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 打开窗体运行后，单击命令按钮，输出的结果是()。
A．15
B．20
C．25
D．35
窗体中有命令按钮Command1和文本框Text1，事件过程如下：
Function result(ByVal x As Integer)As Boolean
If x Mod 2=0 Then
result=True
else
result=False
End If
End Function
Private Sub Command1_Click()
x=Val(InputBox(“请输入一个整数”))
If______ Then
Textl=Str(x)&“是偶数．”
Else
Textl=Str(x)&“是奇数．”
End If
End Sub
运行程序，单击命令按钮，输入19，在Textl中会显示“19是奇数”。那以在程序的空白处应填写()。
A．result(x)=“偶数”
B．result(x)
C．result(x)=“奇数”
D．NOT result(x)
A．3
B．6
C．9
D．12
