更多"在窗体上画一个名称为C1的命令按钮，然后编写如下事件过程： Priv"的相关试题:
[填空题]在窗体上画一个名为Command1的命令按钮，然后编写如下程序：
Private Sub Command1_Click（ ）
Dim i As Integer
Sum=0
n=InputBox("Enter a number")
n=Val(n)
For i=1 To n
Sum= (9)
Next i
Print Sum
End Sub
Function fun(t As Integer) As Long
p=1
For i=1 To t
p=p*i
Next i
(10)
End Function
以上程序的功能是：计算11 +2! +3!+…+n!，其中n从键盘输入，请填空。
[单项选择]在窗体上画一个名为Command1的命令按钮，然后编写以下程序：
Private Sub Command1_Click（ ）
Dim M(10) As Integer
For k = 1 To 10
M(k) = 12 - k
Next k
x=8
Print M(2 + M(x))
End Sub
运行程序，单击命令按钮，在窗体上显示的是( )。
A. 6
B. 5
C. 7 D) 8
[单项选择]在窗体上画一个名称为C1的命令按钮，然后编写如下事件过程：
Private Sub C1 Click（ ）
a=0
n=InputBox(” ”)
For i=l To n
For j=1 To i
a=a+1
Next j
Next i
Print a
End Sub
程序运行后单击命令按钮，如果输入4，则在窗体上显示的内容是
____
。
A. 5
B. 6
C. 9
D. 10
[填空题]在窗体上画一个命令按钮，然后编写如下代码：
Private Sub Command1_C1ick（ ）
Dim M (10) As Integer
For k=1 To 10
M(k)=12-k
Next k
x=6
Msgbox M(2+M(x))
End Sub
程序运行后，单击命令按钮，消息框显示的是 【13】 。
[单项选择]在窗体上画一个名称为C1的命令按钮，然后编写如下事件过程：
Private Sub C1 Click（ ）
a=0
n=InputBox(” ”)
For i=l To n
For j=1 To i
a=a+1
Next j
Next i
Print a
End Sub
程序运行后单击命令按钮，如果输入4，则在窗体上显示的内容是( )。
A. 5
B. 6
C. 9
D. 10
[单项选择]在窗体上画尸-个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click（ ）
For i=1 to 4
If i=1 Then x=i
If i＜=4 Then x=x+1
Print x
Next i
End Sub
程序运行后，单击命令按钮，其输出结果为： ______。
A. 1 2 3 4
B. 2 3 4 5
C. 2 3 4 4
D. 3 4 5 6
[单项选择]在窗体上画两个命令按钮，然后编写以下代码： Private Sub Commandl_ Click（ ） Dim i As Long Dim i As Integer Dim x For i=1 To 10000000 x=DoEvents For j=1 To 1000000 Next j Cls Print i Next i End Sub Private Sub Command2_Click（ ） Dim x As Integer Dim i As Integer x=0 For i=1 To 10 x=x+i Next i MsgBox x End Sub 当程序执行后，单击命令按钮Command1，在窗体上将显示以一定的时间间隔(从1、2、…一直到 10000000这10000000个数字)，如果再单击命令按钮Command2，将会出现的情况是______。
A. 没有任何变化，数字仍按原有的规律显示
B. 将会中断在窗体上数字从小到大的显示，弹出一个对话框，待用户单击“确定”按钮关闭对话框后，数字再按原来的规律继续在窗体上显示
C. 将会弹出一个对话框，待用户单击“确定”按钮关闭对话框后，窗体上的数字将保持中断时候的值，也就是说不再按规律变化显示
D. 窗体上的数字仍按原有的规律在窗体上显示，然后同时会弹出一个对话框，待用户单击“确定”按钮后对话框关闭
[填空题]在窗体上画’一个命令按钮，然后编写如下程序
Dim x As Integer
Sub inc (a As Integer)
x=x +a
End Sub
Private Sub Command l_click（ ）
inc 2
inc 3
inc4
Ms g box x;
End Sub
程序执行后，单击Command I命令按钮，消息框显示结果是 【14】 。
[单项选择]在窗体上画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
Print
Next m
End Sub
运行程序，单击命令按钮，窗体上显示的内容为( )。
A. 2 0 0
B. 2 0 4
C. 2 3 0
D. 2 0 0
[填空题]在窗体上画—个命令按钮，然后编写如下代码：
Private Sub Command1_Click（ ）
Dim M(10) As Integer
For k=1 To 10
M(k) =12-k
Next k
x=6
Msgbox M(2+M(x) )
End Sub
程序运行后，单击命令按钮，消息框显示的是 【13】 。
[单项选择]在窗体上画1个命令按钮，并编写如下事件过程：
private Sub Command1_Click（ ）
For i=5 To 1 Step-0．8
Print Int(i)；
Next i
End Sub
运行程序，单击命令按钮，窗体上显示的内容为( )。
A. 5 4 3 2 1 1
B. 5 4 3 2 1
C. 4 3 2 1 1
D. 4 4 3 2 1 1
[单项选择]在窗体上画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
Print
Next m
End Sub
运行程序，单击命令按铡，窗体上显示的内容为( )。
A. 2 0 0
B. 2 0 4
C. 2 3 0
D. 2 0 0
[填空题]在窗体上画一个命令按钮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)
an(4)=x
End If
Me.Print(an(4)-arr(3))
End Sub
程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为 【10】 。
[单项选择]在窗体上画一个命令按钮Command1，然后编写下列代码：
Private Sub Command1_Click（ ）
Dim Arr1(10) As Integer,Art2(10) As Integer
n=3
For i=1 To 5
Arr1(i)=i
Arr2(n)=2*n+i
Next i
Print Arr2(n);Arr1(n)
End Sub
运行程序后，单击命令按钮，输出结果是( )。
A. 11 3
B. 3 11
C. 13 3
D. 3 13
[填空题]在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl Click（ ）
Do Until b＜0
a=InputBox("输入a的值")
a=Val(a)
b=InputBox("输入b的值")
b=Val(b)
a=a +b
Loop
Print a
End Sub
程序运行后，依次输入5，4，3，2，1，0，-1，-2，则输出结果是 【14】 。
