admin 管理员组

文章数量: 1086019


2024年3月27日发(作者：数三声组词)

冒泡排序（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


本文标签： 小数 个数 放前 排序 输入

版权声明：本文标题：VB冒泡排序的实例 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1711519599a598063.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。