VB中“随机产生10个数,用选择法对10个数进行从小到大排序”要怎么做啊

Question

大家帮帮忙啊

Answer 1

Dim arr(0 To 9) As Integer

Private Sub Form_Load()
Dim i, j, k
Randomize
For i = 0 To 9
arr(i) = Int(Rnd * 100)
Debug.Print arr(i);
Next i
Debug.Print

For i = 0 To 9
k = i
For j = i + 1 To 9
If arr(k) > arr(j) Then k = j
Next j
If k <> i Then
t = arr(k): arr(k) = arr(i): arr(i) = t
End If
Debug.Print arr(i);
Next i
Debug.Print
End Sub

Good luck本回答被提问者采纳

Answer 2

Dim arr(0 To 9) As Integer

Private Sub Form_Load()
Dim i， j， k
Randomize
For i = 0 To 9
arr(i) = Int(Rnd * 100)
Debug.Print arr(i)；
Next i
Debug.Print

For i = 0 To 9
k = i
For j = i + 1 To 9
If arr(k) > arr(j) Then k = j
Next j
If k <> i Then
t = arr(k): arr(k) = arr(i): arr(i) = t
End If
Debug.Print arr(i)；
Next i
Debug.Print。

Answer 3

产生随机数倒是很简单，但是排序就不大好办了，我也学习下……

Answer 4

彩票自选号程序？

Answer 5

两两比较