小学运算课程设计报告.docx
《小学运算课程设计报告.docx》由会员分享，可在线阅读，更多相关《小学运算课程设计报告.docx（13页珍藏版）》请在冰豆网上搜索。
小学运算课程设计报告
武汉理工大学华夏学院
课程设计报告书
课程名称：
可视化编程课程设计报告
题目：
编制小学生算术四则运算测试系统
系名：
信息工程系
专业班级：
计算机科学与技术
姓名：
学号：
指导教师:
2011年12月23日
课程设计任务书
学生姓名：
专业班级：
指导教师：
工作单位：
信息工程系
设计题目：
编制小学生算术四则运算测试系统
初始条件：
要求具备VB语言基础；顺序、选择、循环结构；界面设计等相关知识。
要求电脑配置VisualBasic6.0集成开发环境。
要求完成的主要任务：
主要任务：
1．为小学生出题（分别进行＋、－、*、÷不同运算）
2.学生做题后，进行评阅；学生每做一题后，评阅时给出“答题正确，很好”或“答题错误，重做”等字样；
3.加、减、乘、除运算功能可以自由选择实现
4．运算数值可以控制在两位（或三位）数的四则运算范围内；
5.界面美观。
设计报告撰写格式要求：
1.设计题目与要求；
2.设计思想、系统总体框架说明；
3.数据结构、系统各模块功能说明及具体实现的算法；
4.用户界面的设计步骤；写出涉及的主要控件的名称及作用；
5.运行结果、系统关键界面的截图；
6.调试记录（静态检查、动态检查过程中所遇到的问题、解决的办法）、心得体会（即程序设计过程中的经验、体会）；
7.该系统的运行条件（系统支撑环境），运行该系统的方法；
8.附录：
源程序，要求源代码中要有清晰的注释。
时间安排：
12月19日上午布置课程设计任务；分配题目后，查阅资料、准备程序；
12月20日～12月22日上机编写、调试程序、书写课程设计报告；
12月23日上午答辩并提交课程设计报告及相关文档。
指导教师签字：
2011年12月15日
系主任签字：
2011年12月15日
目录
第一章需求分析
1.1系统主要完成具体任务……………………4
1.2设计思想……………………………………4
1.3系统总体框架………………………………5
第二章系统实现
2.1开发环境……………………………………5
2.2程序的实现…………………………………5
2.3用户界面的设计步骤………………………6
2.4主要控件的名称及作用……………………7
第三章系统调试与测试
3.1系统运行截图………………………………8
3.2系统调试……………………………………11
第四章心得体会…………………………
………………12
附录源代码…………………………
………………13
第一章需求分析
1.1系统主要完成具体任务
1．为小学生出题（分别进行＋、－、*、÷不同运算）
2.学生做题后，进行评阅；学生每做一题后，评阅时给出“答题正确，很好”或“答题错误，重做”等字样；
3.加、减、乘、除运算功能可以自由选择实现
4．运算数值可以控制在两位（或三位）数的四则运算范围内；
5.界面美观。
1.2设计思想
本程序是用VB做的一个简单的四则运算的程序，主要针对的使用对象是小学生。
随机抽取数据进行加、减、乘、除运算，并且可以自由选择。
设计两个窗体：
窗体1进入登陆页面，输入一些简单的基本信息后开始；窗体2进行具体的运算。
在设计程序中运用单行选择语句if···then···else,if语句的嵌套，多条件选择语句SelectCase等语句来实现程序的运行。
1.3系统总体框架
第二章系统实现
2.1开发环境
电脑配置VisualBasic6.0集成开发环境。
2.2程序的实现
窗体1主要是实现姓名的登录以及进入窗体2的转换。
其主要算法有：
PrivateSubCommand1_Click（）
Open"d:
\name.txt"ForOutputAs#1'对姓名的储存
LoadForm2
Form2.Show
显示标题：
Label2.Caption="欢迎使用小学四则运算测试"
PrivateSubText1_Change（）
Command1.Enabled=True
窗体2主要是进行运算及判断正误以及退出!
运算算法：
加法PrivateSubCommand1_Click（）
Randomize
num1=Int（Rnd*101）+1'产生随机数
num2=Int（Rnd*101）+1
Label1.Caption=（num1&"+"&num2&"="）显示结果
Text1.Text=""
d=1
EndSub
其余的加减乘除的算法跟加法类同只除除法仅有些许不同：
除法
Label1.Caption=（（num1*num2）&"/"&num2&"="）
Text1.Text=""
对结果正误的判断算法主要是运用selectcase语句以及if···then···else单行选择语句来完成。
2.3用户界面的设计步骤
先在窗体1添加两个标签label1，label2，一个文本框text以及一个按钮command，并设计他们各自的属性。
然后添加一个新窗体，窗体2form2，在form2中添加两个标签label1，label2，一个文本框text以及六个按钮command1—6，并设计他们各自的属性。
最后寻找适当的图片设计入form1，form2中，使其运行时界面美观。
2.4主要控件的名称及作用
Form1
Label1标签1显示“姓名”
Label2标签2显示标题“欢迎使用小学四则运算测试”
Text1文本框学生输入姓名的地方
Command1按钮显示“开始”，进入form2
Form2
Label1标签1显示随机抽取的计算式
Label2标签2显示学生做题结果的正误
Text1文本框学生输入计算结果的地方
Command1按钮显示“加法”，进行加法的运算
Command2按钮显示“减法”，进行减法的运算
Command3按钮显示“乘法”，进行乘法的运算
Command4按钮显示“除法”，进行除法的运算
Command5按钮显示“答案”，对学生输入的结果进行判断正确或错误
Command6按钮结束运行，退出程序
第3章系统调试与测试
3.1系统运行截图
图3-1form1用户登录界面图
图3-2form2初始进入界面
图3-3加法运算
图3-4减法运算
图3-5乘法运算
图3-6除法运算
3.2系统调试
在运行程序时遇到了一些问题，比如，在判断学生输入的答案是否正确时老是判断反了，即正确的判断为错误的，错误的判断为正确的。
经检查，自己的查阅资料以及其他同学的帮助下终于调试成功。
最终将程序调试成如下：
PrivateSubCommand5_Click（）
SelectCased
Case1
IfVal（Text1.Text）=num1+num2Then
Label2.Caption="答题正确，很好。
"
Else:
Label2.Caption="答题错误，重做。
"
EndIf
Text1.Text=""
还有就是为窗口添加图片时遇到了些问题，通过同学的帮助最终添加成功。
添加图片的来源即可：
PrivateSubForm_Load（）
Picture=LoadPicture（"E:
\1.jpg"）
其中加减乘除各个运算出现的式子大约都一样，所以应在各个算法产生随机数字之前加入randomize
例如：
PrivateSubCommand1_Click（）
Randomize
num1=Int（Rnd*101）+1'产生随机数
num2=Int（Rnd*101）+1
第四章心得体会
忙碌了一个星期，终于顺利完成了对此程序的编译及试运行。
还记得当初为了调试程序，整整调试一天，都还在那纠结着，急得自己要疯了，不过最后终于在自己查阅资料及同学的帮助下，将程序编译成功。
而当运行成功后，自己都要高兴死了，有种舒了口气的感觉：
终于运行成功了！
我们通过一学期的学习，对于VB的特点和算法有了一定程度的了解。
这一周的课程设计正是让我们巩固以前的知识并在此基础上能够有所突破。
另外平时学习VB的基础也很关键，因为如果平时学得就不怎么样，那么你面对这么一个比较有难度的程序，可能会望而却步，看懂他人的程序都是个难点，更别说让自己去设计。
虽然其中遇到了很多困难，也弄得自己上火，甚至通宵去弄程序，编译、调试程序，但很感谢这次的课程设计，因为它使我更加深刻地体会到VB程序编写过程的严谨与细致，还有就是无论做任何事都要有耐心。
当然集体的力量也会很大，这会使你在学习过程中倍感轻松，所以在此次课程设计过程中，通过同学的帮助，自己的查阅资料等终于完成了这次设计。
总的来说，这次程序设计让我获益匪浅，对VB也有了进一步的认识.比如说怎样在界面上添加图片使其更美观，怎样为按钮添加颜色等。
当然还有许多我们还未发现，希望能在以后的学习中有更深入的认识。
附录源代码
PrivateSubCommand1_Click（）
Open"d:
\name.txt"ForOutputAs#1'对姓名的储存
Print#1,Text1.Text
Close#1
LoadForm2
Form2.Show
UnloadForm1
EndSub
PrivateSubForm_Load（）
Label2.Caption="欢迎使用小学四则运算测试"
Picture=LoadPicture（"E:
\1.jpg"）
EndSub
PrivateSubText1_Change（）
Command1.Enabled=True
EndSub
Dimnum1%,num2%,d%
PrivateSubCommand1_Click（）
Randomize
num1=Int（Rnd*101）+1'产生随机数
num2=Int（Rnd*101）+1
Label1.Caption=（num1&"+"&num2&"="）
Text1.Text=""
d=1
EndSub
PrivateSubCommand2_Click（）
Randomize
num1=Int（Rnd*101）+1'产生随机数
num2=Int（Rnd*101）+1
Label1.Caption=（num1&"-"&num2&"="）
Text1.Text=""
d=2
EndSub
PrivateSubCommand3_Click（）
Randomize
num1=Int（Rnd*101）+1'产生随机数
num2=Int（Rnd*101）+1
Label1.Caption=（num1&"*"&num2&"="）
Text1.Text=""
d=3
EndSub
PrivateSubCommand4_Click（）
Randomize
num1=Int（Rnd*101）+1'产生随机数
num2=Int（Rnd*101）+1
Label1.Caption=（（num1*num2）&"/"&num2&"="）
Text1.Text=""
d=4
EndSub
PrivateSubCommand5_Click（）
SelectCased
Case1
IfVal（Text1.Text）=num1+num2Then
Label2.Caption="答题正确，很好。
"
Else:
Label2.Caption="答题错误，重做。
"
Text1.Text=""
EndIf
Case2
IfVal（Text1.Text）=num1-num2Then
Label2.Caption="答题正确，很好。
"
Else:
Label2.Caption="答题错误，重做。
"
Text1.Text=""
EndIf
Case3
IfVal（Text1.Text）=num1*num2Then
Label2.Caption="答题正确，很好。
"
Else:
Label2.Caption="答题错误，重做。
"
Text1.Text=""
EndIf
Case4
IfVal（Text1.Text）=num1*num2/num2Then
Label2.Caption="答题正确，很好。
"
Else:
Label2.Caption="答题错误，重做。
"
Text1.Text=""
EndIf
EndSelect
EndSub
PrivateSubCommand6_Click（）
End
EndSub
PrivateSubForm_Load（）
Picture=LoadPicture（"E:
\2.jpg"）
EndSub
设计过程及答辩回答问题记载：
（至少三个问题）
1.怎样使随机产生的数据不同？
在num1=Int（Rnd*101）+1'产生随机数
num2=Int（Rnd*101）+1
前加上语句Randomize
2.怎样对界面导入图片？
加入语句PrivateSubForm_Load（）
Picture=LoadPicture（"E:
\2.jpg"）
EndSub
即可
3.怎样查询成绩？
设计语句PrivateSubCommand6_Click（）
MsgBox（"您做了"&（m+n）&"个题目，做对了"&m&"个，做错了"&n&"个"）
EndSub
指导教师评语：
升级会员 