沈阳航空航天大学。
课程设计。学号2011040602026
班级 14060201
姓名杨壮。教师王晓岩
2024年 6 月 23日。
沈阳航空航天大学。
课程设计任务书。
学院：机电工程专业：工业工程班级：14060201
一、课程设计时间。
2024年6月10日~21日（第16~17周），共计2周，40学时。
二、课程设计内容。
对vb的典型算法进行动画演示，具体要求如下：
1.用学生由高到低站队列的实例对“一组有序数中插入一个数后仍然有序”的算法进行动画演示，学生**自行查找和设计，表现要生动；
2.对用户输入的6个整数编写冒泡法从小到大排序、元素变换的动画演示程序（可以采用控件数组，准备换值的2个元素可以使用显眼颜色、闪烁效果来达到突出显示的目的）。
三、课程设计要求。
程序质量：贯彻事件驱动的程序设计思想。
用户界面友好，功能明确，操作方便。
**应适当缩进，并给出必要的注释，以增强程序的可读性。
课程设计说明书：
课程结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。
四、指导教师和学生签字。
指导教师学生签名：__
五、成绩。六、教师评语。
目录。需求分析 4
设计分析 4
技术要点 5
主要界面截图 7
总结 7完整的源程序 8
参考文献 12
图示冒泡法能够清晰呈现计算机中对于排列大小数组过程，因而可以推及至其它的计算方法的演示。为初学各种语言的人士能够更好的接受和掌握冒泡法及其他方法的掌握。
1） 概述：
基本原理：运用time控件对冒泡法的运算分步体现于窗体上。
2）总体设计：
图1 总体设计。
3）详细设计：
图2 详细设计。
1.对于4个time控件的控制运行的设置。
通过各个command的触发来实现其是否计时。以“开始”为例。
private sub command1_click()
= true
= false
= false
= true
= true
= false
= false
end sub
2 .通过时间循环来实现个数字间比较和互换。
以第一次比较为例。
private sub timer1_timer()
static a as integer
if a = 5 then
a = 0end if
picture1(a).backcolor = hc0&
picture1(a + 1).backcolor = hff00&
if picture1(a).height > picture1(a + 1).height then
picture1(a).borderstyle = 1: picture1(a + 1).borderstyle = 1
end if
a = a + 1
= true
= false
end sub
3.以最后运行最后一次顺序一致使停止。
private sub timer4_timer()
dim k as integer, l as integer
for k = 0 to 4
if picture1(k).height < picture1(k + 1).height then
l = l + 1
end if
next k
if l = 5 then
= false
= false
= false
= false
= true
= false
msgbox "演示结束"
end if
end sub
private sub timer4_timer()
dim k as integer, l as integer
for k = 0 to 4
if val(label1(k).caption) l = l + 1 end if next k if l = 5 then = false = false = false = false = true = false msgbox "冒泡法演示结束" text1(0).text = text1(1).text = text1(2).text = text1(3).text = text1(4).text = text1(5).text = end if end sub 动画演示界面，为主要要界面。 通过这次的为期一周的课程设计，对于vb的编程的知识有了更多了解。尤其是对冒泡法和时间控件的掌握和灵活运用。 在课设过程中，我遇到了重重困难，例如：vb的各种控件的使用。通过同学的指点和自己查阅资料，我克服了困难，顺利的完成了任务。 private sub form_load() = false = false = false = false = true = true end sub private sub command1_click() = true = false = false = true = true = true end sub private sub command2_click() endend sub private sub timer1_timer() static a as integer if a = 5 then a = 0end if picture1(a).backcolor = hc0& picture1(a + 1).backcolor = hff00& if picture1(a).height > picture1(a + 1).height then picture1(a).borderstyle = 1: picture1(a + 1).borderstyle = 1 end if a = a + 1 = true = false end sub private sub timer2_timer() static i as integer, j as integer if i = 5 then i = 0end if if picture1(i).height > picture1(i + 1).height then picture2 = picture1(i): picture1(i) =picture1(i + 1): picture1(i + 1) =picture2 picture1(i).backcolor = h8000000f picture1(i + 1).backcolor = h8000000f end if i = i + 1 = true = false end sub private sub timer3_timer() static c as integer if c = 5 then c = 0end if if picture1(c).height < picture1(c + 1).height then picture1(c).borderstyle = 0: picture1(c + 1).borderstyle = 0 picture1(c).backcolor = h8000000f picture1(c + 1).backcolor = h8000000f end if c = c + 1 = true = false end sub private sub timer4_timer() dim k as integer, l as integer for k = 0 to 4 if picture1(k).height < picture1(k + 1).height then l = l + 1 end if next k if l = 5 then = false = false = false = false = true 在本系统的设计中，主要实现如下一些功能 学习 测试 成绩统计与分析。其中，学习 部分要求教100以内的加 减 乘和除 测试 模块要求随机给出参与运算的数及运算类型，并判断用户的答案，测试完给出得分 成绩统计与分析 模块能够统计成绩各种运算的平均成绩，并画出成绩分布的曲线图或柱状图。欢迎界面 登录界面... 基于vb的温湿度测试分析系统 1 概述。高精度的温湿度测试计与电脑等上位机相连，发挥电脑的数字处理运算的优势，对校验数据进行采集 智能修正 运算等，最后得出校验误差等结果并打印出校验单，省去人工计算 填表等麻烦。本温湿度测试分析系统设计，要求高精度的温湿度测试计通过rs 232串口与上位机电脑相连，... 课程设计报告。课程设计题目 个性化多 器 学生姓名 李汉忠。专业 软件工程 电子商务 班级 10211123 学号 1021112336 指导教师 赵玉芹。2011年 5月 30 日。目录。第一章算法分析页码 第二章工作日志。第三章关键实现技术。第四章设计小结 一 算法分析。1.目录选择对话框 根据...VB课程设计
VB课程设计
VB课程设计