Visual Basic程序设计教程（第二版） -郭清溥 5.ppt

第5章 数组 第5章 数组 第5章 数组 5.1 数组的概念 5.1 数组的概念 5.1 数组的概念 5.1 数组的概念 5.1 数组的概念 5.1 数组的概念 5.1 数组的概念 5.1 数组的概念 5.1 数组的概念 5.1 数组的概念 5.2 控件数组 5.2 控件数组 5.2 控件数组 5.2 控件数组 5.2 控件数组 5.3 程序举例 5.3 程序举例 5.3 程序举例 5.3 程序举例 5.3 程序举例 5.3 程序举例 5.3 程序举例 5.3 程序举例 5.3 程序举例 5.3 程序举例 5.3 程序举例 5.3 程序举例 5.3 程序举例 5.3 程序举例 5.3 程序举例 5.3 程序举例 5.3 程序举例 5.3 程序举例 5.3 程序举例 5.3 程序举例 5.3 程序举例 5.3 程序举例 5.3 程序举例 5.3 程序举例 5.3 程序举例 5.3 程序举例 5.3 程序举例 5.3 程序举例 5.3 程序举例 5.3 程序举例 5.3 程序举例 本章小结 例5.4 解法2：选择排序法 Private Sub cmdOK_Click() Dim I%, J%, W%, X! For I = 1 To N - 1 W = I For J = I + 1 To N If D(W) D(J) Then W = J Next J X = D(W): D(W) = D(I): D(I) = X Next I For I = 1 To N lblOutput.Caption = lblOutput.Caption D(I) Next I End Sub 例5.4 解法3：冒泡排序法 分析：冒泡排序法的具体方法是（假定N个数据已经存放到D数组中）：比较D(1)与D(2)，若D(1)D(2)，交换D(1)与D(2)，否则继续比较D(2)与D(3)，若D(2)D(3)，交换D(2)与D(3)，一直下去，比较D(n-1)与D(n)，若D(n-1)D(n)，交换D(n-1)与D(n)。到此为止第一轮比较结束，最大值（泡泡）就“浮出来了”。 重复执行前面的操作（每次都比前一次提前一个数结束），直到将只剩下的D（1）与D（2）比较完为止。 例5.4 解法3：冒泡排序法 Private Sub cmdOK_Click() Dim I%, J%, X! For I = 1 To N - 1 For J = 1 To N - I If D(J) D(J + 1) Then X = D(J): D(J) = D(J + 1): D(J + 1) = X End If Next J Next I For I = 1 To N lblOutput.Caption = lblOutput.Caption D(I) Next I End Sub 例5.6 对一个有9个数据的数据序列，判断由键盘输入的数据是否在其中。 解法1：顺序检索 分析：所谓“顺序检索”就是从第一个数据开始一个一个的比较，直到找到输入的数据或找完全部数据为止。由此可以看出“顺序检索”可以对无序序列进行处理。 检索结束后，如果被检索数据在该序列中，则显示输入数据所在的位置；如果被检索数据不在该序列中，则显示输入的数据“不在序列中”。 例5.6 对一个有9个数据的数据序列，判断由键盘输入的数据是否在其中。 解法1：顺序检索程序源代码如下： Option Explicit Option Base 1 Dim D(1 To 9) As Integer Private Sub Form_Load() Dim I% For I = 1 To 9 D(I) = Int(100 * Rnd) txtOriginal.Text = txtOriginal.Text D(I) Next I End Sub 例5.6 对一个有9个数据的数据序列，判断由键盘输入的数据是否在其中。 解法1：顺序检索程序源代码如下： Private Sub cmdCheck_Click() Dim X!, I