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

程序设计基础（VB）综合性实验1丽 水 学 院 计 算 机 实 验 报 告课程名称程序设计基础实验项目名称小学生四则运算测试器实验时数6实验类型操作性验证性设计性综合性指导老师支林仙实验地点（包括机号 ）9实验日期3.26学生姓名钱振章班级机自122学号20同组成员无教师评阅(教师根据实际情况在两种成绩的评定方法中确定其一)等级制成绩：优 良 中 及 不及格百分制成绩：(具体的教师批阅，教师可在符合的选项中勾选，同时根据具体情况补充其它评语，特别是必须指出实验过程存在的问题与不足之处。)实验目的明确； 操作方法与步骤正确；设计文稿（表格、程序、数据库、网页）符合要求； 界面美观；布局合理；程序结构合理；算法正确；语法、语义正确；题解正确；实验结果正确；保存路径正确；实验分析总结全面；解析完整；文字流畅；实验报告规范；其他：评阅教师签名实验报告内容(不同类型的实验课对实验报告可有不同要求，各个课程的实验报告可以根据自己的学科特点做适当的调整，由任课教师确定填写的内容，学生进行勾选，具体内容用附页填写。)实验目的和要求实验内容和原理主要仪器设备操作方法与实验步骤实验数据记录和处理实验结果与分析讨论、心得丽水学院计算机实验报告一、实验内容参考如下图所示，编制一个适合小学生练习的四则运算测试题程序。具体要求如下：（1）窗体的标题为“小学生四则运算测试器”。（3）窗体的从上到下，从左到右分别为标签1，文本框1，按钮1，按钮2，标签2。其中标签1，标签2默认标题内容为空，文本框文本内容为空，按钮1,按钮2默认标题内容分别为“统计”和“结束”。（4）标签2设置有边框线，背景颜色为白色。（5）程序运行时，标签1自动产生小学生四则运算题目，其中操作数为19之间的随机整数，运算符为+、-、*、/四种符号之一。（6）文本框1接受用户输入答案，输完答案后按键盘中的回车键，系统将题目和用户回答答案显示在标签2中，并在后面给出对或错的评判标志（注意：评判标志对齐在同一列输出）。同时产生新的题目，清空文本框1，以便用户继续回答新题目。（7）单击按钮1，结束回答，标签1和文本框1变为灰色不可用状态，同时标签2显示“一共做了几题，作对几题，得分为多少”的提示；单击按钮2，结束程序。（8）提高与拓展：每次运行程序，让产生的题目是真正的随机数据；为适合小学生练习，避免产生两数相减结果为负数的题目。（9）运行效果如下图所示：二、实验过程及结果（1） 界面设计 写出对象及相应属性设置：（列表，如下）form1caption小学生四则运算测试器label1caption(空)tabindex2text1tabindex1text（空）command1caption统计command2caption结束label2borderstyle1-fixed singlecaption（空）tabindex4最后得到界面图如下所示：（2） 过程设计 写出各事件过程的程序代码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 SinglePrivate Sub Command1_Click()zg = b + cIf zg 0 Thenzf = 100 * b / zgElsezf = 0End IfIf zf = 100 Then Label2.Caption = Label2.Caption & - & vbCrLf & 总共: & zg & 个 & vbCrLf & 正确: & b & 个 & Chr(13) + Chr(10) + 总分: & zf & 分 & vbCrLf & Space(15) & 你太棒了！ ElseIf Format(zf, #.0) = 60 Then Label2.Caption = Label2.Caption & - & vbCrLf & 总共: & zg & 个 & vbCrLf & 正确: & b & 个 & Chr(13) + Chr(10) + 总分: & Format(zf, #.0) & 分 & vbCrLf & Space(15) & 恭喜你及格了 Else Label2.Caption = Label2.Caption & - & vbCrLf & 总共: & zg & 个 & vbCrLf & 正确: & b & 个 & Chr(13) + Chr(10) + 总分: & Format(zf, #.0) & 分 & vbCrLf & Space(15) & 继续努力！ End If Label1.Enabled = False Text1.Enabled = FalseEnd SubPrivate Sub Command2_Click()s = MsgBox(感谢使用，再见！, vbOKOnly, 退出程序)If s = vbOK Then EndEnd SubPrivate Sub Form_Load()Randomizen1 = Int(Rnd * 10 + 1)n2 = Int(Rnd * 10 + 1)fhn = Int(Rnd * 4 + 1)If fhn = 1 Thenfh = +ElseIf fhn = 2 Thenfh = -ElseIf fhn = 3 Thenfh = *Else: fh = /End IfSelect Case fhCase +zq = n1 + n2Case -zq = n1 - n2Case *zq = n1 * n2Case /zq = n1 / n2End SelectLabel1.Caption = & n1 & & fh & & n2 & & =End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenIf Text1.Text = zq ThenLabel2.Caption = Label2.Caption & n1 & fh & n2 & = & Text1.Text & Space(15 - Len(Label1.Caption & Text1.Text) & & vbCrLfText1.Text = b = b + 1ElseLabel2.Caption = Label2.Caption & n1 & fh & n2 & = & Text1.Text & Space(15 - Len(Label1.Caption & Text1.Text) & & vbCrLfc = c + 1Text1.Text = End IfForm_LoadEnd IfEnd Sub（3） 运行调试三、实验结果分析和心得作为一名机械设计制造专业的学生，习得一门程序设计语言对于自己在这个专业上走更远的路是有很大帮助的。VB程序设计的入门学习并不难,但却是一个十分重要的过程，我认为作为学习程序设计最重要的一点是要注重理解一些重要的概念.VB程序设计本身并不复杂,翻开一本程序设计学习的书籍,看到的无非就是变量,函数,条件语句,循环语句等概念.但要真正能进行程序设计,需要深入理解这些概念。.其次，自己动手编写程序。程序设计入门阶段要经常自己动手抄写或编写一些小程序,亲自动手进行程序设计是创造性思维应用的体现,是培养逻辑思维的好方法.因此一定要多动手编写程序,而且要从小程序开发开始,逐渐提高写程序的能力.只有不断的从自己的程序中积累经验，从中进步，才能写出好的程序。在者，阅读,借签别人设计的好程序，多看别人设计好的程序代码，可以学到别人优秀的东西,帮助自己 提高自身水平. 通过这次学习，我越来越喜欢上VB语言，感谢支老师，我相信在计算机语言上回走的更远。四、知识点综述 1. *文本框的属性和事件*文本框基本属性：Name、text、Height、Width、Top、Left、Enabled、Visible、FontName、FontSize、FontBold、FontItalic、FontUnderline、A lignment、BorderStyle等。文本框特有属性：(1)Text文本属性Text这是文本框最重要的属性，在窗体设计阶段可设置文本框的显示内容，在运行阶段可改写或返回文本框的内容。如A=Text1.Text，则变量A返回的就是文本框的内容。(2)MaxLength属性设置文本框中能够输入的正文内容的最大长度。0：缺省值，为系统允许的最长度；非零值：文本框中的字符数的最大值，一个英文字符与一个汉字都为1.(3)MultiIine属性True：则可使用多行文本，即在文本框中输入或显示文本时可换行。按crtl+Enter键可以插入一个空行；False：则在文本框中只能输入单行文本。(4)PasswordChar属性(5)ScrollBars属性该属性用来确定文本框中是否有滚动条。ONone：无滚动条；1一Hotizontal：加水平滚动条；2一Vertical：加垂直滚动条；3一Both：同时加水平和垂直滚动条。说明：当MuhiIine多行属性为True时，ScrollBars属性才有效。当文本框具有水平或垂直滚动条后，文本框中文本的自动换行功能不起作用，只能通过回车键换行。(6)Iocked属性False：表示可以编辑，默认值为False；True：文本控件相当于标签的作用，不能被编辑。Text：设置控件中的文本。 （7）Alignment：设置控件中文本的对齐方式。(8)Width、Height、Left、Top分别为文本框的宽度、高度、距窗体的左边距和上边距，这四个属性值即可在窗体设计时设置，也可以在程序运行中用代码控制改变。(9)Font文本框内字符的字体属性，可以设置字体、字号以及字符修饰效果。(10)Forecolor文本框内字符的前景色属性。(11)Visible文本框是否可见（True可见False不可见）(12)Enabled文本框是否接受用户的操作（True许False不许）(13)MousePointer定义鼠标指针当指向文本框时的形状及是否可以使用自定义属标指针。属性值99时可以使用自定义鼠标指针，属性值为其它值时对应不同的指针形状。(14)MouseIcon当MousePointer属性设置为99时，可以选择MouseIcon属性为指定的自定义指针形状。如果MousePointer属性设置为非99该属性设置不起作用。(15)ToolTipText当鼠标在文本框控件上停留时显示