谁能解答：VB中随机产生10个2位数，按从大到小的顺序排列，并显示排序结果

Private Sub Form_Click()
Dim a(1 To 10)
Randomize Timer
For i = 1 To 10
a(i) = Int(Rnd * 90 + 10)
Print a(i); " ";
Next i
For i = 1 To 9
For j = i + 1 To 10
If a(i) < a(j) Then
c = a(i)
a(i) = a(j)
a(j) = c
End If
Next j
Next i
Print
For i = 1 To 10
Print a(i); " ";
Next i
End Sub

用rnd函数所以10个2位数,再将这个10个数存到一个数组中,将数组进行排序就可以了

Dim f() As String, tmp As Single, i As Single, j As Single, k, ks As String
For i = 1 To 10
ks = ""
Do While Len(ks) <> 2
ks = Int(Rnd() * 100)
Loop
k = k & " " & ks
Next i

k = Trim(k)
f = Split(k, " ")

If UBound(f) = 0 Then Exit Sub

ReDim h(0 To UBound(f) - 1) As String
For i = 0 To UBound(f)
For j = i To UBound(f)
If CSng(f(j)) < CSng(f(i)) Then
tmp = f(i)
f(i) = f(j)
f(j) = tmp
End If
Next j
Next i
k = ""
For i = 0 To UBound(f)
k = k & CSng(f(i))
If i < UBound(f) Then k = k & " "
Next i
Print k