冒泡排序算法的程序及调试实验报告.doc

冒泡排序算法的程序及调试大作业 单击“开始”→“所有程序”→“Microsoft Visual Basic 6.0中文版”→“Microsoft Visual Basic 6.0中文版” 在已经打开的界面内双击打开“标准EXE”如下图： 点击工具箱窗口的“Frame”在窗体窗口中添加“Frame1”和“Frame2” 分别点击工具箱窗口的“Label”和“Command Button” 在“Frame1”和“Frame2”中添加“Label1” 、“Label2” 、“Label3” 、“Label4”和“Command1” 、“Command2” 利用Visual Basic提供的对齐、布局等功能调整控件的位置，使之对齐并美观 在属性窗口中更改控件设置： 将“Frame1”改为“初始数据” 将“Frame2”改为“排序结果” 将“Label1”改为“姓名（张三，李四，王五，刘六，贾七，李一，秦八，赵二，程九，王十）” 将“Label2”改为“成绩（12，7，49，78，19，33，66，50，51，80）” 将“Label3”改为“姓名” 将“Label4”改为“成绩” 将“Command1” 、“Command2”分别改为“排序” 、“退出” 点击“排序” 在光标处输入程序代码： 冒泡程序 Dim sName, Grade Dim Temp As Integer Dim Temp1 As String sName = Array(张三, 李四, 王五, 刘六, 贾七, 李一, 秦八, 赵二, 程九, 王十) Grade = Array(12, 7, 49, 78, 19, 33, 66, 50, 51, 80) For i = 0 To 9 For j = 0 To 9 - i If Grade(j) Grade(j + 1) Then 交换程序 Temp = Grade(j + 1) Grade(j + 1) = Grade(j) Grade(j) = Temp 交换姓名 Temp1 = sName(j + 1) sName(j + 1) = sName(j) sName(j) = Temp1 End If Next j Next i 排序后姓名按照成绩的由高到低输出 Dim eName As String eName = For k = 0 To 9 eName = eName sName(k) Next k Label3.Caption = 姓名( eName ) 排序后姓名按照成绩的由高到低输出 Dim eScore As String eScore = For s = 0 To 9 eScore = eScore Str(Grade(s)) Next s Label4.Caption = 分数( eName ) 点击“运行”→“启动”，开始启动程序 单击“排序”按钮会出现错误，信息提示为“下标越界” 单击“调试”， “If Grade(j)Grade(j+1)Then”处出现了黄色背景提示 将“For i=0 To 9”和“For j=0 To 9-i”两处的“9”改为“8” 点击“运行”→“重新启动” 单击“排序”，得出最终结果，如下图： 另外，还可点击“调试”对程序进行“设置断点调试” 、“单步调试”等操作 1113240118 黄奕毅 1113240118 黄奕毅