VB中,冒泡法最优化的公式...VB冒泡法最优化的公式...

Question

VB中,冒泡法 最优化的公式...VB 冒泡法 最优化的公式...

Answer 1

VB冒泡排序法代码： 用InputBox输入10个整数，然后调Sort过程排序，最后在窗体上显示排序后的数组。Sort过程中用LBound和UBound来取得数组的下标范围。 Private Sub Command1_Click() Dim a(9) As Integer Dim i As Integer For i = 0 To 9 a(i) = InputBox("输入整数") Next Sort a For i = 0 To 9 Print a(i) Next End Sub Private Sub Sort(ByRef a() As Integer) Dim i As Integer Dim j As Integer Dim t As Integer For i = LBound(a) + 1 To UBound(a) For j = UBound(a) To i Step -1 If a(j - 1) > a(j) Then t = a(j - 1) a(j - 1) = a(j) a(j) = t End If Next Next End Sub冒泡排序只适用于数字比较少的排序，效率不是很高 如果要高效率和使用于多数字的就用快速排序法。