更多"编写下列事件过程和函数过程： Private Sub Command"的相关试题:
[单项选择]编写下列事件过程和函数过程：
Private Sub Commandl Click（ ）
Dim num(1 To 6)As Single
num(1)=103:num(2)=190:num(3)=0
num(4)=32:num(5)=-56:num(6)=100
Print
Print p2(6,num（ ）)
End Sub
Private Function p2(ByVal n As Integer,number（ ）As Single)As Integer
p2=number(1)
For j=2 To n
If number(j)＜p2 Then p2=number(j)
Next j
End Function
程序运行后，在窗体上输出( )。
A. -56
B. 0
C. 103
D. 190
[填空题]在窗体上添加一个命令按钮(名为Commandl)，然后编写如下事件过程：
Private Sub Command 1_Click（ ）
Dim b,k
For k=1 to 6
b=23+k
Next k
MsgBox b+k
End Sub
打开窗体后，单击命令按钮，消息框的输出结果是______。
[单项选择]有如下程序：
Private Sub Commandl_Click( )
Dim i As Integer
For i=1 To 2
DS
Next i
End Sub
Sub DS( )
Dim x As Integer，m As String
Static y，n
X=X + 1
y=y + 1
m=m &"*”：n=n&"#"
Print x，y，m，n
End Sub
程序运行后，输出的结果是( )。
[单项选择]有如下程序：
Private Sub Commandl_Click（ ）
Dim a As Integer
a=2
For i=1 To 3
Print Gad (a)
Next i
End Sub
Function Gad (a As Integer)
b=0
Static c
b=b + 1
c= c + 1
Gad= a + b + C
End Function
运行上面的程序后，单击命令按钮，输出结果为( )。
[单项选择]有如下程序： Private Sub Commandl_Click（ ） Dim a As Single Dim b As Single a=2：b=4 Call CS(a，b) End Sub Sub CS(x As Single，y As Single) t=X x=t/y y=t Mod y End Sub 程序运行后，单击命令按钮，a和b的值分别为A)0 0
B)1 1
C)0 2
D)1 2
[单项选择]有如下的程序。 Private Sub Commandl_Click( ) Dim k As Integer, m As Integer Dim P As Integer k=4: m=1 P=Fun(k, m) : Print P; P = Fun ( k, m) : Print P End Sub Private Function Fun( a As Integer, b As Integer) Static m As Integer, i As Integer m=5:i=2 i=i+m+1 m=i + a + b Fun=m/2 End Function 单击命令按钮后，输出结果为
A. 2 2
B. 4 4
C. 5 5
D. 6
[单项选择]下列程序的执行结果为
Private Sub Commandl_Click( )
Dim X As Integer，y As Integer
x=12：y=20
Call Value(x，y)
Print X；y
End Sub
Private Sub Value(ByVal m As Integer，ByVal n As Integer)
m=m * 2：n=n-5
Print m；n
End Sub
A. 20 12
B. 12 20
C. 24 15
D. 24 12
[单项选择]编写下列事件过程和函数过程：
Private Sub Commandl Click（ ）
Dim num(1 To 6)As Single
num(1)=103:num(2)=190:num(3)=0
num(4)=32:num(5)=-56:num(6)=100
Print
Print p2(6,num（ ）)
End Sub
Private Function p2(ByVal n As Integer,number（ ）As Single)As Integer
p2=number(1)
For j=2 To n
If number(j)＜p2 Then p2=number(j)
Next j
End Function
程序运行后，在窗体上输出( )。
A. -56
B. 0
C. 103
D. 190
[单项选择]
设有如下程序：
Private Sub Commandl_click（ ）
Dim c As Integer,d As Integer
c=4
d=InputBox("请输入一个整数")
Do While d＞0
If d＞c Then
c=c+1
End If
d=InputBox("请输入一个整数")
Loop
Print c+d End Sub
程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、 0，则输出结果是（）
A. 12
B. 11
C. 10
D. 9
[单项选择]下面程序段，运行后的结果是 Private Sub Commandl_Click( ) Dim b%(1 To 4)，i%，t# For i=1 To 4 b(i)=i Next i t=Tof(b( ) ) Print"t="；t， End Sub Function Tof(a（ ） As Integer) Dim t#，i% t=1 For i=2 To UBound(
[单项选择]在窗体上添加一个命令按钮(名为Commandl) ，然后编写如下事件过程：
Private Sub Commandl_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
