用随机数函数产生10个40内的整数，使用快速选择排序法从小到大排序

用随机数函数产生10个40内的整数，使用快速选择排序法从小到大排序

Option Explicit
Dim 数值(0 To 9) As IntegerPrivate Sub Command1_Click()
Dim i As Integer
Cls
For i = 0 To 9
数值(i) = Rnd * 40
Print 数值(i)
Next i
End SubPrivate Sub Form_Load()
Randomize
End SubPrivate Sub Command2_Click()
Dim i As Integer, j As Integer, tmp As Integer
Print "-------------"
For i = 0 To 9
For j = 0 To 9
If 数值(i) < 数值(j) Then
tmp = 数值(j)
数值(j) = 数值(i)
数值(i) = tmp
End If
Next j
Next i
For i = 0 To 9
Print 数值(i)
Next i
End Sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/vqm7pm8p4.html