VB课程设计小学生数学四则运算.doc

摘 要本次课程设计通过VB技术制作了较为简易的随机出题并判断正误的程序，功能是用计算机来当小学生的老师。适用的工具软件为Visual basic。对待该问题，我们运用了2个窗体（Form）控件14个（5个Command按钮控件，6个Label标签控件，3个文本控件） 我们通过编写程序代码随机生成数学计算式子，可以让使用者在文本框里输入答案，点击“判断正误”可以显示共几道题，答对几道题。 目 录摘 要11.功能描述32.概述设计33.详细设计44.存在问题115.心得体会126.参考文献131.功能描述本程序是简易计算机教学程序，具有随机出题并判断正误的功能，适用就读小学的儿童。程序结构及使用方法简单易懂，可作为小学生计算机老师辅助小学生学习。2.概述设计本程序的核心是随机出题并判断正误，因而应该确定所需使用的控件及程序，由分析可得，本程序编译需要产生在范围（010）2个的随机数字，并且用连字符把2个数字和运算方式表示出来，使用者可以在文本框内输入数字。第二个重要程序是“判断正误”这个按钮，要求判断正误并表示出总共几道题，答对几道步骤：(1) 运行Microsoft visual basic 6.0。(2) 打开新的“标准EXE工程”，建立工程。(3) 在窗体1上添加3个标签（Label控件）、2个按钮（Command 控件）2个文本（text控件）。(4) 单击各个控件对控件的主要属性进行设置如下表：表 1 Form1对象的属性设置值控件属性属性值Command 1Caption登陆Command 2Caption取消Label1Caption用户名Label2Caption密码Text1Text2表 2 Form2对象的属性设置值控件属性 属性值Command 1Caption重新输入Command 3Caption 确定Command 4Caption下一题 Label1Caption Text1(5) 编写代码实现代码的功能。(6) 运行并保存程序。3.1.程序代码Private Sub Command1_Click()Dim a, b As Integer = "" Or Text2.Text = "" Then a = MsgBox("您输入的用户名或密码不能为空", vbCritical, "错误信息")Else If Text1.Text = "陆裕鹏" And Text2.Text = "08314117" Then Else Text1.Text = "" Text2.Text = "" b = MsgBox("您输入的密码或用户名错误！请重新输入", vbCritical, "错误信息！") End IfEnd IfEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""End SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If Not IsNumeric(Chr(KeyAscii) And KeyAscii <> 8 Then ' KeyAscii是可能获知用户按下了哪一个键的参数表达式，此语句表示文本框只允许输入0-9的数字字符，否则KeyAscii=0（KeyAscii接收到的是空字符，不返回任何按键） KeyAscii = 0 i = MsgBox("您输入的只能是数字！", vbCritical) 'vbExclamation是图标样式语句End IfEnd SubOption Explicit '强制变量先定义再使用Dim a%, b%, c$, d%, g%, h%, tmp%, i%, arrPrivate Sub Command1_Click()Text1.Text = ""End SubPrivate Sub Command3_Click()If Text1.Text = "" Then MsgBox "你的输入为空，请重新输入！"Else If Val(Text1.Text) = d Then g = MsgBox("恭喜你答对了！") Text1.Text = "" Else h = MsgBox("答错啦！, 正确答案是: " & Val(d), vbCritical) 'val是把数字字符串转换为数值的函数 ，vbCritical是图标样式语句 Text1.Text = "" End IfEnd IfEnd SubPrivate Sub Form_Load() arr = Array("+", "-", "*", "/") '定义一个数组，其中Array是给数组元素赋初值的函数 Form2.Caption = "随机取1-100之间的数的四则运算" Command3.Visible = False Command4.Visible = False Command1.Visible = FalseEnd SubPrivate Sub Command2_Click() Randomize '使用Rnd函数时，用Randomizex语句可以产生不同序列的随机数，是一个整数，x省略时系统会自动返回新的种子值 a = Int(Rnd() * 100 + 1) 'RndN是一个产生随机数的函数 b = Int(Rnd() * 100 + 1) c = arr(Int(Rnd() * 4) Select Case c Case "+" d = a + b Case "-" If b > a Then tmp = a: a = b: b = tmp d = a - b Case "*" d = a * b Case Else d = a / b End Select Label1.Caption = Str(a) & " " & c & " " & Str(b) & " = " 'Str是将数值转换为字符串的函数 Text1.Text = "" Command3.Visible = True Command4.Visible = True Command1.Visible = True End SubPrivate Sub Command4_Click() Command2.Visible = False Randomize '使用Rnd函数时，用Randomizex语句可以产生不同序列的随机数，是一个整数，x省略时系统会自动返回新的种子值 a = Int(Rnd() * 100 + 1) 'RndN是一个产生随机数的函数 b = Int(Rnd() * 100 + 1) c = arr(Int(Rnd() * 4) Select Case c Case "+" d = a + b Case "-" If b > a Then tmp = a: a = b: b = tmp d = a - b Case "*" d = a * b Case Else d = a / b End Select Label1.Caption = Str(a) & " " & c & " " & Str(b) & " = " 'Str是将数值转换为字符串的函数 Text1.Text = ""End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If Not IsNumeric(Chr(KeyAscii) And KeyAscii <> 8 Then ' KeyAscii是可能获知用户按下了哪一个键的参数表达式，此语句表示文本框只允许输入0-9的数字字符，否则KeyAscii=0（KeyAscii接收到的是空字符，不返回任何按键） KeyAscii = 0 i = MsgBox("你只能从数字按键中输入数字!", vbExclamation) 'vbExclamation是图标样式语句End IfEnd Sub编辑窗口：由编辑窗口上可知，Label13Caption分别为（小学生数学四则运算，学号，密码）；设置了两个Command。4.存在问题在本次制作由于本人能力有限，程序中有许多不足之处。小数的“0”表示不出来只能用浮点“.”表示。题目的样式较少，还有只能判断正误，若题目答错不能给出正确答案。体会一个星期的历练过程中学到了，看是简单的东西当你想做好的时候要花费很多功夫。特别是在本次编程过程中，我遇到了很多问题和困难，发现在之前的学习中，所学的东西不能完全掌握。通过查询各方面的资料以及向老师请教终于勉强完成了任务。这次课程设计，是我在学习上的一次考验，让我深深体会到了实训操作的重要性。虽然此次设计已结束，时间不长，但意义很大。它使我了解自己的短处，让我知道要从什么方面对自己进行补充，这对我今后的学习和工作将产生很大的帮助。通过本周的课程设计，使我对VB有了更加深刻的了解，以及对VB程序的解读与设计有了更高层次的感悟。以前对那些编程工作的不理解，通过对VB的学习以及本周的课程设计，使我充分认识到了任何事物，其实只要你搞懂它的原理，都不是很难的。这次VB的课程设计，也激发了我对VB程序设计的浓厚兴趣。虽然只是一个简单的编程设计，但是他却包含了VB程序里面最基本的函数及其他的控制按钮，程序的工作原理。在设计程序的过程中，让我感受最深的是，好多所学的理论知识在设计程序时都无法准确的运用，让我明白了理论与实践的差距。短短的一周实践，让我受益匪浅，不仅知道了自己所学知识的浅薄，更加深刻的认识到了实践的重要性。以后要更加好好学习理论文化基础，多多参加实践活动。参考文献1莫德举，张玉英主编. Visual Basic程序设计上机指导与习题解答。北京邮电大学出版社。20092莫德举，夏涛主编.Visual Basic程序设计.北京邮电大学出版社。20083新编中文Visual Basic6.0基础操作教程 西北工业大学出版社4Visual Basic程序设计教程与实训康丽军主编北京大学出版社5670.东华理工大学课程设计评分表学生姓名： 班级： 学号：课程设计题目：小学生数学四则运算 项目内容满分实 评选题能结合所学课程知识、有一定的能力训练。符合选题要求（5人一题）10 工作量适中，难易度合理10 能力水平能熟练应用所学知识，有一定查阅文献及运用文献资料能力10 理论依据充分，数据准确，公式推导正确10 能应用计算机软件进行编程、资料搜集录入、加工、排版、制图等10 能体现创造性思维，或有独特见解10 成果质量总体设计正确、合理，各项技术指标符合要求。10 说明书综述简练完整，概念清楚、立论正确、技术用语准确、结论严谨合理；分析处理科学、条理分明、语言流畅、结构严谨、版面清晰10 设计说明书栏目齐全、合理，符号统一、编号齐全。格式、绘图、表格、插图等规范准确，符合国家标准10 有一定篇幅，字符数不少于500010  总 分100