13问答网 > VB程序：编写一程序,产生10个随机数,从小到大排序，求答案！！！！！！！！！！！！！！

VB程序：编写一程序,产生10个随机数,从小到大排序，求答案！！！！！！！！！！！！！！

2025-02-23 09:36:36

推荐回答（1个）

回答1：

Const N = 10
Dim a(1 To N) As Integer
Private Sub Form_Click()
Dim m As Integer, k As Integer, t As Integer
For m = 1 To N
  a(m) = 10 + Int(Rnd * 90)
Next m
For m = 1 To N
 For k = 1 To N - m
  If a(k) > a(k + 1) Then t = a(k): a(k) = a(k + 1): a(k + 1) = t
 Next k
Next m
For m = 1 To N
Print a(m);
If m Mod 5 = 0 Then Print
Next
Print

End Sub