四则运算vb课程设计报告

《四则运算vb课程设计报告》由会员分享，可在线阅读，更多相关《四则运算vb课程设计报告（14页珍藏版）》请在金锄头文库上搜索。

1、经济管理学院本科课程设计论文面向对象程序设计课程设计面向对象程序设计课程设计学 号： 1005170126 1005170124 姓 名： 王如平 孙晓东 班 级： 管理 101 专 业： 信息管理与信息系统 系 别: 管理系 指导教师： 杨胜春 2012 年 01 月 09 日 吉 林摘要小学数学四则运算，是利用 VB 编写的一款软件，可以随机出现一道 0 9 的四则运算题，答题者输入答案，进行批改，可以判定答案的正确与否。答对一题则加 10 分，答错一题扣10 分，做完若干道题后可以看到最终得分。此软件可以训练小学生的数学四则运算能力，提高孩子的学习兴趣和成绩。目录目录封面封面11内容摘要

2、内容摘要22目录目录33一、功能描述一、功能描述44二、概要设计二、概要设计55三、详细设计三、详细设计 6-116-11四、存在的问题及不足四、存在的问题及不足1212五、结束语、心得体会五、结束语、心得体会1313六、评分表六、评分表 1414一、功能描述一、功能描述1.1.运行运行打开小学数学四则运算软件，进入做题窗口。2.2.出题出题点击出题按钮，软件会随机产生一个 0 9 的四则运算题目。3.3.答题答题在答题框中输入算式的结果。4.4.批改批改答题结束以后点击批改按钮，软件会对所填的答案进行判断，提示对错。并会在答案错误的情况下告知正确结果。5.5.正确、错误正确、错误对答题者所答

3、题正确与错误的个数进行统计。6.6.得分得分答对一题得 10 分，答错一题扣 10 分，判断答题者的答题成绩。二二. .概要设计（模块流程图）概要设计（模块流程图）运行四则运算软件出题随 机 产 生加法算式减法算式乘法算式除法算式答题批改答 案 正 确提示正确记录正确个数得分加 10答 案 错 误提示错误，并给出正确答案记录错误个数得分减 10模块一模块一模模 块块 二二模模 块块 三三三三. .详细设计详细设计本系统共分为三个模块：1.1.模块一模块一实现随机出题的功能模块，单击出题按钮，软件会随机产生一个0 9 的四则运算题目，供答题者作答。（1 1）. .代码如下：代码如下：Privat

4、ePrivate SubSub Command1_Click()Command1_Click()DimDim a(4)a(4) AsAs StringStringDimDim b b AsAs IntegerIntegerRandomizeRandomizeText1.TextText1.Text = = Int(10Int(10 * * RndRnd + + 0)0) 文本框文本框 1 1 中随机产生中随机产生 0 0 - - 9 9 中的一个中的一个 数数a(1)a(1) = = “+“+“a(2)a(2) = = “-“-“a(3)a(3) = = “*“*“a(4)a(4) = = “

5、/“/“b b = = Int(4Int(4 * * RndRnd + + 1)1)Label1.CaptionLabel1.Caption = = a(b)a(b) 标签随机产生标签随机产生“加加” 、 “减减” 、 “乘乘” 、 “除除”号号IfIf Label1.CaptionLabel1.Caption = = a(4)a(4) ThenThenText2.TextText2.Text = = Int(9Int(9 * * RndRnd + + 1)1) 如果标签出现的是如果标签出现的是“”号，则号，则 文本框随机产生中的一个数文本框随机产生中的一个数ElseElseText2.Tex

6、tText2.Text = = Int(10Int(10 * * RndRnd + + 0)0) 如果不是则文本框随机产生如果不是则文本框随机产生 中的一个数中的一个数EndEnd IfIfText3.SetFocusText3.SetFocus EndEnd SubSub（2 2）. .运行界面截图：运行界面截图：加法算式:减法算式：乘法算式：除法算式：（3 3）. .注意事项！注意事项！由于算式是随机产生的，在出现除法算式的情况时，必须使得除数不为 0，这样算式才有意义。要解决这个问题则在做除法运算时将除数限制在 1 9 的范围内2.2.模块二模块二答题者输入答案后单击批改，如果答案正确，

7、则出现答案正确的提示框，并记录下正确个数及加分。（1 1）代码如下：）代码如下：PrivatePrivate SubSub Command2_Click()Command2_Click() DimDim c c AsAs SingleSingleIfIf IsNumeric(Text3.Text)IsNumeric(Text3.Text) = = FalseFalse ThenThenMsgBoxMsgBox “ “请输入数字请输入数字!“,!“, vbOKOnlyvbOKOnly + + vbExclamation,vbExclamation, “ “提示提示“ “ 如果文本框输入如果文本框

8、输入 的不是数字或没有输入，则提示的不是数字或没有输入，则提示“请输入数字请输入数字!”!”Text3.TextText3.Text = = “Text3.SetFocusText3.SetFocusElseElseSelectSelect CaseCase Label1.CaptionLabel1.CaptionCaseCase “+“+“c c = = Val(Text1.Text)Val(Text1.Text) + + Val(Text2.Text)Val(Text2.Text)CaseCase “-“-“c c = = Val(Text1.Text)Val(Text1.Text) -

9、- Val(Text2.Text)Val(Text2.Text)CaseCase “*“*“c c = = Val(Text1.Text)Val(Text1.Text) * * Val(Text2.Text)Val(Text2.Text)CaseCase “/“/“c c = = Val(Text1.Text)Val(Text1.Text) / / Val(Text2.Text)Val(Text2.Text)EndEnd SelectSelectIfIf Text3.TextText3.Text = = c c ThenThenMsgBoxMsgBox “ “恭喜你，回答正确！恭喜你，回答正确

10、！“,“, vbOKOnlyvbOKOnly + + vbInformation,vbInformation, “ “提示提示“ “x x = = x x + + 1 1Text4.TextText4.Text = = x x 记录正确个数记录正确个数z z = = z z + + 1010Text6.TextText6.Text = = z z 加分加分ElseElseEndEnd IfIf EndEnd IfIf EndEnd SubSub(2).(2).运行界面截图：运行界面截图：2（3 3）. .注意事项！注意事项！答题框内必须输入数值型数据。没有输入或输入其他类型数据时软件会提示 “

11、请输入数字！”程序代码为：IfIf IsNumeric(Text3.Text)IsNumeric(Text3.Text) = = FalseFalse ThenThenMsgBoxMsgBox “ “请输入数字请输入数字!“,!“, vbOKOnlyvbOKOnly + + vbExclamation”vbExclamation”Text3.TextText3.Text = = “Text3.SetFocusText3.SetFocusElseElse 3.3.模块三模块三3答题者输入答案后单击批改，如果答案错误，则出现答案错误的提示框，且给出正确答案。同时记录下错误个数及减分。（1 1）.

12、.代码如下：代码如下：IfIf ElseElseMsgBoxMsgBox “ “回答错误！回答错误！“ “ & & “ “ “ “ & & “ “正确结果为正确结果为“ “ & & c,c, vbOKOnlyvbOKOnly + + vbCritical,vbCritical, “ “ 提示提示“ “y y = = y y + + 1 1Text5.TextText5.Text = = y y 记录错误个数记录错误个数z z = = z z - - 1010Text6.TextText6.Text = = z z 减分减分EndEnd IfIf EndEnd IfIf EndEnd SubSu

13、b（2 2）. .运行界面截图：运行界面截图：四四. .存在的问题及不足存在的问题及不足1.在做一个答案为负数的题目时，把负号写在后面答案也为正确。2.在做余数除不尽的除法时，必须把小数点后 7 位都写出。3.未能对答题的正确率进行计算。4.没有设置答题的时间限制。5.当结果为小于 0 的小数时小数点前的 0 不能显示出来。五五. .结束语、心得体会结束语、心得体会为期一周的 VB 语言程序设计很快就结束了，在这段时间里我锻炼了发现，解决实际问题的能力。学会了自主学习，自我提高和自我完善，学以致用。我做的程序是简单的数学四则运算，虽然比较简单，但在实际设计的过程中遇到了许多的问题，比如装载背景

14、图片、解决答案输入类型问题、解决除数不为 0 等等。特别是除数不为 0 的问题，修改、调试了很多次，才确定了其正确的编写方法和所放置的位置。程序设计期间，遇到问题自己思考并积极去解决，也向同学和老师寻求帮助，集思广益，感觉收获颇多，不仅解决了问题，还明白了互助的团队精神。课程设计让我们学习与实践相结合，提高了我们对书本知识的理解和运用能力。锻炼了我的学习能力。在今后的学习中，还要继续加强自主学习与实践的能力。最后，向帮助我的老师和同学表示衷心的感谢！东华理工大学长江学院课程设计评分表学生姓名： 王瑞茂 班级：083222 学号：19课程设计题目：项目内容满分实 评能结合所学课程知识、有一定的能力训练。符合选题要求 （5 人一题）10选 题工作量适中，难易度合理10能熟练应用所学知识，有一定查阅文献及运用文献资料能力10理论