窗体上有一个名为Command1的命令按钮，并有下面的程序： Private Su

问题单项选择题

窗体上有一个名为Command1的命令按钮，并有下面的程序：
Private Sub Command1_Click()
Dim arr(6) As Integer
For k=1 To 6
arr(k)=k
Next k
prog arr()
For k=1 To 6
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) 0 1 2 3 4 5
B) 1 2 3 4 5 6
C) 5 4 3 2 1 0
D) 6 5 4 3 2 1

答案

参考答案：D

解析：在第一个循环中，对数组进行赋值分别为1、2、3、4、5、6；调用子程序prog()，该过程是按从大到小进行排列，在第二个循环中，将数组依次输出，所以正确答案为D) 。