【VB】随机产生10个2位数，按从大到小递减的顺序排列，并显示排序结果

我来回答吧，呵呵，马上给你代码：在窗体的load事件中加入下面的代码：
Private Sub Form_Load()
Me.AutoRedraw = True
Dim rndnum(10) As Integer, tochange As Integer
'产生十个两位随机数,并输出
Me.Print "原始的十个数是:"
For i = 1 To 10
Randomize
rndnum(i) = Int(Rnd * 90) + 10
Me.Print rndnum(i)
Next i
For i = 1 To 10
For j = 1 To 10
If rndnum(i) > rndnum(j) Then '交换两个数
tochange = rndnum(i)
rndnum(i) = rndnum(j)
rndnum(j) = tochange
End If
Next j
Next i
'排序之后再输出之：
Me.Print "排序之后的顺序是:"
For i = 1 To 10
Me.Print rndnum(i)
Next i
End Sub