四则运算vb课程设计报告.docx
《四则运算vb课程设计报告.docx》由会员分享，可在线阅读，更多相关《四则运算vb课程设计报告.docx（12页珍藏版）》请在冰豆网上搜索。
四则运算vb课程设计报告
经济管理学院本科课程设计论文
面向对象程序设计课程设计
学号：
10051701261005170124
姓名：
王如平孙晓东
班级：
管理101
专业：
信息管理与信息系统
系别:
管理系
指导教师：
杨胜春
2012年01月09日吉林
摘要
小学数学四则运算，是利用VB编写的一款软件，可以随机出现一道0—9的四则运算题，答题者输入答案，进行批改，可以判定答案的正确与否。
答对一题则加10分，答错一题扣10分，做完若干道题后可以看到最终得分。
此软件可以训练小学生的数学四则运算能力，提高孩子的学习兴趣和成绩。
目录
封面…………………………………………………………1
内容摘要……………………………………………………2
目录…………………………………………………………3
一、功能描述………………………………………………4
二、概要设计………………………………………………5
三、详细设计………………………………………6--11
四、存在的问题及不足……………………………………12
五、结束语、心得体会……………………………………13
六、评分表………………………………………………14
一、功能描述
1.运行
打开小学数学四则运算软件，进入做题窗口。
2.出题
点击出题按钮，软件会随机产生一个0—9的四则运算题目。
3.答题
在答题框中输入算式的结果。
4.批改
答题结束以后点击批改按钮，软件会对所填的答案进行判断，提示对错。
并会在答案错误的情况下告知正确结果。
5.正确、错误
对答题者所答题正确与错误的个数进行统计。
6.得分
答对一题得10分，答错一题扣10分，判断答题者的答题成绩。
二.概要设计（模块流程图）
三.详细设计
本系统共分为三个模块：
1.模块一
实现随机出题的功能模块，单击出题按钮，软件会随机产生一个0—9的四则运算题目，供答题者作答。
（1）.代码如下：
PrivateSubCommand1_Click（）
Dima（4）AsString
DimbAsInteger
Randomize
Text1.Text=Int（10*Rnd+0）'文本框1中随机产生0-9中的一个数
a
（1）="+"
a
（2）="-"
a（3）="*"
a（4）="/"
b=Int（4*Rnd+1）
Label1.Caption=a（b）'标签１随机产生“加”、“减”、“乘”、“除”号
IfLabel1.Caption=a（4）Then
Text2.Text=Int（9*Rnd+1）'如果标签１出现的是“／”号，则文本框２随机产生１－９中的一个数
Else
Text2.Text=Int（10*Rnd+0）'如果不是则文本框２随机产生０－９中的一个数
EndIf
Text3.SetFocus
EndSub
（2）.运行界面截图：
加法算式:
减法算式：
乘法算式：
除法算式：
（3）.注意事项！
由于算式是随机产生的，在出现除法算式的情况时，必须使得除数不为0，这样算式才有意义。
要解决这个问题则在做除法运算时将除数限制在1—9的范围内
2.模块二
答题者输入答案后单击批改，如果答案正确，则出现答案正确的提示框，并记录下正确个数及加分。
（1）代码如下：
PrivateSubCommand2_Click（）
DimcAsSingle
IfIsNumeric（Text3.Text）=FalseThen
MsgBox"请输入数字!
",vbOKOnly+vbExclamation,"提示"'如果文本框３输入的不是数字或没有输入，则提示“请输入数字!
”
Text3.Text=""
Text3.SetFocus
Else
SelectCaseLabel1.Caption
Case"+"
c=Val（Text1.Text）+Val（Text2.Text）
Case"-"
c=Val（Text1.Text）-Val（Text2.Text）
Case"*"
c=Val（Text1.Text）*Val（Text2.Text）
Case"/"
c=Val（Text1.Text）/Val（Text2.Text）
EndSelect
IfText3.Text=cThen
MsgBox"恭喜你，回答正确！
",vbOKOnly+vbInformation,"提示"
x=x+1
Text4.Text=x'记录正确个数
z=z+10
Text6.Text=z'加分
Else
……
EndIf
EndIf
EndSub
（2）.运行界面截图：
（3）.注意事项！
答题框内必须输入数值型数据。
没有输入或输入其他类型数据时软件会提示“请输入数字！
”
程序代码为：
IfIsNumeric（Text3.Text）=FalseThen
MsgBox"请输入数字!
",vbOKOnly+vbExclamation”
Text3.Text=""
Text3.SetFocus
Else……
3.模块三
答题者输入答案后单击批改，如果答案错误，则出现答案错误的提示框，且给出正确答案。
同时记录下错误个数及减分。
（1）.代码如下：
If………
……
Else
MsgBox"回答错误！
"&""&"正确结果为"&c,vbOKOnly+vbCritical,"提示"
y=y+1
Text5.Text=y'记录错误个数
z=z-10
Text6.Text=z'减分
EndIf
EndIf
EndSub
（2）.运行界面截图：
四.存在的问题及不足
1.在做一个答案为负数的题目时，把负号写在后面答案也为正确。
2.在做余数除不尽的除法时，必须把小数点后7位都写出。
3.未能对答题的正确率进行计算。
4.没有设置答题的时间限制。
5.当结果为小于0的小数时小数点前的0不能显示出来。
五.结束语、心得体会
为期一周的VB语言程序设计很快就结束了，在这段时间里我锻炼了发现，解决实际问题的能力。
学会了自主学习，自我提高和自我完善，学以致用。
我做的程序是简单的数学四则运算，虽然比较简单，但在实际设计的过程中遇到了许多的问题，比如装载背景图片、解决答案输入类型问题、解决除数不为0等等。
特别是除数不为0的问题，修改、调试了很多次，才确定了其正确的编写方法和所放置的位置。
程序设计期间，遇到问题自己思考并积极去解决，也向同学和老师寻求帮助，集思广益，感觉收获颇多，不仅解决了问题，还明白了互助的团队精神。
课程设计让我们学习与实践相结合，提高了我们对书本知识的理解和运用能力。
锻炼了我的学习能力。
在今后的学习中，还要继续加强自主学习与实践的能力。
最后，向帮助我的老师和同学表示衷心的感谢！
东华理工大学长江学院
课程设计评分表
学生姓名：
王瑞茂班级：
083222学号：
19
课程设计题目：
项目内容
满分
实评
选
题
能结合所学课程知识、有一定的能力训练。
符合选题要求
（5人一题）
10
工作量适中，难易度合理
10
能
力
水
平
能熟练应用所学知识，有一定查阅文献及运用文献资料能力
10
理论依据充分，数据准确，公式推导正确
10
能应用计算机软件进行编程、资料搜集录入、加工、排版、制图等
10
能体现创造性思维，或有独特见解
10
成
果
质
量
总体设计正确、合理，各项技术指标符合要求。
10
说明书综述简练完整，概念清楚、立论正确、技术用语准确、结论严谨合理；分析处理科学、条理分明、语言流畅、结构严谨、版面清晰
10
设计说明书栏目齐全、合理，符号统一、编号齐全。
格式、绘图、表格、插图等规范准确，符合国家标准
10
有一定篇幅，字符数不少于5000
10
总分
100
指导教师评语：
指导教师签名：
年月日
升级会员 