- 最後登錄
- 2024-5-8
- 在線時間
- 0 小時
- 註冊時間
- 2007-3-29
- 閱讀權限
- 20
- 精華
- 0
- UID
- 991543
- 帖子
- 115
- 積分
- 137 點
- 潛水值
- 12705 米
| 若新密碼無法使用,可能是數據未更新。請使用舊密碼看看。 本帖最後由 darkjack 於 2012-4-16 07:13 AM 編輯
- Dim min As Integer = TextBox1.Text
- Dim max As Integer = TextBox2.Text
- Dim count As Integer = TextBox3.Text
- Dim x As Integer = max - min + 1
- Dim A(x) As Integer
- Dim i As Integer, j As Integer, k As Integer
- Dim rnd As Random = New Random()
- For i = min To max
- A(i - min) = i
- Next
- For i = 0 To x - 1
- j = rnd.Next() Mod x
- k = A(j)
- A(j) = A(i)
- A(i) = k
- Next
- ListBox1.Items.Clear()
- For i = 0 To count - 1
- ListBox1.Items.Add(A(i))
- Next
- For i = 0 To count - 1
- For j = (i + 1) To count
- If A(i) < A(j) Then
- k = A(i)
- A(i) = A(j)
- A(j) = k
- End If
- Next j
- Next i
- ListBox2.Items.Clear()
- For i = 0 To count - 1
- ListBox2.Items.Add(A(i))
- Next
- For i = 0 To count - 1
- For j = (i + 1) To count
- If A(i) > A(j) Then
- k = A(i)
- A(i) = A(j)
- A(j) = k
- End If
- Next j
- Next i
- ListBox3.Items.Clear()
- For i = 0 To count - 1
- ListBox3.Items.Add(A(i))
- Next
- End Sub
複製代碼 雖然跑出亂數了
可是氣泡排序
在小至大或大至小會莫名其妙多出一個新的亂數
進而影響另一個排序
請高手告訴我到底是哪邊出了錯
... |
|