Vb 程序设计课程设计报告科学计算器的设计专 业：工商管理类班 级：1107班学 号：110808703姓 名：飞机指导教师：XXX设计日期：2012年6月14日第1章 ：课程设计概述第2章 ：总体设计第3章 ：详细设计第4章 ：调试分析过程描述第5章 ：综合设计体会参考文献第一章：课程设计概述1.1、课程设计名称1、 课程设计名称科学计算器的设计1.2、任务要求一、随着电子技术的发展，计算机的功能越来越强大，精度越来越高，性能越来越好，可以实现复杂的科学计算，Windows系统也自带了一个功能强大的计算器。本次课设要设计一个科学计算器，除了基本的四则运算之外，还有三角与反三角、对数与反对数、乘方与幂运算等。 科学计算器除了具有普通计算器的标准功能之外，还具有很多其他数据计算功能。本次课设设计的科学计算器包括以下功能：1.具有小数点后10位以上的精度。2.可以直接输出随机数、圆周率、自然对数的底数和重力加速度等常用常数。3.可以输入09、00、小数点等数字或数学符号，并能对数字取反。4.能够计算加、减、乘、除四则运算。5.可以计算倒数、平方、立方、开方和任意乘方或幂指运算，以及阶乘运算。6.能够计算以10为底的对数和自然对数，以及自然对数为底的幂运算。7.具有三角与反三角函数的计算功能，并能在角度、弧度和梯度之间进行换算。8.可以将数据记录到内存中，并能将输入的数据和内存中的数据进行四则运算。9.能够实现数据的统计计算，包括和、平均值和方差。10.可以对计算或输入的结果进行复制，也能通过粘贴方式向计算器输入数字。1.3、开发环境1、 科学计算器主要在visual basic6.0中完成。 Visual Basic是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何标准来说，VB都是世界上使用人数最多的语言不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。 VB的中心思想就是要便于使用，无论是新手或者专家。VB使用了可以简单建立应用程序的GUI系统，但是又可以开发相当复杂的程序。VB的程序是一种基于窗体的可视化组件安排的联合，并且增加代码来指定组件的属性和方法。因为默认的属性和方法已经有一部分定义在了组件内，所以程序员不用写多少代码就可以完成一个简单的程序。过去的版本里面VB程序的性能问题一直被放在了桌面上，但是随着计算机速度的飞速增加，关于性能的争论已经越来越少。 窗体控件的增加和改变可以用拖放技术实现。一个排列满控件的工具箱用来显示可用控件（比如文本框或者按钮)。每个控件都有自己的属性和事件。默认的属性值会在控件创建的时候提供，但是程序员也可以进行更改。很多的属性值可以在运行时候随着用户的动作和修改进行改动，这样就形成了一个动态的程序。举个例子来说：窗体的大小改变事件中加入了可以改变控件位置的代码，在运行时候每当用户更改窗口大小，控件也会随之改变位置。在文本框中的文字改变事件中加入相应的代码，程序就能够在文字输入的时候自动翻译或者阻止某些字符的输入。 VB的程序可以包含一个或多个窗体，或者是一个主窗体和多个子窗体，类似于操作系统的样子。有很少功能的对话框窗口（比如没有最大化和最小化按钮的窗体）可以用来提供弹出功能。 VB的组件既可以拥有用户界面，也可以没有。这样一来服务器端程序就可以处理增加的模块。 VB使用参数计算的方法来进行垃圾收集，这个方法中包含有大量的对象，提供基本的面向对象支持。因为越来越多组件的出现，程序员可以选用自己需要的扩展库。和有些语言不一样，VB对大小写不敏感，但是能自动转换关键词到标准的大小写状态，以及强制使得符号表入口的实体的变量名称遵循书写规则。默认情况下字符串的比较是对大小写敏感的，但是可以关闭这个功能。 VB使得大量的外界控件有了自己的生存空间。大量的第三方控件针对VB提供。VB也提供了建立、使用和重用这些控件的方法，但是由于语言问题，从一个应用程序创建另外一个并不简单第2章 ：总体设计2.1系统功能需求分析一、计算器如图此计算器可以计算简单的加减乘除计算，还包括简单的三角函数的计算。加有退出键，帮助按钮等控件。2.2总体设计框架2.3、系统功能模块图及各功能模块的目的与意义 计算器包括0到9的数字控件，加减乘除等计算符号控件，还包括两个文本框。计算器可以计算简单的数字计算，计算器的制作意义在于可以熟练的掌握vb的运用和对vb的功能认识。第三章：详细设计一、主要功能模块的计算设计思路，以及对应的N-S流程图，说明本功能的特点。其各功能的代码如下Dim sum As DoubleDim k As StringDim pi As DoubleDim c As DoubleDim d As DoubleDim n As DoubleDim x As DoublePrivate Sub Command1_Click(Index As Integer)Select Case IndexCase 1Text1.Text = Text1.Text & 1Case 2Text1.Text = Text1.Text & 2Case 3Text1.Text = Text1.Text & 3Case 4Text1.Text = Text1.Text & 4Case 5Text1.Text = Text1.Text & 5Case 6Text1.Text = Text1.Text & 6Case 7Text1.Text = Text1.Text & 7Case 8Text1.Text = Text1.Text & 8Case 9Text1.Text = Text1.Text & 9Case 0Text1.Text = Text1.Text & 0Case 10Text1.Text = Text1.Text & .End SelectEnd SubPrivate Sub Command2_Click(Index As Integer)If Text1.Text = ThenMsgBox 请先输入第一个数字后再点击符号ElseSelect Case IndexCase 0sum = Text1.TextText1.Text = k = +Case 1sum = Text1.TextText1.Text = k = -Case 2sum = Text1.TextText1.Text = k = *Case 3sum = Text1.TextText1.Text = k = /End SelectEnd IfEnd SubPrivate Sub Command3_Click()If Text1.Text = Then MsgBox 您未输入任何需要计算内容，请先输入需要计算内容 Text1.Text = Text2.Text = Label2.Caption = Label3.Caption = ElseDim a As Doublea = Text1.TextIf k = + Thensum = sum + aText2.Text = sumElseIf k = - Thensum = sum - aText2.Text = sumElseIf k = * Thensum = sum * aText2.Text = sumElseIf k = / Then If Text1.Text = 0 Then 判断除数是否为0，若为零弹出信息框并清空输入数据，要求重新输入 MsgBox 除数不能为零！请重新输入 Text1.Text = Text2.Text = Label2.Caption = Label3.Caption = a = 0 b = 0 k = Else sum = sum / a Text2.Text = sum End IfElseIf k = sin Then 等号的三角计算sum = Sin(a * pi / 180)Text2.Text = sumElseIf k = cos Thensum = Cos(a * pi / 180)Text2.Text = sumElseIf k = tan Then Dim m As Integer Dim n As Integer m = a Mod 180 - 90 If m = 0 Then MsgBox （90+180*n）度的正切值无意义，请重新输入 Else sum = (Tan(a * pi / 180) Text2.Text = sum End If ElseIf k = cot Then sum = 1 / (Tan(a * pi / 180) Text2.Text = sum End IfEnd IfEnd Sub这些代码是对计算符号的定义和控制的。Private Sub Command4_Click(Index As Integer)Dim b As Integerb = Len(Text1.Text)If b 1 ThenText1.Text = Val(Str(Left(Text1.Text, Len(Text1.Text) - 1)ElseText1.Text = End IfEnd Sub对文本框中的出入数字规定Private Sub Command5_Click()Text1.Text = Text2.Text = a = 0b = 0k = End Sub对文本框中数字的清除规定Private Sub Command6_Click(Index As Integer)Select Case IndexCase 0k = sinCase 1k = cosCase 2k = tanCase 3k = cotEnd SelectEnd SubPrivate Sub Command8_Click()Text1.Text = sumEnd SubPrivate Sub Form_Load() pi = 4 * Atn(1)End SubPrivate Sub end_click()EndEnd Sub以上是个空间代码。对代码解释如下：Dim sum As DoubleDim k As StringDim pi As