VB：随机产生10个两位数，按大到小递减次序排列，并将排序结果显示出来？

Question

如题所述

Answer 1

已经写好VB的程序，并经过运行调试。代码如下：
Private Sub Command1_Click()
Dim a(100) As Integer
Randomize
For i = 1 To 10
x = Rnd * 90 + 10
a(x) = a(x) + 1
Next i
For i = 10 To 100
For j = 1 To a(i)
Print i;
Next j
Next i
Print: Print
End Sub本回答被网友采纳