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

经济管理学院本科课程设计论文 面向对象程序设计课程设计 学 号： 1005170126 1005170124 姓 名： 王如平 孙晓东 班 级： 管理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）.代码如下： Private Sub Command1_Click() Dim a(4) As String Dim b As Integer 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) 标签１随机产生“加”、“减”、“乘”、“除”号 If Label1.Caption = a(4) Then Text2.Text = Int(9 * Rnd + 1) 如果标签１出现的是“／”号，则文本框２随机产生１－９中的一个数 Else Text2.Text = Int(10 * Rnd + 0) 如果不是则文本框２随机产生０－９中的一个数 End If Text3.SetFocus End Sub （2）.运行界面截图： 加法算式: 减法算式： 乘法算式： 除法算式： （3）.注意事项！ 由于算式是随机产生的，在出现除法算式的情况时，必须使得除数不为0，这样算式才有意义。要解决这个问题则在做除法运算时将除数限制在1 — 9 的范围内2.模块二 答题者输入答案后单击批改，如果答案正确，则出现答案正确的提示框，并记录下正确个数及加分。 （1）代码如下： Private Sub Command2_Click() Dim c As Single If IsNumeric(Text3.Text) = False Then MsgBox 请输入数字!, vbOKOnly + vbExclamation, 提示 如果文本框３输入的不是数字或没有输入，则提示“请输入数字!” Text3.Text = Text3.SetFocus Else Select Case Label1.Caption Case + c = Val(Text1.Text) + Val(Text2.Text) Case -