vb数组排序

取个按钮控件
程序如下
Private Sub Command1_Click()
Dim N As Integer, Ar() As Integer, i As Integer, j As Integer, T As Integer
N = Val(InputBox("输入数字的个数")) - 1
ReDim Ar(N)
For i = 0 To N
Ar(i) = Val(InputBox("输入第" & i & "个数字："))
Next i
Print "排序前的结果是："
For i = 0 To N
Print Ar(i); " ";
Next i
For i = N To 1 Step -1
For j = 0 To i - 1
If Ar(j) < Ar(j + 1) Then
T = Ar(j)
Ar(j) = Ar(j + 1)
Ar(j + 1) = T
End If
Next j
Next i
Print
Print "排序后的结果是："
For i = 0 To N
Print Ar(i); " ";
Next i
End Sub