窗体上有一个名为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) 1 2 3 4 5 B) 5 4 3 2 1 C) 0 1 2 3 4 D) 4 3 2 1 0