给出十个10～100的整数，用“选择排序法”按值从大到小顺序排序，最后输出结果,用VB怎么做？

用10个10~100之间的数，用VB按值从大到小顺序排序，最后输出结果的编码是什么？

Private Sub Command1_Click()
Dim a(10) As Integer

For i = 0 To 9
a(i) = Int(Rnd * 91) + 10
Next i

For i = 0 To 9
m = i
For j = i + 1 To 9
If a(m) > a(j) Then m = j
Next j
t = a(m): a(m) = a(i): a(i) = t
Print a(i);
Next i
Print
End Sub

Private Sub Command1_Click() Dim i, j As Integer Dim a(10) As Integer Dim b, c As Integer For i = 0 To 9 a(i) = Int(Rnd * 90 + 10) Next i For i = 0 To 9 b = i For j = i + 1 To 9 If a(b) < a(j) Then b = j Next j c = a(b) a(b) = a(i) a(i) = c Print a(i); Next i Print End Sub