vb冒泡排序法流程图_VB冒泡排序的实例

冒泡排序(

BubbleSort

)的基本概念是：依次比较相邻的两个数，将小数放在前面，大数放

在后面。即首先比较第

1

个和第

2

个数，将小数放前，大数放后。然后比较第

2

个数和第

3

个数，将小数放前，大数放后，如此继续，直至比较最后两个数，将小数放前，大数放后。

重复以上过程，仍从第一对数开始比较(因为可能由于第

2

个数和第

3

个数的交换，使得

第

1

个数不再小于第

2

个数)，将小数放前，大数放后，一直比较到最大数前的一对相邻

数，将小数放前，大数放后，第二趟结束，在倒数第二个数中得到一个新的最大数。如此下

去，直至最终完成排序。

举例：对输入的整数(

6

，

3

，

7

，

8

，

2

，

1

)用冒泡排序法按递增顺序排序

Option Base 1

Private Sub Command1_Click()

Dim a

Dim b As Integer

Dim i As Integer

Dim j As Integer

a = Array(6, 3, 7, 8, 2, 1)

Print "

排序前为

";

For i = 1 To 6

Print a(i);

Next i

For i = 1 To 5

For j = 1 To 6 - i

If a(j) > a(j + 1) Then

b = a(j + 1)

a(j + 1) = a(j)

a(j) = b

End If

Next j

Next i

Print

Print "

排序后为

";

For i = 1 To 6

Print a(i);

Next i

End Sub