更多"在窗体上添加一个命令按钮(名为Command1)，然后编写如下事件过程"的相关试题:
[单项选择]
在窗体上添加有一个命令按钮，(名为Command1)，然后编写如下事件过程：
Private Sub Command1_Click（ ）
For i=1 To 4
x=4
For j=1 To 3
x=3
For k=1 To 2
x=x+6
Next k
Next j
Next I
MsgBox x
End Sub
打开窗体后，单击命令按钮，消息框的输出结果是（）。
A. 7
B. 15
C. 157
D. 538
[填空题]在窗体上添加一个命令按钮，名称为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（ ）
sum＝0
For i1 To 100 step 2
sum＝sum+i
Next i
MsgBox sum
End Sub
打开窗体运行后，单击命令按钮，则消息框的输出结果为______。
[单项选择]在窗体上添加一个命令按钮(名为Command1)，然后编写如下事件过程：
Private Sub Command1_Click（ ）
For i=1 To 4
x=4
For j=1 To 3
x=3
For k=1 To 2
x=x+6
Next k
Next j
Next i
MsgBox x
End Sub
打开窗体后，单击命令按钮，消息框的输出结果是( )。
A. 7
B. 15
C. 157
D. 528
[单项选择]窗体上有一个命令按钮，命令按钮的单击事件过程如下。
Private Sub Command1_Click（ ）
Dim a
a:Array(1,2,3,4,5)
For k=1 To 4
s=s+a(k)
Next
Print s
End Sub
运行程序后，单击命令按钮，输出结果是( )。
A. 10
B. 14
C. 15
D. 120
[单项选择]在窗体上有一个命令按钮Command1，编写下列程序：
Private Sub Command1_Click（ ）
Print ppl(3,7)
End Sub
Public Function ppl(X As Single,n As Integer)As Single
If n=0Then
ppl=1
Else
If n M0d 2=1 Then
ppl=x*x+n
EIse
ppl=x*x-n
End If
End If
End Function
程序运行后，单击该命令按钮，屏幕上显示的是( )
A. 2
B. 1
C. 0
D. 16
[单项选择]在窗体上画一个命令按钮Command1，然后编写如下代码：
Private Sub Command1_Click（ ）
Dim Arr1(10) As Integer, Arr2(10)As Integer
n=3
For i = 1 To 5
Arr1 (i)=i
Arr2(n)=2 * n+i
Next i
Print Arr2(n); Art1 (n)
End Sub
运行程序后，单击命令按钮，输出结果是( )。
A) 11 3 B) 3 11 C) 13 3 D) 3 13
[填空题]在窗体上画一个命令按钮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 arr(4)
arr(4)=x
End If
Me.Print(arr(4)-arr(3))
End Sub
程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为 【10】 。
[单项选择]在窗体上有一个命令按钮Command1，编写事件代码如下。
Private Sub Command1_Click（ ）
Dim x As Integer，y As Integer
x=12：y=32
Call Proc(x，y)
Debug.Print x；y
End Sub
Public Sub Proc(n As Integer，ByVal m As Integer)
n=n Mod 10
m=m Mod 10
End Sub
打开窗体运行后，单击命令按钮，立即窗口上输出的结果是( )。
A. 2 32
B. 12 3
C. 2 2
D. 12 32
[填空题]在窗体上画一个命令按钮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 arr(4)
arr(4)=x
End If
Me.Print(arr(4)-arr(3))
End Sub
程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为 【10】 。
[单项选择]在窗体上添加一命令按钮，其名为Command1，然后编写代码如下：
private Sub Command1_Click（ ）
Dim arr(5)As Integer，arr1(5)AS Integer
n=3
For i=1 To 5
arr(i)=i
arr1(n)=2*n+i
Next
Print arr1(n)；art(n)
End Sub
程序的运行结果为
A. 3 11
B. 11 3
C. 13 3
D. 3 13
[单项选择]在窗体上添加一命令按钮，其名为Command1，然后编写如下代码。
private Sub Command1_Click（ ）
Dim arr(5)As Integer,arr1(5)As Integer
n=3
For i=1 To 5
arr(i)=i
arr1(n)=2*n+i
Next
Print arr1(n);arr(n)
End Sub
程序的运行结果为( )。
A. 3 11
B. 11 3
C. 13 3
D. 3 13
[单项选择]在窗体上画1个命令按钮，并编写如下事件过程：
Private Sub Command1_Click（ ）
Dim a(3,3)
For m=1 To 3
For n=1 To 3
If n=m or n=4-m Then
a(m,n)=m+n
Else
a(m,n)=0
End If
Print a(m,n)；
Next n
Ptint
Next m
End Sub
运行程序，单击命令按钮，窗体上显示的内容为( )
A. 2 0 0
B. 2 0 4
C. 2 3 0
D. 2 0 0
