㈠ 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
为了消除排序后的重复数据，你可以在得到数组之后，就对他进行删除，这样还能减少 冒泡排序中占用的时间