随机找出十个2位数，按从小到大递减的排序排列，并显示结果

Question

这是vb课程上的题，自己不会做，没办法只好求教各位大虾啦…

Answer 1

Private Sub Command1_Click()
Dim i%, j%, m%, s(9)
Randomize
For i = 0 To 9
s(i) = Int(Rnd * 90 + 10)
Next
Print "原数组是:"; Join(s)

For i = 0 To 9
For j = i + 1 To 9
If s(j) < s(i) Then m = s(i): s(i) = s(j): s(j) = m
Next
Next
Print "排序后数组是:"; Join(s)
End Sub