VB程序随机数的排列

Dim A(5) As Integer

Private Sub Form_Click()
Dim I, J As Integer
Dim Temp As Integer
Form1.Cls
'产生6个随机数
Randomize
For I = 0 To 5
A(I) = Int(Rnd * 100)
Print A(I);
Next I
'从小到大排列
For I = 0 To 4
For J = I + 1 To 5
If A(I) > A(J) Then
Temp = A(I)
A(I) = A(J)
A(J) = Temp
End If
Next J
Next I
Print Chr(13)
'输出
For I = 0 To 5
Print A(I);
Next I
End Sub

冒泡法、选择法

你随便搜

祝你顺利

最简单是利用listbox控件的sorted属性 为true时 按小到大排序~
用for 循环从第一项取到最后一项就是 反之亦然