问题
单项选择题
窗体上有一个名为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．12345
B．54321
C．01234
D．43210
答案
参考答案：B
解析： 本题定义了一个有5个元素的数组，并给数组依次赋了值，然后调用prog函数，该函数的功能是如果a(j)＜a(j+1)，则进行交换，也就是把小的数放在后面，因为j是从1开始的，也就是说1经过交换后被排在最后，所以本题答案为54321。