高职考技能提升教程013期 冒泡排序法和选择排序法

冒泡排序法原理

数据：3、9、6、1

排序：

1.使用相邻两个数值之间两两比较的方式。

2.如果是从小到大排序，比较的时候，如果第一个数值比第二个数值要大，那么两个数值之间进行交换。

3.如果是从小到大进行排序，每次比较完成后，最后一个数值就是最大的。

冒泡比较过程

数据：3、9、6、1 从小到大排序

第1轮第1次：3、9、6、1

第1轮第2次：3、6、9、1

第1轮第3次：3、6、1、9 这里产生一个最大值在最后

第2轮第1次：3、6、1、9

第2轮第2次：3、1、6、9这里产生第二大

第3轮第1次：1、3、6、9这里产生最终的排序结果

数组声明

法一：明确数组的元素数量

Dim a(9) as integer

还可以对索引进行定义

Dim a(1 To 6) As Integer

法二：不明确数组元素个数

Dim a() as integer

重新定义个数

Redim a(9)

冒泡排序法实战案例

综合案例试题

分析：

1.利用时钟控件让6个数字进行不断变化

2.利用冒泡排序法经6个数字进行排序

3.最大数其实就是排序后的最大数先输出

4.最小数其实就是最小的数值先输出，依次输出，注意0的情况。

实战过程

分析得到这个高考模拟题是选择排序法，就要用到选择排序法的思想：如果从大到小排序，那么每一轮选出一个最大值的索引，放到前一个位置。

1.先把时钟控件代码写好，分别能够对6个文本控件赋值

2.将代码复制到停止按钮中

3.分析已有的代码，我们通过分析得知，这个程序是要进行从大到小进行排序的。

4.通过循环将文本框中的6个数值分别存入a数组中。

5.分析得到a(t)表示每一轮的最大值，t表示每一轮比较出来的最大值的索引（这里有选择排序的意思）

6.当输出最小值的时候要注意，寻找到非零的位置的数值的索引，并且在输出的时候不能输出这个索引的值。

总结

1.写程序的特质，一定要有耐心！

2.注意观察变量的值，观察程序结果是否正确。

3.选择排序法是要找到最值的索引，并且要用最值索引进行比较。每一轮找到一个最值。

4.冒泡排序法是相邻数值之间的比较，每一轮找到一个最值。

5.学会程序调试的方式，这样能够快速解决问题。

软件设计界面：

源代码分享：

Option Explicit
'从小到大进行排序
Private Sub Command1_Click()
Dim i As Integer '第几轮
Dim j As Integer '第几次
For i = 0 To 2 Step 1
    For j = 0 To 2 - i Step 1
        '如果第一个数值比第二个数值要大，就要交换
        If Val(Text1(j).Text) > Val(Text1(j + 1).Text) Then
            Dim t As String '实现交换
            t = Text1(j).Text
            Text1(j).Text = Text1(j + 1).Text
            Text1(j + 1).Text = t
        End If
    Next j
Next i
End Sub