关于VB选择排序 急

稍微修改了一下：

Private Sub Command2_Click()

List2Clear

n = Val(Text1Text)

For i = 1 To n - 1

min = i

For j = i + 1 To n

If d(min) > d(j) Then

min = j

End If

Next j

If min <> i Then

k = d(i)

d(i) = d(min)

d(min) = k

End If

Next i

For i = 1 To n

List2AddItem Str(d(i))

Next i

End Sub

Dim a(1 To 6) As Integer

Private Sub Command1_Click()

   Dim t As Integer

   For i = 1 To 5

      t = i

      For j = i + 1 To 6

         If a(t) > a(j) Then t = j

      Next j

      b = a(i): a(i) = a(t): a(t) = b

   Next i

   Print "排序后的数组为："

   For i = 1 To 6

      Print a(i);

   Next i

   Print

End Sub

Private Sub Form_Load()

   MeAutoRedraw = True

   Randomize

   Print "排序前的数组为："

   For i = 1 To 6

      a(i) = Int(Rnd  90 + 10)

      Print a(i);

   Next i

   Print

End Sub

冒泡排序法思路：（假设有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

、

冒泡排序（Bubble Sort），是一种计算机科学领域的较简单的排序算法。

它重复地走访过要排序的数列，一次比较两个元素，如果他们的顺序错误就把他们交换过来。走访数列的工作是重复地进行直到没有再需要交换，也就是说该数列已经排序完成。

这个算法的名字由来是因为越大的元素会经由交换慢慢“浮”到数列的顶端，故名。

以上就是关于关于VB选择排序 急全部的内容，包括:关于VB选择排序 急、编写VB代码，已知存放在数组中的6个数，用选择法按递增顺序排序、VB编程怎么排序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！