更多"在窗体上添加一个命令按钮，名称为Command1，然后编写如下程序： "的相关试题:
[单项选择]在窗体上画一个命令按钮，名称为Command1。
Private Sub Command1 Click（ ）
Dim x As Integer，y As Integer
x=10:y:0
Do
x=x+2:y=y+x
Print "x=", x; "y=",y
If y＞20 Then Exit Do
Loop Until x=18
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是 ______。
A. x=12y=12
B. x=12 y=12
C. x=12 y=12
D. x= 12 y=12
[填空题]在窗体上添加一个命令按钮，名称为Command1，然后编写如下程序：
Private Sub Command1_Click（ ）
sum=0
For i=1 To 100 step 2
sum=sum+i
Next i
MsgBox sum
End Sub
打开窗体运行后，单击命令按钮，则消息框的输出结果为_______。
[单项选择]在窗体上添加一个名称为Command1的命令按钮，然后编写如下事件代码：
private Sub Command1 Click（ ）
Dima(10,10)
Form＝2 To 4
Forrn＝4 To 5
a(m,n)＝m*n
Next n
Next m
MsgBoxa(2,4)+a(3,5)+a(4,5)
End Sub
打开窗体运行后，单击命令按钮，则消息框的输出结果是( )。
A. 23
B. 33
C. 43
D. 53
[单项选择]在窗体上添加一个名称为Command1的命令按钮，然后编写如下事件代码：
Private Sub Command1_Click（ ）
A＝75
If A＜60 Then x＝1
If A＜70 Then x＝2
If A＜80 Then x＝3
If A＜90 Then x＝4
MsgBox x
End sub
打开窗体运行后，单击命令按钮，则消息框的输出结果是( )。
A. 1
B. 2
C. 3
D. 4
[填空题]在窗体上添加一个名称为Command1的命令按钮，编写如下代码：
Private Sub f(ByVal x As Integer)
x=x+4
End Sub
Pvivate Sub Command1_Click（ ）
i=3
Call f(i)
If i＞4 Then i=i*2
MsgBox i
End Sub
运行窗体后，单击命令按钮，则消息框的输出结果为______。
[填空题]在窗体上添加一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub f(By Val x As Integer)
x＝x+4
End Sub
PrivateSubCommand1_Click（ ）
i＝3
Call f(i)
If i＞4 Then i＝i*2
MsgBox i
End Sub
打开窗体运行后，单击命令按钮，则消息框的输出结果为______。
[单项选择]窗体上有名称为Command1的命令按钮和名称为Textl的文本框
Private Sub Command1 Click（ ）
Text1．Text="程序设计"
Text1．SeFocus
End Sub
Private Sub Text1 GotFocus（ ）
Text1．Text="等级考试"
End Sub
运行以下程序，单击命令按钮后( )。
A. 文本框中显示的是"程序设计"，且焦点在文本框中
B. 文本框中显示的是"等级考试"，且焦点在文本框中
C. 文本框中显示的是"程序设计"，且焦点在命令按钮上
D. 文本框中显示的是"等级考试"，且焦点在命令按钮上
[单项选择]窗体上有名称为Command1的命令按钮和名称为Text1的文本框
Private Sub Command1_Click（ ）
Text1. Text = "程序设计"
Text1. SetFocus
End Sub
Private Sub Text1_GotFocus（ ）
Text1. Text = "等级考试"
End Sub
运行以上程序，单击命令按钮后( )。
A. 文本框中显示的是“程序设计”，且焦点在文本框中
B. 文本框中显示的是“等级考试”，且焦点在文本框中
C. 文本框中显示的是“程序设计”，且焦点在命令按钮上
D. 文本框中显示的是“等级考试”，且焦点在命令按钮上
[填空题]在窗体上画一个名称为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的命令按钮，编写如下程序：
Private Sub Command1_Click（ ）
Print p1(3,7)
End Sub
Public Function p1(x As Single,n As Integer) As Single
If n=0 Then
p1=1
Else
If n Mod 2=1 Then
p1=x*x+n
Else
p1=x*x-n
End If
End If
End Function
程序运行后，单击该命令按钮，屏幕上显示的结果是( )。
A. 2
B. 1
C. 0
D. 16
[填空题]在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub Command1_Click（ ）
Static X As Integer
Static Y As Integer
Cls
Y=1
Y=Y+5
X=5+X
Print X,Y
End Sub
程序运行时，3次单击命令按钮Command1后，窗体上显示的结果为 【15】 。
