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

Question

如题所述

Answer 1

我来回答吧，呵呵，马上给你代码：在窗体的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