丽 水 学 院 计 算 机 实 验 报 告 钱振章.doc
丽 水 学 院 计 算 机 实 验 报 告
课程名称程序设计基础实验项目名称小学生四则运算测试器实验时数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)运行效果如下图所示:
二、实验过程及结果
界面设计
写出对象及相应属性设置:(列表,如下)
form1caption小学生四则运算测试器label1caption(空)tabindex2text1tabindex1text(空)command1caption统计command2caption结束label2borderstyle1-fixed singlecaption(空)tabindex4
最后得到界面图如下所示:
过程设计
写出各事件过程的程序代码
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) + C