更多"窗体上有一个名称为Command1的命令按钮，其单击事件过程如下： P"的相关试题:
[单项选择]
窗体上有一个名为Command1的命令按钮，并有如下程序：
Private Sub Command1_Click（ ）
Dim a As Integer, b As Integer
a=8
b=12
Print fun(a, b); a; b
End Sub
Private Function Fun(ByVal a As Integer, b As Integer)As Integer
a=a Mod 5
b=b/5
Fun=a
End Function
程序运行时，单击命令按钮，则输出结果是（）。
A. 3 3 2
B. 3 8 2
C. 8 8 12
D. 3 8 12
[单项选择]窗体上有一个名为Command1的命令按钮，并有如下程序：
Private Sub Command1_Click（ ）
Dim a(10) ,x%
For k=1 To 10
a(K)=Int(Rnd*90+10)
x=x+a(k) Mod 2
Next k
Print x
End Sub
程序运行后，单击命令按钮，输出结果是______。
A. 10个数中偶数的个数
B. 10个数中奇数的个数
C. 10个数中偶数的累加和
D. 10个数中奇数的累加和
[单项选择]
窗体上有一个名为Command1的命令按钮，并有下面的程序：
Private Sub Command1_Click（ ）
Dim arr(5) As Integer
For k = 1 To 5
arr(k) = k
Next k
prog arr（ ）
For k = 1 To 5
Print arr(k);
Next k
End Sub
Sub prog(a（ ） As Integer)
n = UBound(a)
For i = n To 2 step-1
For j = 1 To n-1
if a(j) ＜ a(j+1) Then
t=a(j):a(j)=a(j+1):a(j+1)=t
End If
Next j
Next i
End Sub
程序运行时，单击命令按钮后显示的是（）。
A. 1 2 3 4 5
B. 5 4 3 2 1
C. 0 1 2 3 4
D. 4 3 2 1 0
[单项选择]
窗体上有一个名称为Command1的命令按钮，其单击事件过程及有关函数过程如下：
Private Sub Command1_Click（ ）
Dim n As Integer
n=add(5,10)
Print n
End Sub
Function add(v1 As Integer , v2 As Integer , Optional v3) As Integer
If Not IsMissing(V3) Then
add=v1+v2+v3
Else
add=v1+v2
End If
End Function
运行程序，单击命令按钮，以下叙述中正确的是（）。
A. 程序不能正常运行，因为函数add的参数定义有错
B. 程序不能正常运行，因为函数定义与函数调用语句的参数个数不匹配
C. 程序能正常运行，结果是在窗体上显示15
D. 程序能正常运行，结果是在窗体上显示510V3
[填空题]在窗体上画一个名为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= (13)
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
(14)
End Function
以上程序的功能是，计算1!+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
[单项选择]
窗体上有一个名为Command1的命令按钮，并有下面的程序：
Private Sub Comand1_Click（ ）
Dim arr(5) As Integer
For k=1 To 5
arr(k)=k
Next k
prog arr（ ）
For k=1 To 5
Print arr(k)
Next k
End Sub
Sub prog(a（ ） As Integer)
n=Ubound(a)
For i=n To 2 step -1
For j=1 To n-1
if a(j)< p>
t=a(j):a(j)=a(j+1):a(j+1)=t
End If
Next j
Next i
End Sub
程序运行时，单击命令按钮后显示的是（）
A. 12345
B. 54321
C. 01234
D. 43210
[单项选择]窗体上有一个名为Command1的命令按钮，并有下面的程序：
Private Sub Command1_Click（ ）
Dim arr(6) As Integer
For k=1 To 6
arr(k)=k
Next k
prog arr（ ）
For k=1 To 6
Print arr(k)；
Next k
End Sub
Sub prog(a（ ）As Integer)
n=UBound(a)
For i=n To 2 Step-1
For j=1 To n-1
If a(j)＜a(j+1)Then
t=a(j):a(j)=a(j+1):a(j+1)=t
End If
Next j
Next i
End Sub
程序运行时，单击命令按钮后显示的是______。
A. 0 1 2 3 4 5
B. 1 2 3 4 5 6
C. 5 4 3 2 1 0
D. 6 5 4 3 2 1
[单项选择]在窗体上有一个命令按钮Command1，编写如下程序：
Private Sub Command1_Click（ ）
Print pp1(3, 7)
End Sub
Public Function pp1(x As Single, n As Integer) As Single
If n = 0 Then
pp1 = 1
Else
If n Mod 2=1 Then
pp1=x*x+n
Else
pp1=x*x-n
End If
End If
End Function
程序运行后，单击该命令按钮，屏幕上显示的是( )。
A. 2
B. 1
C. 0
D. 16
[单项选择]在窗体上有一个命令按钮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 y As Integer
y=0
Do
y=InputBox("y=")
If(y Mod 10)+Int(y/10)=10 Then Debug.Print y；
Loop Until y=0
End Sub
打开窗体运行后，单击命令按钮，依次输入10、37、50、55、64、20、28、19、-19、0，立即窗口上输出的结果是
A. 37 55 64 28 19 19
B. 10 50 20
C. 10 50 20 0
D. 37 55 64 28 19
