㈠ vb代碼選擇法排序
一天服用一粒就行，但是不建議長時間服用的，最好從食物中懾入。
㈡ VB選擇法排序
Private Sub Command1_Click()
Dim a(1 To 10) As Integer
For i = 1 To 10
a(i) = Int(Rnd * 10)
Print a(i);
Next i
Print
'以上十隨機得出10個數
For i = 1 To 9 '這里開始是雙重循環
For j = i + 1 To 10
If a(i) > a(j) Then '如果前一個數大於後一個數則交換位置
t = a(i): a(i) = a(j): a(j) = t
End If
Next j
Print a(i);
Next i
Print a(i);
End Sub
I等於1時 就是拿第一位和第二位比較 比較大的的數排後面 然後比較第一位和第三位 For j = i + 1 To 10 直到比較到最後一位
i=2 時也是如此 循環9次就完成排序
5 3 2 7
i=1 時
J=2時 3 5 2 7
J=3時 2 5 3 7
j=4時 2 5 3 7
I=2時
j=3時 2 3 5 7
㈢ vb三種基本排序演算法
三種基本排序演算法（與哪種編程語言無關）：
冒泡排序演算法、選擇排序演算法、插入排序演算法
㈣ vb選擇法排序的怎麼做
Dim str As String = "", temp As Integer = 0, sum As Integer = 0, max As Integer
Dim a(10) As Integer
str = str & "原數組為" & vbCrLf
For i = 1 To 10 Step 1
a(i) = Int(Rnd() * 90 + 10)
str = str & a(i) & " "
Next
str = str & vbCrLf
For i = 1 To 9
max = a(i)
For j = i + 1 To 10
If a(j) > max Then
max = a(j)
temp = a(i) : a(i) = a(j) : a(j) = temp
End If
Next
Next
str = str & "排序後的數組為" & vbCrLf
For i = 1 To 10 Step 1
str = str & a(i) & " "
Next
TextBox6.Text = str
㈤ VB中如何給指定的數組排序
這個就沒有什麼函數了吧,排序的演算法很多.要這種給定的數組只有幾個元素的,用最笨的方法就行了,那就是一個一個比較,如果邊比較代碼都不想寫的話還有一個辦法那就是把這些元素全部加到一個listbox控制項里,設置Sorted屬性=true則自動排好序了,想要降序反過來輸出就行了.注意listbox的SORTED屬性是只讀的要在過程中改變排序方式可以使用MSHFlexGrid控制項的sort屬性支持多種排序方式.
㈥ VB 的基本選擇排序演算法。誰能講一下。基礎一點的
實例：
Private Sub Form_Click()
Dim a(4) As Double
Dim n As Double
Dim i, j, k, t
For i = 0 To 4
a(i) = InputBox("請輸入：" , "選擇法排序")
Next i
For i = 0 To 3
k = i
For j = i + 1 To 4
If a(k) > a(j) Then k = j
Next j
If k <> i Then t = a(k): a(k) = a(i): a(i) = t
Next i
For i = 0 To 4
Print a(i)
Next i
End Sub
㈦ VB編程怎麼排序
冒泡排序法思路：（假設有10個數，需要從小到大排）
Dim a(10)
Randomize
For i = 1 To 10
a(i) = Int(Rnd * i + 3 + Rnd * 10) '給數組賦值
Print a(i);
Next i
Print
For i = 1 To 10 『
For j = i + 1 To 10
If a(j) < a(i) Then 』如果剩餘的比a(i)小的話，就交換
t = a(j)
a(j) = a(i)
a(i) = t
End If
Next j
Next i
For k = 1 To 10
Print a(k); 『列印排好的數
Next k
Print
為了消除排序後的重復數據，你可以在得到數組之後，就對他進行刪除，這樣還能減少 冒泡排序中佔用的時間