更多"在窗体上画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（ ）
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
[填空题]
在窗体上画1个命令按钮，其名称为Command1，然后编写如下事件过程：
PriVate Sub
Commandl_CUck（ ）
Dimalt(1 To 100)As Integer
Fori=1 To 100
arr(i)=Int(Rnd*1000)
Nexti
Max=arr(1)
Min=arr(1)
Fori=1
To 100
If [12] Then
Max=arr(i)
End
If
If [13] Then
Min=arr(i)
End
If
Nexti
Print"Max="；Max，"Min="；Min
End Sub
程序运行后，单击命令按钮，将产生100个1000以内的随机整数，放入数组alt中，然后查找并输出这100个数中的最大值Max和最小值Min，请填空。
[填空题]在窗体上画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时窗体关闭、程序结束
[单项选择]在窗体上画—个命令按钮(其名称为Command1)，然后编写如下事件过程：
Private Sub Command1_Click（ ）
Dim a(5，5)As Integer
Dim i As Integer,j As Integer
For i=1 To 3
For j=1 To 3
a(i，j)=(i-1)*3+j
Print a(i，j)
Next j
Print
Next i
End Sub
程序运行后，单击命令按钮，在窗体上的输出结果是：_______。
A. 1 4 7
B. 1 2 3
C. 1 2 3 4 5 6 7 8 9
D. 没有输出
[单项选择]在窗体上画1个名称为Command1l的命令按钮,并编写以下程序
Private Sub Command1_Ctick（ ）
Print fun("ABCDEFG")
End Sub
Function fun(st As String)As string
stlen=Len(st)
temp=""
For k=1 To stlen／2
temp=temp+ Mid(st,k,1)+Mid(st,stlen -k+1,1)
Next k
Fun=temp
End Function
程序运行时,单击命令按钮,则在窗体上显示的是【 】
A. ABCDEFG
B. AGBFCE
C. GFEDCBA
D. AGBFCED
[单项选择]在窗体上画一个命令按钮，然后编写如下程序 Private Sub Command4 Click（ ） Dim a As Integer，b As Integer 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. l
B. 2
C. 5
D. 8
[单项选择]在窗体上画一个命令按钮，然后编写如下程序
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_Cliek( ) Dim a( ) a = array(1,3,5,7) s=0 For i = 1 To 3 s=s*10+a(i) Next i Print s End Sub 程序运行后，输出结果为( )。
A. 135
B. 357
C. 531
D. 753
