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

Question

如题所述

Answer 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

追问

坑爹呢这是乱来

坑爹呢这是乱来

追答

wq vc r wq yi j wh wtgk