VB课程设计报告--小学数学四则运算

《VB课程设计报告--小学数学四则运算》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、《VisualBasic程序设计》课程设计报告课程设计题目：小学数学四则运算姓名：xxxx专业：班级：学号：指导老师：2009年12月10日13摘要小学数学四则运算，是利用VB编写的一款软件，可以随机出现一道0—9的四则运算题，答题者输入答案，进行批改，可以判定答案的正确与否。答对一题则加10分，答错一题扣10分，做完若干道题后可以看到最终得分。此软件可以训练小学生的数学四则运算能力，提高孩子的学习兴趣和成绩。13目录封面…………………………………………………………1内容摘要……………………………………………………2目录…………………………………………………………3一、功能描述…

2、……………………………………………4二、概要设计………………………………………………5三、详细设计………………………………………6--11四、存在的问题及不足……………………………………12五、结束语、心得体会……………………………………13六、评分表………………………………………………1413一、功能描述1.运行打开小学数学四则运算软件，进入做题窗口。2.出题点击出题按钮，软件会随机产生一个0—9的四则运算题目。3.答题在答题框中输入算式的结果。4.批改答题结束以后点击批改按钮，软件会对所填的答案进行判断，提示对错。并会在答案错误的情况下告知正确结果。5.正确、错误对答题者所答

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

4、eText1.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)ThenText2.Text=Int(9*Rnd+1)'如果标签１出现的是“／”号，则文本框２随机产生１－９中的一个数ElseText2.Text=Int(10*Rnd+0)'如果不是则文本框２随机产生０－９中的一个数EndIfText3.SetFocusEndSub（2）.运行

5、界面截图：加法算式:13减法算式：乘法算式：13除法算式：（3）.注意事项！由于算式是随机产生的，在出现除法算式的情况时，必须使得除数不为0，这样算式才有意义。要解决这个问题则在做除法运算时将除数限制在1—9的范围内。132.模块二答题者输入答案后单击批改，如果答案正确，则出现答案正确的提示框，并记录下正确个数及加分。（1）代码如下：PrivateSubCommand2_Click()DimcAsSingleIfIsNumeric(Text3.Text)=FalseThenMsgBox"请输入数字!",vbOKOnly+vbExclamation,"提示"'如果文本框３输入的不是

6、数字或没有输入，则提示“请输入数字!”Text3.Text=""Text3.SetFocusElseSelectCaseLabel1.CaptionCase"+"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)EndSelectIfText3.Text=cThenMsgBox"恭喜你，回答正确！",vbOKOnly+vbInf

7、ormation,"提示"x=x+1Text4.Text=x'记录正确个数z=z+10Text6.Text=z'加分Else……EndIfEndIfEndSub13(2).运行界面截图：（3）.注意事项！答题框内必须输入数值型数据。没有输入或输入其他类型数据时软件会提示“请输入数字！”程序代码为：IfIsNumeric(Text3.Text)=FalseThenMsgBox"请输入数字!",vbOKOnly+vbExclamation”Text3.Text=""Text3.Set