(参考)VB课程设计计算器.docVIP

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
单 位 ** 学院(系) 专 业 ** 学 号 ** 学生姓名 ** 指导教师 ** 完成日期 **月日 摘 要 Visual Basic是近年来在国内外得到迅速推广应用的可视化程序设计语言具有简单易学,功能强效率高等特点.它提供了开发Windows应用程序最迅速,最简捷的方法,不但专业人员得心应手的开发工具,而且易于被非专业人员掌握使用。本课程主要讲述Visual Basic的基本概念,语法规则和利用Visual Basic进行程序设计方法。同时掌握窗体设计,函数和控件的使用方法。 VB程序设计是工科专业开设的一门基础编程课程。通过这门课程的学习,一方面是培养一个人的逻辑编程能力,提高其使用计算机能力,为今后从事本专业领域的软件开发打下基础;另一方面通过VB中体现出的面向对象思想,以培养学生认识问题,分析问题解决问题的思路和能力。 目录 一.选题的意义 二.系统功能需求分析 2.1 系统概述 2.2 系统的构成 2.3系统的运行环境 三.系统设计 3.1 总体结构设计 3.2 各功能的实现 四.总结 参考文献 一.选题的意义 随着现代科学技术日新月异,高速发展,因此计算器进入课堂是历史的必然。计算器的一个基本特点是计算迅速准确,使用计算器,可以把学生从烦琐的数字计算中解脱出来,这样既减轻了中年级学生的课业负担,又能使学生有更多的时间进行思考、动手操作和实践活动,有利于开发学生的数学灵感,提高数学学习的兴趣,促进学生智力和能力的发展。由于大部分学生已经接触过计算器,因此教材只通过一幅计算器的外型结构图,逐渐让学生了解计算器的键盘结构,同时通过一些简单的练习题,使学生学会这些按键的使用方法。然后进一步用计算器探索规律,培养学生探索意识。,减,乘,除,倒数,乘方,正切、In、long、n!函数,进制、弧度转换等运算功能,并带有存储器、统计框等,基本实现了Windows自带计算器的所有功能。要实现计算器的这些功能就用到我们所学的VB知识编写程序来实现运算功能并解决问题,也是我们实训要达到的目的. 2.2系统的构成; Command按钮(控件数组),文本框,Option,Check,菜单栏,列表框。构成科学计算器界面。 2.3系统的运行环境: Microsoft Visual Basic中文版。 三.系统设计 3.1总体结构设计: 通过课后的资源共享、网上交流,将信息技术应用在促进师生之间的交流与合作上。 现代教育理论十分强调合作学习,而合作学习有多种方法,有交流、有讨论、有辩论、有角色扮演等等。在信息技术与高中数学整合的研究和探索中,我们十分注重利用信息技术的优势,创设不受时空限制的资源共享、快速灵活的信息获取、丰富多样的交互方式、打破地域界限的交流协作的环境Private Sub cmdNum_Click(Index As Integer) If isClickZHlast Then Call initvalue If isClickOkLast Then Call initvalue Text1.Text = Val(IIf(isClickNumLast, Text1.Text, ) Index) isClickNumLast = True isClickOkLast = False End Sub 点+,-,*,/操作符的操作相关代码: Private Sub cmdOper_Click(Index As Integer) If isClickNumLast Then Call compuResult Text1.Text = s1 End If flag = Index isClickOkLast = False isClickNumLast = False operF = flag End Sub 点小数点 这里需要新定义一个新的变量s3,因为如果用s1的话会出现重复相加当前值的问题 所以这里用以个新的变量当桥梁来相加 Private Sub cmdPoint_Click() Dim s3 If isClickZHlast Then Call initvalue If isClickOkLast Then Call initvalue If isClickNumLast Then

文档评论(0)

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档