VB课程设计计算器

《VB课程设计计算器》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、*大学课程设计科学计算器单位**学院(系)专业**学号**学生姓名**指导教师**完成日期**月日15摘要VisualBasic是近年来在国内外得到迅速推广应用的可视化程序设计语言具有简单易学,功能强效率高等特点.它提供了开发Windows应用程序最迅速，最简捷的方法，不但专业人员得心应手的开发工具，而且易于被非专业人员掌握使用。本课程主要讲述VisualBasic的基本概念，语法规则和利用VisualBasic进行程序设计方法。同时掌握窗体设计，函数和控件的使用方法。VB程序设计是工科专业开设的一门基础编程课程。通过这门课程的学习，一方面是培养一个人的逻辑编程能力

2、，提高其使用计算机能力，为今后从事本专业领域的软件开发打下基础；另一方面通过VB中体现出的面向对象思想，以培养学生认识问题，分析问题解决问题的思路和能力。15目录一.选题的意义二．系统功能需求分析2.1系统概述2.2系统的构成2.3系统的运行环境三．系统设计3.1总体结构设计3.2各功能的实现四．总结参考文献一.选题的意义随着现代科学技术日新月异，高速发展，因此计算器进入课堂是历史的必然。计算器的一个基本特点是计算迅速准确，使用计算器，可以把学生从烦琐的数字计算中解脱出来，这样既减轻了中年级学生的课业负担，又能使学生有更多的时间进行思考、动手操作和实践活动，有利于开

3、发学生的数学灵感，提高数学学习的兴趣，促进学生智力和能力的发展。由于大部分学生已经接触过计算器，因此教材只通过一幅计算器的外型结构图，逐渐让学生了解计算器的键盘结构，同时通过一些简单的练习题，使学生学会这些按键的使用方法。然后进一步用计算器探索规律，培养学生探索意识。本课程是一门当前流行的程序设计语言课程。通过VB程序设计语言及其程序设计方法的学习，不仅使学生得到计算机的应用能力和操作技能的训练，更主要的是使学生提高高级语言程序设计的能力，以及掌握最新的面向对象的程序设计方法，并能运用所学的知识开发图形界面（Windows）下的应用软件，为培养学生结合专业进行软件开

4、发打好基础。二．系统功能需求分析2.1系统概述：本科学计算器是一种能实现加,减,乘,除,倒数,乘方,正切、In、long、n!函数,进制、弧度转换等运算功能,并带有存储器、统计框等，基本实现了Windows自带计算器的所有功能。要实现计算器的这些功能就用到我们所学的VB知识编写程序来实现运算功能并解决问题，也是我们实训要达到的目的.2.2系统的构成；Command按钮（控件数组），文本框，Option，Check，菜单栏，列表框15。构成科学计算器界面。2.3系统的运行环境：MicrosoftVisualBasic中文版。三．系统设计3.1总体结构设计：通过课后的资

5、源共享、网上交流，将信息技术应用在促进师生之间的交流与合作上。现代教育理论十分强调合作学习，而合作学习有多种方法，有交流、有讨论、有辩论、有角色扮演等等。在信息技术与高中数学整合的研究和探索中，我们十分注重利用信息技术的优势，创设不受时空限制的资源共享、快速灵活的信息获取、丰富多样的交互方式、打破地域界限的交流协作的环境3.2各功能的实现1.数值输入、小数点、正负号点数字操作相关代码：PrivateSubcmdNum_Click(IndexAsInteger)IfisClickZHlastThenCallinitvalueIfisClickOkLastThenCal

6、linitvalueText1.Text=Val(IIf(isClickNumLast,Text1.Text,"")&Index)isClickNumLast=TrueisClickOkLast=FalseEndSub'点+，-，*，/操作符的操作相关代码：PrivateSubcmdOper_Click(IndexAsInteger)IfisClickNumLastThenCallcompuResultText1.Text=s1EndIfflag=IndexisClickOkLast=FalseisClickNumLast=FalseoperF=flagEndSub

7、'点小数点'这里需要新定义一个新的变量s3，因为如果用s1的话会出现重复相加当前值的问题15'所以这里用以个新的变量当桥梁来相加PrivateSubcmdPoint_Click()Dims3IfisClickZHlastThenCallinitvalueIfisClickOkLastThenCallinitvalueIfisClickNumLastThens3=Text1.TextText1.Text=s3&"."ElseText1.Text="0."EndIfisClickOkLast=FalseisClickNumLast=TrueEndSub正负号操作相关