编写一个能对数组进行排序的Sub px(a() as integer , n as integer)，要求按从大到小排序。

Private Sub Command1_Click()
Randomize
Dim B(1 To 34) As Integer
For i = 1 To 34
B(i) = Int(Rnd * 100)
Next
Call px(B, 34)
Cls
For i = 1 To 34
Print B(i);
Next

End Sub
Private Sub px(a() As Integer, n As Integer)
'不知道这个n参数是什么用，反正我没用到
Dim i As Integer
For i = LBound(a) To UBound(a) - 1
For J = i + 1 To UBound(a)
If a(i) < a(J) Then
T = a(i)
a(i) = a(J)
a(J) = T
End If
Next
Next
End Sub