河北理工大学VB课程设计报告.docVIP

河北理工大学软件设计基础（VB） 课程设计报告 课程设计题目：简易加法计算器进行四则运算测试 姓名：陈云 专业： 班级： 指导老师： 2011-6-22 摘要 简易加法计算器，是利用VB编写的一款软件，可以点击数字按钮和运算符号进行简单的四则运算，并且可以检验答题者的答题情况。答题者输入答案，进行批改，可以判定答案的正确与否。答对一题则加10分，答错一题得0分，做完若干道题后可以看到最终得分。 此软件可以训练小学生的数学四则运算能力，提高小学生的学习兴趣和成绩。 目录 封面…………………………………………………………1 内容摘要……………………………………………………2 目录…………………………………………………………3 一、功能描述………………………………………………4 二、概要设计………………………………………………5 三、详细设计……………………………………… 6—12 四、程序清单…………………………………………12-17 五、存在的问题及不足……………………………………18 六、结束语、心得体会……………………………………19 一、功能描述 1.运行 打开简单计算器软件，进入运算窗口。 2.四则运算 点击数字键和相应的运算符号键 3.答题 在答题框中输入算式的结果。 4.测试 答题结束以后按Enter键，软件会对所填的答案进行判断，提示对错。并会正确测试四则运算结果是否正确并显示答题情况。 三. 详细设计 本系统共分为三个模块： 1.模块一 实现计算器的四则运算 （1）.代码如下： Private Sub Command1_Click(index As Integer) 按键在text1和text2框中显示0123456789 If flag = 1 Then Text1.Text = Text1.Text + Command1(index).Caption text1框中显示数字 ElseIf flag = 2 Then Text2.Text = Text2.Text + Command1(index).Caption text2框中显示数字 Text3.SetFocus End If End Sub （2）.运行界面截图： （3）.注意事项！ 由于除法运算时，必须使得除数不为0，这样算式才有意义。为了预防，需要提供一个警告框，当除数为零时，发出警告，运算结束，接着重新进行下一个运算。 2.模块二 答题者输入答案后按下Enter键，如果答案正确，则出现答案正确的提示框，并记录下正确个数及加分。 代码如下： Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If Text2.Text = Then MsgBox 请输入数值再点击！谢谢！, , 提示 If Text3.Text = Then MsgBox 请输入值！谢谢！ End If Exit Sub Else Select Case sign Case + Answer = Val(Text1.Text) + Val(Text2.Text) Case - Answer = Val(Text1.Text) - Val(Text2.Text) Case * Answer = Val(Text1.Text) * Val(Text2.Text) Case / If Text2.Text = 0 Then MsgBox 除数不能为零, vbCritical, 出错提示 Text1.Text = Text2.Text = Else Answer = Val(Text1.Text) / Val(Text2.Text) End If End Select n = n + 1 If c = Answer Then 判断答对题数 MsgBox 恭喜，答对了，10分 t = t + 1 Text1.SetFocus Text1.Text = Text2.Text