请输入或粘贴题目内容
搜题
拍照、语音搜题，请扫码下载APP
题目内容
（请给出正确答案）
窗体中有一个命令按钮Command1和一个文本框Text1。其中Command1的Click事件过程如下。
Private Sub Command1_Click()
Dim m As Single，n As Integer
m=2.54
n=Len(Str(m)+Space(5))
Me.Text1=n
End Sub
窗体运行后，单击命令按钮Command1，Text1中显示的是( )。
A．5 B．8 C．9 D．10
答案
更多“窗体中有一个命令按钮Command1和一个文本框Text1。其中Command1的Click事件过程如下。 Private Sub Command1”相关的问题
第1题
窗体中有一个命令按钮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中显示的是______。
第2题
窗体中有一个命令按钮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
窗体运行后，单击命令按钮，消息框输出的结果是______。
第3题
窗体中有一个命令按钮(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
窗体运行后，单击命令按钮，消息框输出的结果是______。
第4题
窗体中有一个命令按钮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．出错
第5题
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
第6题
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]
第7题
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]
第8题
在窗体上画一个命令按钮，其名称为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 程序运行后，单击命令按钮，输出结果为【 】。
第9题
在窗体上画一个名称为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 请填空。
第10题
