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