计算机二级
窗体上有一个名为Command1的命令按钮，并有下面的程序： Private Sub Command1 Click（ ） Dim arr(5)As Integer ． For k=1 To 5 art(k)=k Next k prog art（ ） For k=1 T0 5 Print art(k)； Next k End Sub Sub prog(a（ ）As Integer) n=UBound(a) For i=n To 2 step-1 if a(j)<a(j十1)Then t=a(j)：a(1)=
题目
窗体上有一个名为Command1的命令按钮，并有下面的程序： Private Sub Command1 Click（ ） Dim arr(5)As Integer ． For k=1 To 5 art(k)=k Next k prog art（ ） For k=1 T0 5 Print art(k)； Next k End Sub Sub prog(a（ ）As Integer) n=UBound(a) For i=n To 2 step-1 if a(j)<a(j十1)Then t=a(j)：a(1)=a(j+1)；a(j+1)=t End If Next j Next i End Sub 程序运行时，单击命令按钮后显示的是（ ）。
A.12345
B.54321
C.01234
D.43210
相似问题和答案
第1题：
在窗体上添加一个命令按钮(名为Command1)，然后编写如下程序：
Private Sub Command1_Click()
Dim a As Integer,b As Integer
x=10
y=20
End Sub
打开窗体运行后，单击命令按钮，消息框的输出结果为( )。
20 解析： 本题考查IIf函数的知识。对于IIf函数可用于执行简单的条件判断操作，当第一个参数为真时返回第二个参数值，否则返回第三个参数值。因为x＞y为假，所以返回y的值也就是返回20。
第2题：
在窗体上有一个名称为Command1的命令按钮，并有如下程序：
程序执行时，单击命令按钮Command1三次后，窗体上显示的结果为（ ）。
A. 5 16
B. 5 6
C. 15 15
D. 15 6
D) 【解析】本题考查静态变量。静态变量的值有继承性，上一次调用的结果在下一次调用时还是有效的。题目中每次调用Y的值都被重新赋值了，因此单击3次以后Y的值仍然是6，而x每次调用的结果都保留，因此调用3次以后，结果为15。
第3题：
（ 34 ）窗体上有一个名为 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=U b ound （ 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 ） 12345
B ） 54321
C ） 01234
D ） 43210
第4题：
在窗体上画一个名为Command1的命令按钮，编写如下程序：
程序运行后，单击命令按钮，输出的结果是_________。
4
【解析】本题考查了数组的嵌套使用。程序首先通过一个For循环给数组M的各个数组元素赋值，然后通过数组下标嵌套本身。注意：这样的嵌套时，要保证数组下标不出界，否则程序将出错。
第5题：
窗体上有一个名称为Command1的命令按钮，并有如下程序： Private Sub Command1 Click（ ） x=14 Do While x>0 x=x-3 x=IIf(Int(x／5)=x／5，x+2，x) Loop Print x End Sub 程序运行后，单击命令按钮Command1，输出结果为（ ）。
A.0
B.-l
C.-2
D.-_3
B。【解析】根据算法，第一次循环，x=14，第二次循环，x=11，第三次，x=8，……以此类推，x=5，2，-1，当<0时，X为-1。
第6题：
在窗体中有一个名为(Command1的命令按钮，Click事件的代码如下：
单击命令按钮后，标签显示的结果是( )。
25
第7题：
在窗体上添加一个命令按钮，其名为Command1，然后编写代码如下：Option Base 1Private Sub command1_ Click() Dim arr (4)As Integer Dim arrt (4) As Integer for i= 1 To 4 Arr (i)= i arr1 (n)= 2 * n + i Next i Print arr1 (n); arr(n)程序的运行结果为______。
A．3 11
B．11 3
C．10 3
D．3 13
解析：本题难点是循环体内的变量赋值。“arr1(3)=3”比较容易理解，只是arr1(3)在4次循环中最后的结果替代了前面的值，即“arr1(3)=2×3+4=10”。
第8题：
窗体上有一个名为Command1的命令按钮，并有如下程序： Private Sub Corqmand1_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
第9题：
窗体上有一个名称为Command1的命令按钮，并有如下程序：
Private Sub Command1 Click（ ）
x=15
Do While x>0
x=x-3
x=IIf(Int(x／5)=x／5，x+2，x)
Loop
Print x
End Sub
程序运行后，单击命令按钮Command1，输出结果为（ ）。
A.0
B.-l
C.-2
D.-_3
B。【解析】根据算法，第一次循环，x=14，第二次循环，x=11，第三次，x=8，……以此类推，x=5，2，-1，当<0时，X为-1。
第10题：
(6）在窗体上有1个名称为Command 1的命令按钮，并有如下事件过程和函数过程：
Private Sub Command 1_Click()
Dim p As Integer
p＝m(1）＋m(2)＋m(3）
Print p
End Sub
Private Function m(n As Integer) As Integer
Static s As Integer
For k＝1 To n
s＝s＋1
Next
m=s
End Function
运行程序，单击命令按钮Command 1的输出结果为【6】。
（6）10