题目内容
（请给出正确答案）
窗体中有一个命令按钮Command1和一个文本框Text1。其中Command1的Click事件过程如下。
Private Sub Command1_Click()
Dim i As Integer,s As String
s="首都经济贸易大学"
For i=1 To b Step 2
Text1=Text1&Mid(s,i,1)
Next i
End Sub
窗体运行后，单击命令按钮Command1，Text1中显示的是______。
如果结果不匹配，请 联系老师 获取答案
更多“窗体中有一个命令按钮Command1和一个文本框Text1。…”相关的问题
窗体中有一个命令按钮(Command1。其Click事件过程如下。
Private Sub Command1_Click()
Dim a(10,10)
For m=1 To 4
For n=3 To 5
a(m,n)=m*n
Next n
Next m
MsgB0x a(1, 3)+a(2, 4) +a(3, 5)
End Sub
窗体运行后，单击命令按钮，消息框输出的结果是______。
窗体中有一个命令按钮Command1，其Click事件过程如下。
PriVate Sub Coranland1_Click()
For i=1 To 4
x=3
For j=2 To 3
x=3
For k=1 To 2
x=x+2
Next k
Next j
Next i
MsgBox x
End Sub
窗体运行后，单击命令按钮，消息框输出的结果是______。
窗体中有一个命令按钮Command1。其Click事件过程如下。
Sub P(b()As Integer)
For i=1 to 4
b(i)=2*i
Next i
End Sub
Private Sub Command1_Click()
Dim a(1 to 4)As Integer
For i=1 to 4
a(i)=i+4
Nexti
P a()
For i=1 to 4
MsgB0x a(i)
Next i
End Suk)
窗体运行后，单击命令按钮，消息框4次输出的结果分别是( )。
A．2 4 6 8 B．5 6 7 8 C．10 12 14 16 D．出错
B.private sub Command1_Click() Command2.Enable=true Command3.Enable=false
C.private sub Command1_Click() Command2.Enable=true Command3.Visible=false
D.private sub Command1_Click() Command2.Visible=True Command3.Enable=False
A.“项目”：[Forms]![Form1]，“表达式”：[Forms]![Form1]![Text1]
B.“项目”：[Forms]![Form1].[Caption]，“表达式”：[Forms]![Form1]![Text1]
C.“项目”：[Forms]![Form1].[Caption]，“表达式”：[Forms]![Form1]![Command1]
D.“项目”：[Forms]![Form1]![Text1]，“表达式”：[Fonns]![Form1]![Command1]
A.“项目”：[Forms]![Form1]，“表达式”：[Forms]![Form1]![Text1]
B.“项目”：[Forms]![Form1].[Caption]，“表达式”：[Forms]![Form1]![Text1]
C.“项目”：[Forms]![Form1].[Caption]，“表达式”：[Forms]![Form1]![Command1]
D.“项目”：[Forms]![Form1]![Text1]，“表达式”：[Forms]![Form1]![Command1]
在窗体上画一个名称为Command1的命令按钮。编写如下事件过程： Private Sub Command1_Click() Dim a As String A=【 】 For i=1 To 5 Print Space(6-i); Mid$(a, 6-i, 2*i-1) Next i End Sub 程序运行后，单击命令按钮，要求窗体上显示的输出结果为： 5 456 34567 2345678 123456789 请填空。
在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序： Function M(x As Integer, y As Integer) M=IIf(x＞y, x, y) End Function Private Sub Command1_Click() Dim a As Integer, b As Integer a=100 b=200 Print M(a, B) End Sub 程序运行后，单击命令按钮，输出结果为【 】。
在窗体上画一个命令按钮Command1，然后编写如下程序： Private Sub Command1_Click() Dim arr()As Integer ReDim arr(3) For i=0 To 3 arr(i)=i Next i x=InputBox("请输入一个数字：") If Val(x)＞4 Then ReDim art(4) air(4)=x End If Me.Print(arr(4)-art(3)) End Sub 程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为【 】。
A.0
B.5
C.6
D.7
