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

《VB课程设计小学生数学四则运算.doc》由会员分享，可在线阅读，更多相关《VB课程设计小学生数学四则运算.doc（11页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、摘 要本次课程设计通过VB技术制作了较为简易的随机出题并判断正误的程序，功能是用计算机来当小学生的老师。适用的工具软件为Visual basic。对待该问题，我们运用了2个窗体（Form）控件14个（5个Command按钮控件，6个Label标签控件，3个文本控件） 我们通过编写程序代码随机生成数学计算式子，可以让使用者在文本框里输入答案，点击“判断正误”可以显示共几道题，答对几道题。 目 录摘 要11.功能描述32.概述设计33.详细设计44.存在问题115.心得体会126.参考文献131.功能描述本程序是简易计算机教学程序，具有随机出题并判断正误的功能，适用就读小学的儿童。程序结构及使用方

2、法简单易懂，可作为小学生计算机老师辅助小学生学习。2.概述设计本程序的核心是随机出题并判断正误，因而应该确定所需使用的控件及程序，由分析可得，本程序编译需要产生在范围（010）2个的随机数字，并且用连字符把2个数字和运算方式表示出来，使用者可以在文本框内输入数字。第二个重要程序是“判断正误”这个按钮，要求判断正误并表示出总共几道题，答对几道步骤：(1) 运行Microsoft visual basic 6.0。(2) 打开新的“标准EXE工程”，建立工程。(3) 在窗体1上添加3个标签（Label控件）、2个按钮（Command 控件）2个文本（text控件）。(4) 单击各个控件对控件的主要

3、属性进行设置如下表：表 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 =

4、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_

5、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%,

6、 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

7、 = 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省略时系统会自

8、动返回新的种子值 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.Te

9、xt = 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) Selec

10、t 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

11、8 Then KeyAscii是可能获知用户按下了哪一个键的参数表达式，此语句表示文本框只允许输入0-9的数字字符，否则KeyAscii=0（KeyAscii接收到的是空字符，不返回任何按键） KeyAscii = 0 i = MsgBox(你只能从数字按键中输入数字!, vbExclamation) vbExclamation是图标样式语句End IfEnd Sub编辑窗口：由编辑窗口上可知，Label13Caption分别为（小学生数学四则运算，学号，密码）；设置了两个Command。4.存在问题在本次制作由于本人能力有限，程序中有许多不足之处。小数的“0”表示不出来只能用浮点“.”表示。

12、题目的样式较少，还有只能判断正误，若题目答错不能给出正确答案。体会一个星期的历练过程中学到了，看是简单的东西当你想做好的时候要花费很多功夫。特别是在本次编程过程中，我遇到了很多问题和困难，发现在之前的学习中，所学的东西不能完全掌握。通过查询各方面的资料以及向老师请教终于勉强完成了任务。这次课程设计，是我在学习上的一次考验，让我深深体会到了实训操作的重要性。虽然此次设计已结束，时间不长，但意义很大。它使我了解自己的短处，让我知道要从什么方面对自己进行补充，这对我今后的学习和工作将产生很大的帮助。通过本周的课程设计，使我对VB有了更加深刻的了解，以及对VB程序的解读与设计有了更高层次的感悟。以前对

13、那些编程工作的不理解，通过对VB的学习以及本周的课程设计，使我充分认识到了任何事物，其实只要你搞懂它的原理，都不是很难的。这次VB的课程设计，也激发了我对VB程序设计的浓厚兴趣。虽然只是一个简单的编程设计，但是他却包含了VB程序里面最基本的函数及其他的控制按钮，程序的工作原理。在设计程序的过程中，让我感受最深的是，好多所学的理论知识在设计程序时都无法准确的运用，让我明白了理论与实践的差距。短短的一周实践，让我受益匪浅，不仅知道了自己所学知识的浅薄，更加深刻的认识到了实践的重要性。以后要更加好好学习理论文化基础，多多参加实践活动。参考文献1莫德举，张玉英主编. Visual Basic程序设计上

14、机指导与习题解答。北京邮电大学出版社。20092莫德举，夏涛主编.Visual Basic程序设计.北京邮电大学出版社。20083新编中文Visual Basic6.0基础操作教程 西北工业大学出版社4Visual Basic程序设计教程与实训康丽军主编北京大学出版社5670.东华理工大学课程设计评分表学生姓名： 班级： 学号：课程设计题目：小学生数学四则运算项目内容满分实 评选题能结合所学课程知识、有一定的能力训练。符合选题要求（5人一题）10工作量适中，难易度合理10能力水平能熟练应用所学知识，有一定查阅文献及运用文献资料能力10理论依据充分，数据准确，公式推导正确10能应用计算机软件进行编程、资料搜集录入、加工、排版、制图等10能体现创造性思维，或有独特见解10成果质量总体设计正确、合理，各项技术指标符合要求。10说明书综述简练完整，概念清楚、立论正确、技术用语准确、结论严谨合理；分析处理科学、条理分明、语言流畅、结构严谨、版面清晰10设计说明书栏目齐全、合理，符号统一、编号齐全。格式、绘图、表格、插图等规范准确，符合国家标准10有一定篇幅，字符数不少于500010总 分100