丽 水 学 院 计 算 机 实 验 报 告 钱振章.docVIP

丽 水 学 院 计 算 机 实 验 报 告 课程名称 程序设计基础 实验项目名称 小学生四则运算测试器 实验时数 6 实验类型 □操作性　□验证性　■设计性　□综合性 指导老师 支林仙 实验地点 （包括机号 ） 9 实验日期 3.26 学生姓名 钱振章 班　级 机自122 学　号 20 同组成员 无 教师评阅 (教师根据实际情况在两种成绩的评定方法中确定其一) 等级制成绩：□优 □良 □中 □及 □不及格 百分制成绩： (具体的教师批阅，教师可在符合的选项中勾选，同时根据具体情况补充其它评语，特别是必须指出实验过程存在的问题与不足之处。) □实验目的明确； □操作方法与步骤正确； □设计文稿（表格、程序、数据库、网页）符合要求； □界面美观；□布局合理； □程序结构合理；□算法正确；□语法、语义正确；□题解正确； □实验结果正确；□保存路径正确； □实验分析总结全面；□解析完整；□文字流畅；□实验报告规范； 其他： 评阅教师签名 实验报告内容 (不同类型的实验课对实验报告可有不同要求，各个课程的实验报告可以根据自己的学科特点做适当的调整，由任课教师确定填写的内容，学生进行勾选，具体内容用附页填写。) ■实验目的和要求 ■实验内容和原理 ■主要仪器设备 ■操作方法与实验步骤 □实验数据记录和处理 □实验结果与分析 ■讨论、心得  丽水学院计算机实验报告 一、实验内容 参考如下图所示，编制一个适合小学生练习的四则运算测试题程序。 具体要求如下： （1）窗体的标题为“小学生四则运算测试器”。 （3）窗体的从上到下，从左到右分别为标签1，文本框1，按钮1，按钮2，标签2。其中标签1，标签2默认标题内容为空，文本框文本内容为空，按钮1,按钮2默认标题内容分别为“统计”和“结束”。 （4）标签2设置有边框线，背景颜色为白色。 （5）程序运行时，标签1自动产生小学生四则运算题目，其中操作数为1~9之间的随机整数，运算符为+、-、*、/四种符号之一。 （6）文本框1接受用户输入答案，输完答案后按键盘中的回车键，系统将题目和用户回答答案显示在标签2中，并在后面给出对或错的评判标志（注意：评判标志对齐在同一列输出）。同时产生新的题目，清空文本框1，以便用户继续回答新题目。 （7）单击按钮1，结束回答，标签1和文本框1变为灰色不可用状态，同时标签2显示“一共做了几题，作对几题，得分为多少”的提示；单击按钮2，结束程序。 （8）提高与拓展：每次运行程序，让产生的题目是真正的随机数据；为适合小学生练习，避免产生两数相减结果为负数的题目。 （9）运行效果如下图所示： 二、实验过程及结果 界面设计 写出对象及相应属性设置：（列表，如下） form1 caption 小学生四则运算测试器 label1 caption (空) tabindex 2 text1 tabindex 1 text （空） command1 caption 统计 command2 caption 结束 label2 borderstyle 1-fixed single caption （空） tabindex 4 最后得到界面图如下所示： 过程设计 写出各事件过程的程序代码 Dim n1 As Integer, n2 As Integer, fhn As Integer, fh As String, zq As Single, b As Integer, c As Integer, s As String, zg As Integer, zf As Single Private Sub Command1_Click() zg = b + c If zg 0 Then zf = 100 * b / zg Else zf = 0 End If If zf = 100 Then Label2.Caption = Label2.Caption ----------------------------- vbCrLf 总共: zg 个 vbCrLf 正确: b 个 Chr(13) + Chr(10) + 总分: zf 分 vbCrLf Space(15) 你太棒了！ ElseIf Format(zf, ###.0) 1 Then Label2.Caption = Label2.Caption ----------------------------- vbCrLf 总共: zg 个 vbCrLf 正确: b 个 Chr(13) + Chr(10) + 总分: 0 分 vbCrLf Space(15) 继续努力！ ElseIf zf