实验二VB冒泡排序法.pdf

《实验二VB冒泡排序法.pdf》由会员分享，可在线阅读，更多相关《实验二VB冒泡排序法.pdf（2页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、 实验二 VB 冒泡排序法 一实验目的 熟悉 VB 集成开发环境，掌握一种排序算法，即冒泡排序法 二实验条件和环境 Visual Basic6.0 集成开发环境 三实验任务和要求 将一组数据(12.5, 34, 45, 21, 67, 4, 12, 45, 47, 56)从小到大排序，要用冒泡排序法 四实验内容 1.实验步骤 （1）运行 Visual Basic6.0，新建一个工程应用程序 （2）参照相关资料编写程序，包括定义数组、数组赋值，排序算法。 (3) 新建工程，选择“标准 EXE” (4) 设计界面,用工具箱在窗体上分别绘制二个命令按纽 command1,command2, 然后调整

2、控件大小，调整控件的位置。 (5) 设计属性 (6）编写代码 2. 操作指导 Option Base 1 设数组下标从 1 开始 Private Sub Command1_Click() Dim i, n, m, k As Integer Dim sun(), temp As Single 数组，变量定义 n = 10 ReDim sun(n) 重新定义数组 Print 排序前 sun = Array(12.5, 34, 45, 21, 67, 4, 12, 45, 47, 56) 输入的数据 1For i = 1 To n sun(n) = Val(InputBox(随机输入 10 个数，准

3、备排序：第 + Str(n) + 个, 输入 10 个数) Print sun(i); 打印输入的 10 个数 Next i 下面为排序代码,n 个数需要 n-1 次比较 For m = 1 To 9 因为只需要比较 n-1 次,所以 1 到 9 即可 For k = 1 To 10 - m 每趟比较大数都沉底，下次只需要比较余下的数大小 If (sun(k) sun(k + 1) Then temp = sun(k) sun(k) = sun(k + 1) sun(k + 1) = temp End If Next k Next m Print: Print 输出空行，与前面输出分开 Print 排序后 For i = 1 To 10 Print sun(i); Next i End Sub Private Sub Command2_Click() End End Sub 2