更多"在窗体上画1个命令按钮，并编写如下事件过程： Private Sub"的相关试题:
[单项选择]在窗体上画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（ ） Dima(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 0 4 0 0 0 6
B. 2 0 4 0 4 0 4 0 6
C. 2 3 0 3 4 0 0 0 6
D. 2 0 0 0 4 5 0 5 6
[填空题]在窗体上画1个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click（ ） Dim arr(1 To 100) As Integer For i = 1 To 100
arr(i) = Int(Rnd * 1000) Next i
Max = arr(1) Min = arr(1)
For i = 1 To 100
If _________ Then
Max = arr(i) End If
If _________ Then
Min = arr(i) End If
Next i
Print "Max="; Max, "Min="; Min
End Sub
程序运行后，单击命令按钮，将产生100个1000以内的随机整数，加入数组arr中，然后 查找并输出这100个数中的最大值Max和最小值Min，请填空。
[单项选择]
在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序：
Private Sub Command1 Click（ ）
Dim a(10) As Integer
Dim x As Integer
For i=1 To 10
a(i)=8+i
Next
x=2
Print a(f(x)＋x)
End Sub
Function f(x As Integer)
x=x＋3
f=x
End Function
程序运行后，单击命令按钮，输出结果为（）。
A. 12
B. 15
C. 17
D. 18
[填空题]
在窗体上画1个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click（ ）
Dim arr(1 To 100)As Integer
For i=1 To 100
arr(i)=Int(Rnd*1000)
Next i
Max=arr(1)
Min=arr(1)
For i=1 To 100
If （） Then
Max=arr(i)
End If
If （） Then
Min=arr(i)
End If
Next i
Print "Max="；Max，"Min="；Min
End Sub
程序运行后，单击命令按钮，将产生100个1000以内的随机整数，加入数组arr中，然后查找并输出这100个数中的最大值Max和最小值Min，请填空。
[单项选择]在窗体上画两个命令按钮，然后编写以下代码：
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. 窗体上的数字仍按原有的规律在窗体上显示，然后同时会弹出一个对话框，待用户单击“确定”按钮后对话框关闭
[填空题]在窗体上画—个命令按钮，然后编写如下代码：
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】 。
[单项选择]在窗体上画—个命令按钮，然后编写如下事件过程： Private Sub Command1_Click（ ） Dim I, Num Randomize Do For I=1 To 1000 Num=Int(Rnd*100) Print Num； Select Case Num Case 12 Exit For Case 58 Exit Do Case 65,68,92 End End Select Next I Loop End Sub 上述事件过程执行后，下列描述中正确的是______。
A. Do循环执行的次数为1000次
B. 在For循环中产生的随机数小于或等于100
C. 当所产生的随机数为12时结束所有循环
D. 当所产生的随机数为65、68或92时窗体关闭、程序结束
[单项选择]在窗体上画一个命令按钮，然后编写如下程序
Private Sub Command1_Click( )
Dim a As Integer，b As hiteger
a=1
b=2
Print N(a，b)
End Sub
Function N(x As Integer，y As Integer)As Integer
N=IIf(x>y，x，y)
End Function
程序运行后，单击命令按钮，输出结果为
A. 1
B. 2
C. 5
D. 8
[填空题]在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Do Until b ＜ 0
a = InputBox( "输入a的值" )
a = Val(A)
b = InputBox( "输入b的值" )
b =VM(B)
a=a+b
Loop
Print a
End Sub
程序运行后，依次输入5,4,3,2,1,0,-1,-2,则输出结果是 【15】 。
[填空题]在窗体上画一个命令按钮，然后编写如下事件过程：
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】 。
[单项选择]在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl Click（ ）
Dim a（ ）
a＝Array(1，3，5，7)
s=O
For i＝1 TO 3
S=S*10十a(i)
Next i
PrInt S
End Sub
程序运行后，输出结果为( )。
A. 135
B. 357
C. 531
D. 753
[单项选择]在窗体上画一个命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click( )
Dim Arr1(12)As Integer，Arr2(3)As Integer
Dim Smm As Integer
Sum=2
For i=1 To 12
A. 程序运行后，单击命令按钮，在窗体上的输出结果是______。 16
B. 24
C. 32
D. 36
[单项选择]
在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1 Click（ ）
a=0
For i=1 To 2
For j=1 To 4
If j Mod 2＜＞0 Then
a=a-1
End If
a=a＋1
Next j
Next i
Print a
EndSub
程序运行后，单击命令按钮，输出结果是（）。
A. 0
B. 2
C. 3
D. 4
[单项选择]在窗体上画一个命令按钮，然后编写下列程序 Private Sub Command3_Click( ) Tcl 2 Tcl 3 Tel 4 End Sub Sub Tcl(a As Integer) Static x As Integer x=x + a Print x； End Sub 程序运行后，单击命令按钮，输出结果为
A. 2 3 4
B. 2 5 9
C. 3 5 4
D. 2 4 3
[填空题]在窗体上画一个命令按钮，然后编写如下代码：
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
程序运行后，单击命令按钮，消息框显示的是______。
