用VB制作四则运算课程报告

1、摘要本程序是用VB做的一个简单的四那么运算的程序，主要针对的使用对象是小学生。程序主要特点是可以随机产生一道100以内的四那么运算题，还可以查询所做的题目的正确与否，并得到正确答案，以及总结出所有做的题目的正确率。其中该程序还为了给用户提供方便及简单的操作，特别做了一些细节上的处理。在这个四那么运算的程序中，运用了单行选择语句ifthenelse ,if语句的嵌套，多条件选择语句 Select Case,而且还用了Msgbox 的语句。在这份实验报告中，我重点写了程序各个环节运行的剖析图，重点分析了，程序的各个环节功能是如何实现的，以及我自己对这次实训的真实感想。 TOC o 1-3 h z

2、u HYPERLINK l _Toc262191778 摘要 PAGEREF _Toc262191778 h 1 HYPERLINK l _Toc262191779 第一章 任务概述 PAGEREF _Toc262191779 h 3 HYPERLINK l _Toc262191780 、目标 PAGEREF _Toc262191780 h 3 HYPERLINK l _Toc262191781 、需求概述 PAGEREF _Toc262191781 h 3 HYPERLINK l _Toc262191782 、随机产生题目 PAGEREF _Toc262191782 h 3 HYPERLIN

3、K l _Toc262191783 、成绩单 PAGEREF _Toc262191783 h 3 HYPERLINK l _Toc262191784 第三章 总体设计 PAGEREF _Toc262191784 h 4 HYPERLINK l _Toc262191785 、系统结构功能图 PAGEREF _Toc262191785 h 4 HYPERLINK l _Toc262191786 第三章 功能分析 PAGEREF _Toc262191786 h 5 HYPERLINK l _Toc262191787 、用户登录界面 PAGEREF _Toc262191787 h 5 HYPERLIN

4、K l _Toc262191788 、对全局变量的定义 PAGEREF _Toc262191788 h 6 HYPERLINK l _Toc262191789 、随机产生十道题目 PAGEREF _Toc262191789 h 6 HYPERLINK l _Toc262191790 、判断是否已经做完十道题目 PAGEREF _Toc262191790 h 8 HYPERLINK l _Toc262191791 、判断答题是否正确 PAGEREF _Toc262191791 h 9 HYPERLINK l _Toc262191792 、查看得分 PAGEREF _Toc262191792 h

5、10 HYPERLINK l _Toc262191793 、答题时的输入要求 PAGEREF _Toc262191793 h 11 HYPERLINK l _Toc262191794 心得体会 PAGEREF _Toc262191794 h 12第一章 任务概述1.1、目标制作该系统的目的是为了可以自由产生一套四那么运算的题目，方便学生做练习，节省了劳动力资源，同时还可以培养出孩子独立思考的能力。1.2、需求概述、随机产生题目因为对于用户来说，使用这个程序就是为了做大量的题目，所以在程序里必须保证程序能够生成大量不同的题目。、成绩单用户肯定希望在自己做了一定题目后，系统能够读所做的题目进行评价

6、，给出正确的答案以及自己所做的题的总体情况，如果在做了大量的题后，用户肯定想知道自己是否有进步，所以系统便设计了一个成绩单，那里可以给用户提供相应的信息。 第三章 总体设计 2.1、系统结构功能图登录出题答案成绩单退出第三章 功能分析3.1、用户登录界面图3-1 用户登录界面Private Sub Command1_Click() Open d:name.txt For Output As #1 对姓名的储存 Close #1 Load Form2 Unload Form1End SubPrivate Sub Form_Load()Label2.Caption = 欢送使用小学四那么运算测试E

7、nd SubPrivate Sub Text1_Change() Command1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() 图片框可以随窗体一起改变大小 Picture1.Left = 0 Picture1.Top = 0End Sub3.2、对全局变量的定义Public num1, num2, answer, n, right, error, score As IntegerPublic op As Stringnum1, num2 产生的两个随机数n 产生的题目数目right 答对题目的个数error 答错题目的个数score 获得的

8、分数op 产生的运算符3.3、随机产生十道题目图3-3 随机产生题目的运行界面Dim zhang As IntegerPrivate Sub Command1_Click() Text3.Text = Command1.Enabled = False Timer1.Enabled = True num1 = Int(Rnd * 101) 产生随机数 num2 = Int(Rnd * 101) op = Int(Rnd * 4) + 1 随机产生字符 Select Case op Case 1 Label1.Caption = + answer = num1 + num2 Case 2 Labe

9、l1.Caption = - If num1 0 Then score = Int(right / n * 100) If right 0 Then m = MsgBox(做完 & n & 个题了，做对 & right & 道,得分为 & score, vbOKOnly) Else m = MsgBox(做完 & n & 个题了，做对 & 0 & 道,得分为 & score, vbOKOnly) End If Else MsgBox 还没有做题呢 End If Command1.Enabled = TrueEnd Sub3.7、答题时的输入要求Private Sub Text3_KeyPres

10、s(KeyAscii As Integer)If KeyAscii 48 And KeyAscii 13 And KeyAscii 8 Then KeyAscii = 0 a = MsgBox(输入的必须是数字, , 提示) ElseIf KeyAscii 57 And KeyAscii 13 And KeyAscii 8 Then KeyAscii = 0 a = MsgBox(输入的必须是数字, , 提示)End IfEnd sub心得体会经过一个礼拜的辛苦劳动，程序总算是做出来了，虽然在做程序的那几天确实觉得挺累的，不过在看到自己的程序运行成功以后，心中还是充满了喜悦。不管怎样，至少我觉

11、得自己是可以的，不管程序做的是好是坏，我总算是努力过的。现在细细想来，在做程序的过程中确实遇到了不少的问题。发现自己对VB的掌握还是相当欠缺的，因为在遇到一个问题时，自己的脑袋是空的，只记得老师曾经讲过，只回忆的起曾经在书的某个角落里看到过。可是却忘记了最重要的东西，那就是怎么去解决。所以回过头来还是去看书本，因为书本里蕴藏着相当丰富的知识，至少对于我们来说，而我们老师讲过的毕竟只是一少局部。还有大量的内容需要自己去掌握。所以通过这次实训让我认识到，原来我们的书本是多么的重要。第二个问题就是自己的学习方法有问题，因为我自觉得自己还是做了挺多的笔记的，虽说是记录了，可课后却从来没有拿出来看过。第三个问题就是自己课外书看得太少，最主要的就是自己平时练得太少，做程序做的太少，导致一些操作只是机械式的记录在脑子里，在遇到编程时，却无法真正运用出来。所以这些