四则运算vb课程设计报告.doc

《四则运算vb课程设计报告.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

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

2、……………………………2目录…………………………………………………………3一、功能描述………………………………………………4二、概要设计………………………………………………5三、详细设计………………………………………6--11四、存在的问题及不足……………………………………12五、结束语、心得体会……………………………………13六、评分表………………………………………………14一、功能描述1.运行打开小学数学四则运算软件，进入做题窗口。2.出题点击出题按钮，软件会随机产生一个0—9的四则运算题目。3.答题在答题框中

3、输入算式的结果。4.批改答题结束以后点击批改按钮，软件会对所填的答案进行判断，提示对错。并会在答案错误的情况下告知正确结果。5.正确、错误对答题者所答题正确与错误的个数进行统计。6.得分答对一题得10分，答错一题扣10分，判断答题者的答题成绩。二.概要设计（模块流程图）运行四则运算软件出题随机产生加法算式减法算式乘法算式除法算式答题批改答案正确提示正确记录正确个数得分加10答案错误提示错误，并给出正确答案记录错误个数得分减10模块一模块二模块三三.详细设计本系统共分为三个模块：1.模块一实现随机出题的功能模块，单击

4、出题按钮，软件会随机产生一个0—9的四则运算题目，供答题者作答。（1）.代码如下：PrivateSubCommand1_Click()Dima(4)AsStringDimbAsIntegerRandomizeText1.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

5、Text2.Text=Int(9*Rnd+1)'如果标签１出现的是“／”号，则文本框２随机产生１－９中的一个数ElseText2.Text=Int(10*Rnd+0)'如果不是则文本框２随机产生０－９中的一个数EndIfText3.SetFocusEndSub（2）.运行界面截图：加法算式:减法算式：乘法算式：除法算式：（3）.注意事项！由于算式是随机产生的，在出现除法算式的情况时，必须使得除数不为0，这样算式才有意义。要解决这个问题则在做除法运算时将除数限制在1—9的范围内2.模块二答题者输入答案后单击批改，如果

6、答案正确，则出现答案正确的提示框，并记录下正确个数及加分。（1）代码如下：PrivateSubCommand2_Click()DimcAsSingleIfIsNumeric(Text3.Text)=FalseThenMsgBox"请输入数字!",vbOKOnly+vbExclamation,"提示"'如果文本框３输入的不是数字或没有输入，则提示“请输入数字!”Text3.Text=""Text3.SetFocusElseSelectCaseLabel1.CaptionCase"+"c=Val(Text1.Text)

7、+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)EndSelectIfText3.Text=cThenMsgBox"恭喜你，回答正确！",vbOKOnly+vbInformation,"提示"x=x+1Text4.Text=x'记录正确个数z=z+10Text6.Text=z'加分Else……E

8、ndIfEndIfEndSub(2).运行界面截图：（3）.注意事项！答题框内必须输入数值型数据。没有输入或输入其他类型数据时软件会提示“请输入数字！”程序代码为：IfIsNumeric(Text3.Text)=FalseThenMsgBox"请输入数字!",vbOKOnly+vbExclamation”Text3.Text=""Text3.SetFocus