VB: Visual Basic 6.0: Office编程的利器。虽然时下VB6.0似乎已经称为开发者的往事，但是Microsoft Office系列软件的控制和操作仍然是基于VB6.0的。本项目是为所有学习VB6.0的同学而建立的。

# VB程序设计
时下，VB6.0似乎已经成为开发者的往事，但是Microsoft Office系列软件的控制和操作仍然是基于VB6.0的。本项目是为所有学习VB6.0的同学而建立的。

## 问题1: 排序算法
**排序算法**是计算机程序设计中最经典的算法，在计算机的专业课《数据结构》中有大量的讨论和分析。我们在这里只讨论最简单的**选择排序**和**冒泡排序**。讨论从一个填空题开始。
``` Java 
' 功能：将数组a()中的元素按从小到大排序'
' 参数：数组a()的下标索引为从1到30'
Sub bubble_sort(a() As Integer)
    For i = 1 To 29
        For j = 【2】
            If a(i) > a(j) Then
                m = a(i): a(i) = a(j): a(j) = m
            End If
        Next j
    Next i
End Sub
```
**问题**：【2】这个地方应该填什么？是 i+1 To 30？还是 1 To 30-i？
- 首先，最正确的姿势是记住！甭管是冒泡还是选择排序，这里j的取值应该与i正好错开1，【2】处应该填：i+1 To 30
- 其次，理解排序的原理。为什么不是：1 To 30-i呢？
首先，我们要明确目标。因为要对数组a()从小到大排序，我们期望：依次扫描a()中的每个元素，每扫描到一个元素a(i)，都使得它是剩下的元素（从a(i)到a(30)）中最小的。怎么做到呢？可以从a(i)一直扫描到a(30)，找到最小的元素a(p)，令a(i)和a(p)的值交换（**注意：这里不能直接让a(i)=a(p)，否则，a(i)的原有值就不见了**）。用下面的伪代码表示：
``` Java 
'代码块1'
Sub selection_sort(a() As Integer)
    For i = 1 To 30
        '从a(i) 到 a(30)中找到最小的元素a(p)'
		'将a(i)和a(p)的值交换'
    Next i
End Sub
```
那么，怎么从a(i) 到 a(30)中找到最小的元素a(p)呢？可以这样做：
``` Java 
'代码块2'
        p = a(i) '首先，假设a(i)就是最小的'
        For j = i To 30 '从a(i) 扫描到 a(30)'
            If p > a(j) Then '一旦发现p比a(j)还大，就让p指向a(j)'
                p = a(j)
            End If
        Next j
```
上述做法，就是**选择排序**的思想。我们可以将代码**优化**下：
首先，j 不必从 i 开始扫描，因为当 j = i 时，a(j)没有必要跟a(p)进行比较（这时，p 也等于 i）。
其次，p 指向a(i)的索引就可以了，没有必要指向a(i)。
``` Java 
'代码块3'
        p = i '假设a(i)就是最小的'
        For j = i+1 To 30
            If a(p) > a(j) Then '一旦发现a(p)比a(j)还大，就让 p 指向 j'
                p = j
            End If
        Next j
```
这时，将**代码块3**嵌入**代码块1**，就可以得到完整的**选择排序**的代码了：
``` Java 
'代码块1'
Sub selection_sort(a() As Integer)
    For i = 1 To 30
        '从a(i) 到 a(30)中找到最小的元素a(p)'
		p = i '假设a(i)就是最小的'
        For j = i+1 To 30
            If a(p) > a(j) Then '一旦发现a(p)比a(j)还大，就让 p 指向 j'
                p = j
            End If
        Next j
		'将a(i)和a(p)的值交换'
    Next i
End Sub
```
- 经过上面的推演，我们就得到了一个双重循环。反过来，如果直接拿到的就是这样一个双重循环的话，会不会感觉阅读起来很困难？实际上，只要把外层循环 i 固定为某个特定的值来理解内层循环 j 就可以了。
- 再来看**冒泡排序法**。它与**选择排序法**最大的不同在于：在其内层循环 j 中，一旦发现a(p)比a(j)还大，就让 a(p) 和 a(j) 的值交换，而 p 是始终指向 i 的（因为a(p)中一直存放最小的值，所以，p就没有必要再移动了）。这样，每经过一次内层循环，就相当于剩下元素中具有最小值的那个元素（具有最小的质量）从水底下浮出来了，因此称为“**冒泡排序法**”。具体代码如下：
``` Java 
'代码块1'
Sub selection_sort(a() As Integer)
    For i = 1 To 30
        '从a(i) 到 a(30)中找到最小的元素a(p)'
		'假设a(i)就是最小的，并且始终存放剩余元素中的最小值'
        For j = i+1 To 30
            If a(i) > a(j) Then '一旦发现a(i)比a(j)还大，就让它们交换'
                m = a(i): a(i) = a(j) : a(j) = m
            End If
        Next j
    Next i
End Sub
``` 
- 那么，上面的“**选择排序**”和“**冒泡排序**”哪个更优呢？也就是，哪个排序算法的速度更快呢？显然是**选择排序**。因为冒泡排序在最坏的情况下需要 30-(i+1)+1=30-i 次 a(j) 和 a(i) 的交换，而选择排序只要交换交换 1 次即可。
- 再来看同学的问题，同学尝试将内层循环 j 设置为 1 To 30-i 有什么问题呢？事实上，这样做就意味着：该做的没有做，不该做的却费力去做。**第一，该做的没有做。**你看，这样做只能找到从a(1)到a(30-i)中的最小值，那a(30-i)之后的元素呢？**第二，不该做的却费力去做。**为了让 a(i) 为剩下元素中的最小值，还需要做许多冗余的工作：它还要跟它之前的已经比它还小的元素依次比较，这完全是没有必要的，因为比它大的元素，只可能在它后边。
- 如果我们非要将内层循环 j 设置为 1 To 30-i 呢？如果非要这样做，外层循环 i 的设置必须改变，它必须从 a(i) 的最后一个元素倒着走向 a(i) 的第一个元素，以保证：每次a(i)中都存放最大值。这样的程序该如何写？请同学们自行练习。

白天黑夜/VB

简介

发行版

贡献者

近期动态

白天黑夜/VB .gitee-modal { width: 500px !important; }

简介

发行版

贡献者

近期动态

搜索帮助

白天黑夜/VB