陈柏臻的程序设计11004824.docVIP

南京邮电大学通达学院 程序设计(上机) 遵守机房规章制度 上机表现 学习态度 基础知识水平 程序设计能力 课题功能实现情况 算法设计合理性 用户界面友好性 报告书写认真程度 报告内容完整性 文字表达清楚程度 问题回答准确性 评 分 等 级 教师签名： 年 月 日 备 注 注：评分等级分为五种：优秀、良好、中等、及格、不及格 设计一个由计算机来当小学算术老师的VB程序 课题内容和要求 设计一个由计算机来当小学低年级算术老师的VB应用程序，要求随即给出一系列的两个10-100数的加减，一个10-100数与一个1-10数的乘除（整除）运算的题。学生输入该题的答案，计算机根据学生的答案来判断正确与否，并给出成绩，单机“结束”命令按钮，退出应用程序。 二、需求分析 现在小学生的算术基础不好，加之老师的精力有限，没法顾及到每一个个学生的算术水平，随着如今电脑的普及，需要设计一个帮助小学生提高算术水平的软件来弥补其课堂上的不足。利用所学的知识VB可以做到这一点。 概要设计 (1).If和end if的选择结构 (2).对数据类型的判断 (3).还要记得保存计算出的数据 (4).将产生的操作数和操作符号组成当前题目 程序源代码 窗体代码： Private Sub cmdMark_Click() End End Sub Private Sub Form_Load() Randomize GetData End Sub Private Sub txtinput_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If Not IsNumeric(txtInput) Then MsgBox 输入必须为数字, vbExclamation, 输入错误 txtInput = txtInput.SetFocus Else If Val(txtInput) = Result Then Text1 = Text1 SExp txtInput √ vbCrLf NOk = NOk + 1 Txtright.Text = NOk Else Text1 = Text1 SExp txtInput ? vbCrLf x NError = NError + 1 txterr.Text = NError End If txtInput = Txttotall.Text = (NOk + NError) Txtdf.Text = Int(NOk / (NOk + NError) * 100) txtInput.SetFocus GetData End If End If End Sub 模块代码： Private Sub cmdMark_Click() End End Sub Private Sub Form_Load() Randomize GetData End Sub Private Sub txtinput_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If Not IsNumeric(txtInput) Then MsgBox