“冒泡法”排序的动画演示..doc

沈 阳 航 空 航 天 大 学 课程设计 学 号 2009040301001 班 级 姓 名 邓冉冉 课程设计任务书 学院：航宇 专业：飞行器制造工程 班级学号：2009040301001 题目：“冒泡法”排序的动画演示 一、课程设计时间 2011年3月7日~11日（第1周），共计1周。 二、课程设计内容 用控件数组技术实现动画演示，用冒泡法对一组数据（例如：18,12,16,10,11,19,13,19）由小到大排序，演示排序过程中元素变换的完整过程。 要求：排序过程中欲交换值的2个元素，使用明显颜色、闪烁效果。 三、课程设计要求 程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。 代码应适当缩进，并给出必要的注释，以增强程序的可读性。 课程设计说明书： 课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。 四、指导教师和学生签字 指导教师：________ 学生签名：________ 五、成绩 六、教师评语 目 录 一、需求分析 4 二、设计分析 4 三、关键技术 6 四、总结 10 五、完整的源程序 11 六、参考文献 14 一、需求分析 冒泡法是对一组数据进行大小排序的方法，用控件数组技术实现动画演示 演示，演示排序过程中元素变换的完整过程。要求： 排序过程中欲交换值的2个元素，使用明显颜色、闪烁效果。 用控件数组技术实现冒泡法排序的动画演示。 要求冒泡法排序的演示过程必须完整，准确。 二、设计分析 基本原理：整体运用控件数组技术，引入一组随机数组，进行图形操作，并将随机数组作为图形操作的坐标参数值，运用延时函数制作闪烁效果，形象进行数组的比较与排序。 总体设计： 图1 总体设计 （3）详细设计： 图2 详细设计 (4) 界面设计： 图3界面设计 三、关键技术 （1）对变量进行生声明: Option Explicit Dim a(1 To 6) As Integer ‘引入Dim b(1 To 6, 1 To 3) As Integer ‘引入二维数组，声明变量属性 Dim i, j, m, k, n As Integer Dim x0, y0, x1, y1, r As Integer (2)运用控件数组技术，先生成一组随机数组： 程序如下 Private Sub Command1_Click(Index As Integer) ‘命令按钮click事件 Select Case Index Case 0 生成数组 Label1.Caption = For i = 1 To 6 ‘数组含六个元素 Randomize ‘避免生成重复数数组 m = Int(Rnd * 10 + 1) 生成随机数组 For j = i - 1 To 1 Step -1 检验是否有重复数据 If a(j) = m Then m = Int(Rnd * 10 + 1) End If Next j a(i) = m Label1.Caption = Label1.Caption a(i) Next i （3）进行图像操作，画圆，数组元素为圆半径 Case 1 ‘生成图形 Form1.Picture1.DrawWidth = 4 ‘定义线宽 Form1.Picture1.DrawStyle = 6 定义线形 x0 = -15: y0 = 40 ‘圆心坐标初始值 x1 = x0 For i = 1 To 6 Picture1.ForeColor = QBColor(9) ‘圆的颜色为蓝色 Picture1.FillColor = QBColor(9) x1 = x1 + 30: b(i, 1) = x1 将坐标值与半径设为二维数组 y1 = 40: b(i, 2) = y1 r = a(i) * 1.5: b(i, 3) = r Picture1.Circle (x1, y1), r ‘画圆 Next i 图4生成图形 （4）引入延时函数制作闪烁效果，将进行比较的两个数颜色改变，并进行位置变换，并建立标准模块对函数进行声明： Case 2 ‘动画演示 For i = 1 To 5 ‘进行i-1次比较 For j = 1 To