VB计算器代码

第 3 章计算器第3 章计算器

3.1 开发任务

在本任务中，我们要分别实现基本算术运算、累加和计算、阶乘计算、三角函数计算、排列组合计算和对数计算等多个子任务。

3.1.1 计算器的实验版本

1. 程序界面设计

（1）新建工程

打开VB开发环境，在工程浏览器窗口中（见图3-1左），将工程名称改为“计算器”（如图3-1中）；再将窗体名称改为“frmCalculator”如图3-1右）。

图3-1 改变工程和窗体名称

将窗体文件保存为“frmCalculator.frm”，工程文件保存为“prjCalculator”。

（2）添加控件

在本工程中，我们需要用到下列控件：1个文本框用于输入运算数和输出结果；16个按钮构成计算器键盘，其中10个用于输入10个数字字符，1个用于输入小数点，一个用于触发计算的等号，另外4个用于选择加、减、乘、除运算符。

首先在窗体上部添加一个文本框，默认名称是Text1，调整好大小和位置（如图3-2），并将属性Text的值清空，再将对齐方式Alignment 改成“1 -

Right Justify”右对齐；

图3-2 添加文本框控件

再来制作键盘，第1步，添加第1个按钮。在文本框下方添加一个按钮Command1，将它调整为一个按键般大小，并把Caption属性改成“1”。

第2步，添加第2个按钮。添加外形类似的按钮，用复制的方法即可。不过要注意，在粘贴时VB会询问“已经有一个控件为"Command1 "。创建一个控件数组吗？”（见图3-3），一定要回答“否”。将复制好的按钮Command2的Caption改成2，并移动到Command1的右边。

图3-3 创建控件数组询问对话框

第3步，重复进行粘贴操作，依次制作其它按钮，按图3-4的布局排列。前9个按钮的Caption改成与它们的顺序号相同，Command10的Caption改为“0”，Command11的Caption改为“.”，ommand12的Caption改为“=”，Command13～Command16的Caption依次改为“+”、“-”、“*”、“/”。

图3-4键盘制作

2. 程序代码编写

（1）数字按钮的处理

数字按钮的功能是，在单击按钮后，将对应的数字加入到文本框Text1中。

Private Sub Command1_Click()

Text1.Text = "1"

End Sub

测试一下，启动程序，连续单击按钮1，文本框中只会出现1个1。（2）错误的发现与修正

赋值语句中新的数据总会替换掉原有的内容。

以下是解决办法：

Private Sub Command1_Click()

Text1.Text = Text1.Text & "1"

End Sub

下面，再来接着写Command2的事件过程代码：

Private Sub Command2_Click()

Text1.Text = Text1.Text & "2"

End Sub

仿照上述做法，再写出其它8个数字按钮和小数点按钮的单击事件过程代码。

（3）Caption的利用

上述语句最后拼接的数据正好是被单击按钮的Caption。

Private Sub Command1_Click()

Text1.Text = Text1.Text & Command1.Caption '输入1

End Sub

Private Sub Command2_Click()

Text1.Text = Text1.Text & Command2.Caption '输入2

End Sub

…………

Private Sub Command11_Click()

Text1.Text = Text1.Text & Command11.Caption '输入小数点

End Sub

（4）运算符按钮的处理

1）运算数的暂存

Dim sglNumber As Single '用于暂存第1个运算数，前缀sgl是Single 的缩写

sglNumber = Text1.Text '保存第1个运算数，字符串自动转换称为单精度型

如果单击加法运算符，则单击事件过程如下：

Private Sub Command13_Click() '单击加法运算符按钮

Dim sglNumber As Single '用于暂存第1个运算数的变量sglNumber = Text1.Text '保存第1个运算数

Text1.Text = "" '用空串赋值，即可清空文本框

End Sub

2）加法运算代码

在输入第2个运算数之后，需要单击等号按钮来完成运算。

Private Sub Command12_Click() '单击等号按钮

Text1.Text = sglNumber + Val(Text1.Text) '取出第2个数与第1个数做加法并输出结果

End Sub

试运行程序，依次单击按钮5—加号—按钮6—等号，结果是6？调用MsgBox来找一下原因：

Private Sub Command12_Click() '单击等号按钮

MsgBox sglNumber '弹出变量的值

Text1.Text = sglNumber + Val(Text1.Text) '做加法运算并输出

End Sub

对话框中弹出空串！

流程再往后退，检查一下运算符按钮的单击事件过程。

Private Sub Command13_Click() '单击加法运算符按钮

Dim sglNumber As Single

sglNumber = Text1.Text

MsgBox sglNumber '弹出变量的值

Text1.Text = ""

End Sub

单击加号按钮后，对话框弹出了5，运行正确，错误不在本过程。（5）程序调试方法

最基本的3种程序调试方法。

1）在适当的地方加上MsgBox调用，通过弹出变量的当前值来进行

观察。

2）在适当位置加上中断标记（如图3-5），让程序运行到指定的位置暂停，然后利用中断的环境来检查变量当前的值。

图3-5 添加调试断点

流程到达断点语句行时会暂时中断，将鼠标悬停在变量名上，下方就会显示“变量名=变量值”的提示（见图3-6）。

图3-6 程序中断状态下查看变量值

注意，当流程暂停在中断语句处时，该语句尚未被执行。

按下【F8】键，程序可以单步执行。

3）借助于专用调试对象Debug，在适当的位置加上Debug对象的打印方法：

Debug.Print <变量名列表>[;][,]

在立即窗体中打印出变量的值供观察分析。

3. 变量的作用范围

程序中的变量是有作用范围的，它们的作用范围与其生命周期有着密切的关系。

（1）变量的生命周期

如果变量声明语句写在一个过程之内，那么，只有当程序流程进入这个过程并遇到该声明语句时，变量才会被分配内存单元，而当程序执行到End

Sub语句，也就是过程结束的同时，变量就被系统从内存中清除。在过程中声明的变量，称为过程级变量。

变量声明语句还可以写在过程之外，通常是写在模块中所有过程前面。这种变量称为模块级变量。模块级变量从文件被加载时出生，当文件被卸载或程序被结束时消亡。对于窗体文件中的模块级变量来说，它们的生命与窗体的寿命一样长，只要窗体对象未被卸载，模块级变量就始终存活。

（2）变量的作用范围

因为过程级变量只能在自身所在的过程之中存活，所以它们的作用范围就仅限于自身所在的过程，所以过程级变量也称局部变量。

模块级变量可以被本模块中的任何过程所访问，它的作用范围是整个模块。对于一个模块中的所有过程而言，模块级变量就是一种全局变量。

如果模块级变量被声明为Public（公共变量），那么，在整个工程范围之内，变量都是可访问的，只是访问方法有所不同。

4. 程序代码的改进

（1）加法运算代码

根据变量作用范围，我们将第1个运算数的暂存变量sglNumber的声明语句放在了所有过程之外，让它成为模块级变量，这样所有过程中的语句就都可以访问这个变量了。

Option Explicit

Dim sglNumber As Single '模块级变量，用于暂存第1个运算数

Private Sub Command13_Click() '单击加法按钮

sglNumber = Text1.Text '保存第1个运算数

Text1.Text = "" '用空串赋值，即可清空文本框

End Sub

Private Sub Command12_Click() '单击等号按钮

Text1.Text = sglNumber + Val(Text1.Text) '做加法运算并输出

End Sub

Rem 以下省略了所有数字按钮和小数点按钮的单击事件过程代码（2）通用运算代码

要能够进行四则运算，在单击等号按钮时，程序必须知道用户单击的是哪一个运算符，才能选用相应的计算公式。因此必须在用户单击运算符按钮时记下按钮的标记，到后续计算时才能够作出正确的选择。保存按钮标记的变量必须是模块级变量。

Option Explicit

Dim sglNumber As Single '模块级变量，用于暂存第1个运算数

Dim strOperator As String '模块级变量，用于保存运算符标记Private Sub Command13_Click() '单击加法按钮

sglNumber = Text1.Text '保存第1个运算数

strOperator = Command13.Caption '保存运算符标记

Text1.Text = ""

End Sub

Private Sub Command14_Click() '单击减法按钮

sglNumber = Text1.Text '保存第1个运算数

strOperator = Command14.Caption '保存运算符标记

Text1.Text = "" '清空文本框

End Sub

Private Sub Command15_Click() '单击乘法按钮

sglNumber = Text1.Text '保存第1个运算数

strOperator = Command15.Caption '保存运算符标记

Text1.Text = "" '清空文本框

End Sub

Private Sub Command16_Click() '单击除法按钮

sglNumber = Text1.Text '保存第1个运算数

strOperator = Command16.Caption '保存运算符标记

Text1.Text = "" '清空文本框

End Sub

Private Sub Command12_Click() '单击等号按钮

If strOperator = "+" Then Text1.Text = sglNumber + Val(Text1.Text) '加法

If strOperator = "-" Then Text1.Text = sglNumber - Val(Text1.Text) '减法

If strOperator = "*" Then Text1.Text = sglNumber * Val(Text1.Text) '乘法

If strOperator = "/" Then Text1.Text = sglNumber / Val(Text1.Text)

'除法

Text1.SetFocus

Text1.SelStart = 0

Text1.SelLength = Len(Text1.Text)

End Sub

Rem 以下省略了所有数字按钮和小数点按钮的单击事件过程代码5. 多路选择语句

程序设计语言都提供了一种多路选择处理结构，或者称多路分支结构语句，在VB中多路选择语句叫Select Case语句，它的语法格式如下：

Select Case <匹配条件表达式>

Case <情形1>

<语句块1>

[Case <情形2>

<语句块2>

……

[Case <情形n>

<语句块n>]

[Case Else

<语句块n+1>]]

End Select

图3-7 多路选择语句流程

这是一种1个入口多个出口的结构（见图3-7），哪个条件匹配，就从哪个出口通行。

Case的数量是可选的，根据程序需要而定。若只有1个Case，就相当于If-Then-End If结构；如果只有1个Case和Case

Else，就等价于If-Then-Else-End If结构。

匹配条件表达式可以是一个数值型、字符串型、日期型或逻辑型表达式。语句执行时，先将表达式的值计算出来，再将计算结果与下面各Case关键字后的数据进行比较，来检查是否匹配。

每个Case后列出满足该种情形的条件，可以是1个单一的数据，也可以是多个连续或不连续的数据，或者这些数据的组合表达式，例如：Case 2

Case 1, 3, 5

Case 1 To 10, 12 '1到12，不包含11

Case Is>1 And Is< 5 '1到5区间的数，不包含1和5

Case "Saturday" Or "Sunday"

6. 代码的优化

利用Select Case语句，对运算符选择部分进行优化，代码如下：Private Sub Command12_Click() '单击等号按钮

Select Case strOperator

Case "+"

Text1.Text = sglNumber + Val(Text1.Text) '加法

Case "-"

Text1.Text = sglNumber - Val(Text1.Text) '减法

Case "*"

Text1.Text = sglNumber * Val(Text1.Text) '乘法

Case "/"

Text1.Text = sglNumber / Val(Text1.Text) '除法

End Select

Text1.SetFocus

Text1.SelStart = 0

Text1.SelLength = Len(Text1.Text)

End Sub

6. 知识点小结

◆

程序调试——程序调试最基本的基本方法，可以通过设置断点或者弹出对话框来观察变量的当前值，以便确定错误是在断点之前还是之后，断点可以设置多处。调试完成后，应该将断点删除。

◆

变量的作用范围——变量是有作用范围的，它们的作用范围与其生命周期有着密切的关系。过程级变量的生命周期随过程的结束而终止，所以其作用范围仅限于过程之内；而模块级变量的作用范围可以是整个模块，只要模块没有被卸载，变量就存活着，因此可以被模块中所有的过程访问。

◆多路选择语句——这种语句结构可以在需要多选一的情况下使用，能够代替If选择语句结构，简化If的结构嵌套，提高程序执行速度。

3.1.2 四则运算计算器

1. 控件数组的引入

（1）数组的概念

◆数组——数组是一组同名变量。这组同名变量可以用一个索引（Index）来给它们编号，索引通常也称下标。

有了数组，在批量访问数组成员时，就不需要重复书写这些变量的名字，而只要改变它们的下标即可。数组与循环结构相结合，将使得程序代码大大简化。

（2）控件数组的概念

既然数组是一组变量，那么它也拥有各种数据类型，包括对象型。控件是一种对象，所以也可以被定义成数组。

◆

控件数组——与数组定义相似，一组同名的控件就是控件数组，数组中的每一个控件都称为数组的成员。例如Command(1)，Command(2)，…就是控件数组Command的成员。

使用控件数组的好处是，数组中的所有控件可以共用同一个事件过程。根据它们的下标来确定当前引用的是哪个控件。

2. 界面的设计

（1）新建工程

工程名：“计算器”，窗体名：frmCalculator，窗体的MaxButton属性：False。

（2）添加控件

分别将表3-1中所列的控件添加到窗体。

表3-1 添加控件的类型与属性

控件类型数量NameCaptionAlignment用途

TextBox1txtShow 1 - Right Justify输入输出

CommandButton10cmdNumber0,1,2,…,9 输入数字

CommandButton1cmdDot. 输入小数点

CommandButton1cmdEquals= 执行运算

CommandButton4cmdOperator+, -, *, / 运算符

1）数字按钮的添加

首先添加第1个数字按钮，将它的名称改成“cmdNumber”。再将它的Caption改成“0”。

然后利用复制-粘贴的方法来添加另外9个数字按钮。

这次粘贴时，在弹出对话框询问“已经有一个控件为"cmdNumber"。创建一个控件数组吗？”的时候，需要回答“是”。这样粘贴好一个按钮后，会发现它的名称自动变成了“cmdNumber(1)”，而第1个按钮名称，已经变成了“cmdNumber(0)”。这表示VB为同名的按钮控件自动创建了一个按钮控件数组。现在将第2个按钮cmdNumber(1)的Caption改成“1”，然后移动到适当的位置……

在VB中，数组的默认下标（索引）是从0开始的，因此控件数组第1个成员的下标为0，第2个成员的下标为1，……，以此类推。

控件数组成员的下标是存放在Index属性中的。

2）运算符按钮的添加

接下来，添加第1个运算符按钮，将按钮的名称改成“cmdOperator”，然后进行复制并粘贴3次，产生了另外一个按钮数组cmdOperator(0) ～

cmdOperator(3)。最后将它们的Caption按次序分别改成“+”、“-”、“*”和“/”。

3）添加其它控件

最后再添加一个文本框，将它的名称改为“txtShow”；一个小数点按钮，名称改为“cmdDot”；和一个等号按钮，名称改为“cmdEquals”。并把它们安排在图3-8所示的位置。

图3-8 控件位置布局

3. 数字按钮代码的编写

（1）最基本的代码

双击任意一个数字按钮，进入到代码编辑窗口，看到新的事件过程框架变成了这样：

Private Sub cmdNumber_Click(Index As Integer)

End Sub

其中参数Index是VB自动获取的按钮控件数组的下标，当单击

cmdNumber(n)的时候，Index值就是n。

通过Index的值可以知道了用户单击的是哪个按钮：

Private Sub cmdNumber_Click(Index As Integer) '单击任一个数字按钮

txtShow.Text = txtShow.Text & Index '将按钮的Caption插入文本框

End Sub

如果先单击按钮0，再单击其它数字按钮时，文本框中会出现前导0，不符合书写惯例，所以应该设法把它解决掉。

（2）前导0问题的处理

当单击按钮0的时候，先判断一下它是否为文本框中的第一个数字，如果是，就不将这个0写入文本框。

If txtShow.Text <> "" Then txtShow.Text = txtShow.Text & Index

试运行一下，现在所有按钮都不起作用了！

这个事件过程是所有数字按钮所共用的，本想屏蔽前导0的代码把所有数字按钮都给屏蔽了！

必须首先判断单击的是否为按钮0，如果是0同时又是第1个字符，才需要屏蔽。

Private Sub cmdNumber_Click(Index As Integer)

If Index = 0 Then '当单击的是按钮0时就执行下面的语句

If txtShow.Text <> "" Then txtShow.Text = txtShow.Text &

Index

End If

End Sub

再测试一下，还是所有按钮都不起作用！

我们所给出的逻辑是，当单击的是按钮0时，才可能进入If结构。因此单击其它数字按钮时根本没有执行任何语句，过程就结束了。正确代码如下：

Private Sub cmdNumber_Click(Index As Integer)

If Index = 0 Then '当单击的是按钮0时就执行下面的语句

If txtShow.Text <> "" Then txtShow.Text = txtShow.Text & Index

Else '当单击其它数字按钮时应执行的语句

txtShow.Text = txtShow.Text & Index

End If

End Sub

4. 小数点按钮代码的编写

Private Sub cmdDot_Click()

txtShow.Text = txtShow.Text & "."

End Sub

（1）小数点代码查错

改变小数点与数字按钮的输入次序，并且多单击几次小数点按钮，就可以发现2个问题：第1个，如果小数点作为最先输入的符号时，左

边应该自动附加一个0，而现在不能做到；第2个，小数点按钮可以单击多次并会在文本框中插入多个小数点符号。

（2）小数点前自动加0

先来处理小数点前自动加0的问题。小数点按钮的处理代码原本是这样写的：

Private Sub cmdDot_Click()

txtShow.Text = txtShow.Text & "."

End Sub

要实现自动加0，可以先判断一下文本框是否为空，如果是，就在小数点前面添加一个0，否则就直接加入一个小数点。

Private Sub cmdDot_Click()

If txtShow.Text = "" Then

txtShow.Text = "0." '如果小数点是首字符，就先写入"0."

Else

txtShow.Text = txtShow.Text & "." '如果小数点不是首字符，则写入"."

End If

End Sub

想一想，还有没有其它更好的写法？

Private Sub cmdDot_Click()

If txtShow.Text = "" Then txtShow.Text = "0" '如果小数点是首字符，则先写入0

txtShow.Text = txtShow.Text & "." '无论是否首字符，都要加入小数点

End Sub

这样看起来是不是更简练？

（3）避免小数点多次输入

先判断文本框中是否已经存在一个小数点，如果存在，则不再将小数点插入文本框。

◆取整函数Int (x)——返回不大于x的最大整数。

例如：Int (12.3) = 12；而Int (-12.3) = -13。

可以使用这个函数来判断文本框中的数据是否为整数，如果不是，说明含有小数点；如果Int(txtShow.Text) <>

Val(txtShow.Text)，说明txtShow.Text为小数表达式。不过当小数点位于文本框最右边的时候，上述判断就会失灵。

◆字符串搜索函数InStr(i ,s1, s2)

——本函数常用参数有3个，i是一个正整数表达式，s1和s2，都是字符串表达式。函数的功能是：在一个字符串s1中，从第i个字符开始，搜索是否存在另一个字符串s2，如果存在，就返回s2在s1中第一次出现的位置值。例如：

InStr (1, "ABCDABC", "A") 返回1；

InStr (1, "ABCDABC", "D") 返回4。

如果在第一个字符串s1中没有搜索到第二个字符串s2，则函数返回0，例如：

InStr (5, "ABCDABC", "D") 返回0。

第1个参数i可以省略，如果省略，则i的默认值为1。

利用Instr函数处理后的代码如下：

Private Sub cmdDot_Click()

If InStr(txtShow.Text, ".") = 0 Then '如果小数点不存在

If txtShow.Text = "" Then txtShow.Text = "0" '如果小数点是首字符，则先写入0

txtShow.Text = txtShow.Text & "." '添加一个小数点

End If

End Sub

5. 运算符按钮的处理

（1）运算数的暂存

先声明2个模块级变量：

Dim sglNumber As Single '用于暂存第1个运算数

Dim intOperator As Integer '用于存放运算符的下标

按钮数组，，和的Index分别是0，1，2，3，所以根据下标就可以知道单击的是哪一个按钮。

Private Sub cmdOperator_Click(Index As Integer)

intOperator = Index

sglNumber = Val(txtShow.Text)

End Sub

（2）第2个运算数的问题

VB6.0的小程序计算器

VB6.0的小程序计算器 对于刚入门学习VB6的朋友来说肯定会做些小程序吧，这里就是给大家演示个简单的计算器程序，仅供参考啦。 界面上加减乘除四个按钮分别是cmdAdd、cmdPlus、cmdMultiple、cmdDevide，小数点按钮是cmdDot，负号按钮是cmdMinuse，数字0～9为了偷懒，用了控件数组cmdNumber(0)~ cmdNumber(9)，上面txtShow是显示数字和结果用的，txtOperate是显示中间步骤的。 思路大致是这样，点加减乘除这类操作符的时候，把当前txtShow的值保存在模块变量mstrParam1里，同时把操作符保存到mstrOperate里，按等于号时把先把当前txtShow的值保存在模块变量mstrParam2里，然后对mstrParam1和mstrParam2进行运算，当然要记得设法把String转换成数值进行运算。 转换的过程要注意，这里是用的Variant数据类型，vParam1和vParam2都是Variant 类型，保存的是mstrParam1和mstrParam2的数值。之所以不用integer、long、double 这些标准类型，是因为这些类型都有大小限制，做出来用着不方便，VB最大的整型long才到 2147483647，这意味着计算器的计算结果只能限制在9位到10位。而Variant类型可以支持非常大的数，具体多大不清楚，但起码几十位是能够支持的。另外，最后算完的结果也要做格式化，因为如果数值非常大的话，VB会自动转成科学计数法，所以要用Format函数进行调整。 如果需要源代码的话在我百度空间里留言。https://www.wendangku.net/doc/3f12783293.html,/zhaozhigang517

vb科学计算器实验报告

西安科技大学 可视化编程语言实验报告 题目：科学计算器 班级： 学号： 姓名： 2010年11月

复杂型科学计算器的设计与实现实验目的 1．通过本实验，进一步理解Visual Basic的编程方法。 2．提高运用Visual Basic编程的能力。 3．培养对所学知识的综合运用能力。 实验类型 综合型。 实验内容与步骤 一.界面设计。

Command5Caption= 三．程序代码： Dim num1 As Single, num2 As Single Dim fu As Integer Dim sign As Integer Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 To 9 sign = Index + 20 Case 10 sign = Index + 20 fu = 1 Case 11 To 14 sign = Index + 20 End Select = "" End Sub Private Sub Command2_Click(Index As Integer) Select Case Index Case 0 To 9 = & Index If fu = 0 Then num1 = Val Else num2 = Val

Case 10 = & "-" Case 11 = & "." Case 12 To 18 = "" sign = Index fu = 1 End Select End Sub Private Sub Command3_Click() If =”” then else = Left$, Len - 1) End if End Sub Private Sub Command4_Click() = "" End Sub Private Sub Command5_Click() Dim n As Integer, cf As Single fu = 0: cf = 1 Select Case sign Case 12 = num1 & "+" & num2 = num1 + num2 Case 13 = num1 - num2 Case 14 = num1 * num2 Case 15 = num1 / num2 Case 18 For n = 1 To num2 cf = cf * num1 Next n = cf Case 20 = Sin(num1) Case 21

计算器vb源代码

计算器v b源代码 IMB standardization office【IMB 5AB- IMBK 08- IMB 2C】

计算器vb源代码.txt性格本身没有好坏，乐观和悲观对这个世界都有贡献，前者发明了飞机，后者发明了降落伞。完全版的前后台代码... '请把下面的保存为 VERSION Begin Calculator BorderStyle = 1 'Fixed Single Caption = "计算器" ClientHeight = 2970 ClientLeft = 2580 ClientTop = 1485 ClientWidth = 3270 ClipControls = 0 'False BeginProperty Font Name = "System" Size = Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Icon = "":0000 LinkMode = 1 'Source LinkTopic = "Form1" MaxButton = 0 'False PaletteMode = 1 'UseZOrder ScaleHeight = 2970 ScaleWidth = 3270 WhatsThisHelp = -1 'True Begin Number Caption = "7" Height = 480 Index = 7 Left = 120 TabIndex = 7 Top = 600 Width = 480 End

VB课程设计报告+计算器

目录 ●概要设计说明 (3) ●总体设计分析 (3) ●小组成员及分工方法....................................3 -4 ●功能模块图 (4) ●负责模块的程序设计分析 (5) ●负责模快的程序源代码及流程图.....................5-12 ●公共系统使用说明及截图..............................13-16 ●结束语、心得体会 (17) ●课程设计结评分表…………………………………18-19

一、概要设计说明 本组设计的科学计算器具有科学型和标准型两种类型，适合不同需要。科学型中包含弧度与角度的计算，同时兼具2、8、10、16进制的运算。在标准型中，编辑菜单（edit）包含复制（copy）、粘贴（paste）。查看菜单包含标准型（standar）、科学型（scientific）。帮助菜单中包含关于（about）（内含开发制作者信息） 二、总体设计分析（含功能模块图） 一．小组成员分工 1 科学型角度弧度和进制的调用，由小组成员共同完成 2 科学计算器中，x^2,x^3,x^y,1/x,n！,Log按键，及八进制转二 进制，八进制转十进制，由**负责。 3科学计算器中，BackSpance、CE、C和运算符号+、-、*、/、.、-/+、=以及标准型计算器由***负责 4 科学计算器中，sin，cos，tan,Rnd,Exp,ATn按钮以sin/cos/tan 计算时角度和弧度的转换由**负责。 5 科学行计算器中，Copy，Pst，Not，And，Xor，Int，Or， Abe，Exit按钮;将十进制转化为二进制，制转化为十进制，将二进制转化为八进制由**负责。

vb复数计算器

Dim save As String Dim a As Single Dim points, over, b, c, d, e As Boolean Private Sub Command1_Click(Index As Integer) If over = True Then Text1.Text = "" End If If b = True Then Text1.Text = Text1.Text & Trim(Str(Index)) ElseIf c = True Then Text2.Text = Text2.Text & Trim(Str(Index)) ElseIf d = True Then Text4.Text = Text4.Text & Trim(Str(Index)) ElseIf e = True Then Text5.Text = Text5.Text & Trim(Str(Index)) End If over = False End Sub Private Sub Command2_Click() If points = False Then If b = True Then If Text1.Text = "" Then Text1.Text = 0 & "." points = True Else Text1.Text = Text1.Text & "." points = True End If ElseIf c = True Then If Text2.Text = "" Then Text2.Text = 0 & "." points = True Else

VB计算器源代码

Dim sum As Double Dim flag1 As Integer Dim flag2 As Integer Public wen As Double Private Sub Command19_Click() Command24_Click Operator = Index NewEntry = True End Sub Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 wen = 0 Label1.Caption = "" Case 1 Text1.Text = Str(wen) Case 2 If Text1.Text = "" Then wen = 0 Label1.Caption = "" Else wen = Val(Text1.Text) Label1.Caption = "M" End If Text1.Text = "" Case 3 wen = Val(Text1.Text) + wen Label1.Caption = "M" End Select End Sub Private Sub Command12_Click() If Text1.Text <> "" Then

Text1.Text = Text1.Text * -1 Else MsgBox "输入不能为空！", vbOKOnly, "警告" Text1.SetFocus End If End Sub Private Sub Command16_Click() If InStr(Text1.Text, ".") = 0 Then Text1.Text = Text1.Text & "." Else Exit Sub End If End Sub Private Sub Command21_Click() Text1.Text = Str(Sqr(Val(Text1.Text))) End Sub Private Sub Command22_Click() sum = Text1.Text flag1 = 5 flag2 = 1 End Sub Private Sub Command23_Click() Text1.Text = Str(Val(Text1.Text / 1)) flag2 = 0 End Sub Private Sub Command24_Click() Select Case (flag1) Case 1 Text1.Text = sum + Text1.Text Case 2 Text1.Text = sum - Text1.Text Case 3 Text1.Text = sum * Text1.Text Case 4 If Text1.Text = 0 Then df = MsgBox("除数不能为零!请重新输入.", vbOKOnly + vbInformation, "警告") Text1.Text = "" Text1.SetFocus Exit Sub

用VB编写一个简单计算器

用VB编写一个简单计算器 一、功能：实现简单的加减乘除功能，C归零，CE取消输入，%计算并显示第一个操作数的百分比。 二、控件：1个label，20个commandbutton。 三、计算器运行界面： 四、详细代码： Option Explicit Dim Op1, Op2 '前面输入的操作数 Dim DecimalFlag As Integer '小数点仍然存在吗？ Dim NumOps As Integer '操作数个数 Dim LastInput '指示上一次按键事件的类型 Dim OpFlag '指示未完成的操作 Dim TempReadout ' C (取消) 按钮的Click 事件过程 ' 重新设置显示并初始化变量 Private Sub Cancel_Click() Readout = Format(0, "0.") Op1 = 0 Op2 = 0 Form_Load End Sub ' CE (取消输入) 按钮的Click 事件过程

Private Sub CancelEntry_Click() Readout = Format(0, "0.") DecimalFlag = False LastInput = "CE" End Sub ' 小数点(.) 按钮的Click 事件过程 ' 如果上一次按键为运算符，初始化readout 为"0."； ' 否则显示时追加一个小数点 Private Sub Decimal_Click() If LastInput = "NEG" Then Readout = Format(0, "-0.") ElseIf LastInput <> "NUMS" Then Readout = Format(0, "0.") End If DecimalFlag = True LastInput = "NUMS" End Sub ' 窗体的初始化过程 ' 设置所有变量为其初始值 Private Sub Form_Load() DecimalFlag = False NumOps = 0 LastInput = "NONE" OpFlag = " " Readout = Format(0, "0.") 'Decimal.Caption = Format(0, ".") End Sub ' 数字键(0-9) 的Click 事件过程 ' 向显示中的数追加新数 Private Sub Number_Click(Index As Integer) If LastInput <> "NUMS" Then Readout = Format(0, ".") DecimalFlag = False End If If DecimalFlag Then Readout = Readout + Number(Index).Caption Else Readout = Left(Readout, InStr(Readout, Format(0, ".")) - 1) + Number(Index).Caption + Format(0, ".") End If If LastInput = "NEG" Then Readout = "-" & Readout

vb科学计算器

课程设计指导书 课程vb计算器程序设计 班级 姓名 学号

目录 一功能描述 (3) 二概要设计及设计流程框图 (3) 三详细设计 (3) 四效果及运行界面图 (4) 五心得体会 (4) 六附录 (6) 七参考文献 (6) 八本人在改组中完成的部分 (7) 九进度安排 (7)

一、功能描述： 窗体通过窗体命令按钮或键盘输入数字实现基本的数学运算，使用窗体的功能按钮计算某些特殊函数 二、概要设计及设计流程框图： 使用vb设计科学型计算器，功能介于科学型和简单型之间,要求能进行加、减、乘、除和开方、乘方、对数、三角函数计算,可以存储与调出数据。在这个计算器的程序中，我用到了单行选择语句If … Then …Else…,If语句的嵌套，多条件选择语句Select Case。 三、详细设计： 本系统1个文本框，数个命令按钮，数个数字按钮用文本框显示输入的数字并将结果显示在文本框中，用命令按钮来计算和输入数字。详细内容： command12(0-9)为数字的控件数组，command13(4-11)为功能函数的控件数组，command13(0-3)为运算符的控件数组，command25为小数点按钮，command26为等号按钮，command1为开关按钮，command2为清除按钮。 四、效果及运行界面： 基本能完成所有运算

五、心得体会 为期一周的实训即将结束，通过这次的实训使我们学到了很多，同时也让我们意识到我们要学的更多。本次实训的内容是科学计算器的程序设计，以小组的形式进行分工合作，我组共4个人，从程序的需求分析、可行性分析、设计到编写、调试、修改、完善、到最后的实训报告，每个人都付出了时间和精力去做好自己的任务并努力地去完善它。 实训的第一天接到任务时我们都觉得有点难度，很有挑战性，毕竟计算器是一个比较系统、完善、功能相对较齐全的计算程序，因此程序编写也十分复杂，工作量较大，编写一定要认真。一个小小的失误都可能使程序出现大的漏洞。而我们只是学了点简单的vb程序编写，没有尝试过这种相对来说比较系统完善的系统。所以在做项目的时候我们倍感压力、更加的团结协作，可即使如此我们还是出现了错误，我们的程序在编写上存在一些漏洞，导致调试时不能正常运行，后经过老师的指导、我们的调整，终于可以完美的运行，这里也耽误了我们很多宝贵的时间，直接导致了我们在项目调试上速度不够快。 总的来说，这次实训还是比较成功的。最后出来的系统，大家都很有成就感，这是我们一步步设计、一步步完善、辛苦付出后得到的成果。小组合作、帮助队友，无论是团队合作这方面还是个人动手这方面，我们都得到了很好的锻炼。当然实训不仅使我们学到了知识，也帮助我们缩小了实践和理论的差距，通过这次实训让我们更深一步的对vb这门课程的知识有更进一步的渴望，同时对自己的

VB简单计算器编程代码(附图)

课程设计说明书正文 一、题目：计算器的创作和相应程序的编写 二、本题的主要功能：通过计算器的创作熟悉各控件的属性和练习程序的编写。 三、程序截图： 四、源程序清单： Begin VB.Form Form1 Caption = "计算器" ClientHeight = 3765 ClientLeft = 165 ClientTop = 855 ClientWidth = 5355 Icon = "Form1.frx":0000 LinkTopic = "Form1" LockControls = -1 'True ScaleHeight = 3765 ScaleWidth = 5355 StartUpPosition = 3 '窗口缺省 Begin https://www.wendangku.net/doc/3f12783293.html,mandButton Command4 Caption = "=" Height = 495 Left = 4470 TabIndex = 28 Top = 3060

Width = 735 End Begin https://www.wendangku.net/doc/3f12783293.html,mandButton Command3 Caption = "1/x" Height = 495 Left = 4470 TabIndex = 27 Top = 2520 Width = 735 End Begin https://www.wendangku.net/doc/3f12783293.html,mandButton Command2 Caption = "%" Height = 495 Left = 4470 TabIndex = 26 Top = 1980 Width = 735 End Begin https://www.wendangku.net/doc/3f12783293.html,mandButton Command1 Caption = "sqrt" Height = 495 Left = 4470 TabIndex = 25 Top = 1440 Width = 735 End Begin https://www.wendangku.net/doc/3f12783293.html,mandButton cmbDOT Caption = "." Height = 495 Left = 2910 TabIndex = 24 Top = 3060 Width = 735 End

vb编写的计算器代码

Option Explicit Const CC1 = 1E+28, CC2 = 0.000000000000001, CC3 = 100000000000000# Dim Op1, Op2 ' 预先输入操作数。 Dim DecFlag% ' 小数点存在吗？ Dim Klast ' 指示上一次按键事件的类型。 Dim OpFlag ' 指示未完成的操作。 Dim Kedt% ' 指示键入状态，0-未操作，1-算过，2-改过Dim MemNum ' 存储器 Dim Temp2 ' Function sqr28(a As V ariant) As V ariant Dim c As Double c = Sqr(a) If c > CC3 Or c < CC2 Then sqr28 = c Else sqr28 = CDec(Sqr(a)) sqr28 = sqr28 - (sqr28 * sqr28 - a) / sqr28 * 0.5 End If End Function Function cur28(a As V ariant) As V ariant Dim t As V ariant, c As Double c = Abs(a) ^ (1 / 3) If c > 1000000000# Or c < 0.000000001 Then cur28 = c * Sgn(a) Else cur28 = CDec(c) * Sgn(a) t = cur28 * cur28 cur28 = cur28 - (cur28 * t - a) / t / 3 End If End Function ' 存入存储器 Private Sub BtMS_Click() If Kedt = 2 Then GetOp1 MemNum = Op1 LabMem.Visible = MemNum <> 0 Kedt = 1 End Sub ' 取出存储器数据 Private Sub BtMr_Click() CancelEntry_Click Op1 = MemNum

VB科学计算器课程设计

湖南医药学院 VB计算器课程设计题目： VB科学计算器 院(系)别临床医学院 专业临床医学 班级本临一班 学号 2015101010121 姓名夏铭锴 指导教师李跃强 二○一六年四月

目录 一、设计内容及要求 二、设计原始资料 三、设计完成后提交的文件和图表设计 四、进程安排 五、主要参考资料 [摘要] 用VB制作这个程序的简单计算器，它包括一个标准的计算器和一个科学计算器。它可以实现简单的加减乘除四则运算，数字的平方、平方根，正弦、余弦、正切，倒数、指数函数、对数函数，角度、弧度、梯度的转换，以及各进制的相互转换。而且它的功能还有退格，清除当前数据，清除所有数据，复制数据，粘贴数据。 在这个计算器的程序中，我用到了单行选择语句If…Then…Else…, 块语句if…then…end if,If语句的嵌套，多条件选择语句Select Case,而且还用到了按钮、文本框、框架、单选按钮控件，菜单的设计。 在此报告中我重点叙述了计算机的各个功能及用法。特别是进制间的转换和数字与运算符之间的联系。。虽然描述的不太完整，但我会尽力使用系统结构图，划分多个模块，让大家明白我设计的运算器的功能的。 [关键词] Visual Basic；计算器；对象；代码 1

2

3

四、进程安排 （1）创建应用程序的界面。 （2）设置属性。 （3）编写代码。 4

附页： 设计原始资料 Private Sub Command1_Click() '删除数字的最后一位If Label3.Caption <> "" Then Label3.Caption = Left(Label3.Caption, Len(Label3.Caption) - 1) Else c = MsgBox("内容已为空！不可删除一位！", 49, "注意！") End If End Sub Private Sub Command10_Click() '输入数字6 Label3.Caption = Label3.Caption + Command10.Caption End Sub Private Sub Command11_Click() If Label3.Caption <> "" Then '输入符号* Label1.Caption = Label3.Caption Label2.Caption = Command11.Caption Label3.Caption = "" Else c = MsgBox("请输入数据后输入符号！", 49, "注意！") End If End Sub 5

VB计算器代码

第 3 章计算器第3 章计算器 3.1 开发任务 在本任务中，我们要分别实现基本算术运算、累加和计算、阶乘计算、三角函数计算、排列组合计算和对数计算等多个子任务。 3.1.1 计算器的实验版本 1. 程序界面设计 （1）新建工程 打开VB开发环境，在工程浏览器窗口中（见图3-1左），将工程名称改为“计算器”（如图3-1中）；再将窗体名称改为“frmCalculator”如图3-1右）。 图3-1 改变工程和窗体名称 将窗体文件保存为“frmCalculator.frm”，工程文件保存为“prjCalculator”。 （2）添加控件 在本工程中，我们需要用到下列控件：1个文本框用于输入运算数和输出结果；16个按钮构成计算器键盘，其中10个用于输入10个数字字符，1个用于输入小数点，一个用于触发计算的等号，另外4个用于选择加、减、乘、除运算符。 首先在窗体上部添加一个文本框，默认名称是Text1，调整好大小和位置（如图3-2），并将属性Text的值清空，再将对齐方式Alignment 改成“1 -

Right Justify”右对齐； 图3-2 添加文本框控件 再来制作键盘，第1步，添加第1个按钮。在文本框下方添加一个按钮Command1，将它调整为一个按键般大小，并把Caption属性改成“1”。 第2步，添加第2个按钮。添加外形类似的按钮，用复制的方法即可。不过要注意，在粘贴时VB会询问“已经有一个控件为"Command1 "。创建一个控件数组吗？”（见图3-3），一定要回答“否”。将复制好的按钮Command2的Caption改成2，并移动到Command1的右边。 图3-3 创建控件数组询问对话框 第3步，重复进行粘贴操作，依次制作其它按钮，按图3-4的布局排列。前9个按钮的Caption改成与它们的顺序号相同，Command10的Caption改为“0”，Command11的Caption改为“.”，ommand12的Caption改为“=”，Command13～Command16的Caption依次改为“+”、“-”、“*”、“/”。 图3-4键盘制作 2. 程序代码编写 （1）数字按钮的处理

VB编写简易计算器(附图)

用VB6.0编写简易计算器 效果图： 废话不多说，直接上步骤 一、创建控件组 1、创建控件组的方法 首先创建一个命令按钮，调整其大小（觉得合适就行），名称为Command1，Caption 属 性为数字 0 ；然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一个同名控件，询问是否创建控件组，选择“是”后，即创建了一个名为“Command”的控件组。这时，第一个按钮的Index属性值默认为“0”，第二个的Index属性值自动设为“1”，并 且大小与第一个按钮相同，只需修改其 Caption 属性为数字“1”并将其拖至合适位置即可。此后继续使用“粘贴”的方法建立其他控件组中其余按钮，共20个按钮，每建立一个，就将它拖到合适处，并修改相应的Caption属性值。

2、各控件组其属性设置如下： 设置效果如下图所示：

二、编写代码 Dim s1 As Single, s2 As Single, ysf As String '定义两个单精度数变量用与存放参与运算的数,一个字符型存放运算符 Private Sub Command1_Click(Index As Integer) Text1.Text = Text1.Text & Command1(Index).Caption '将command1的单击事件与文本框显示的内容连接 End Sub Private Sub Command2_Click() Text1.Text = Text1.Text + "." If (InStr(Text1.Text, ".") = 1) Then'第一位不能为小数 Text1.Text = "" End If If InStr(Text1.Text, ".") < Len(Text1.Text) Then '防止出现两个小数点 Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) End If End Sub Private Sub Command3_Click() s2 = Val(Text1.Text) '开始加减乘除运算 Select Case ysf Case "+" Text1.Text = s1 + s2 Case "-" Text1.Text = s1 - s2 Case "*" Text1.Text = s1 * s2 Case "/" If s2 = 0 Then MsgBox "分母不能为零!" Text1.Text = "" Else Text1.Text = s1 / s2 End If End Select Text1 = IIf(Left(Text1.Text, 1) = ".", 0 & Text1.Text, Text1.Text) '这个很关键，如果没有这个的话，得出小于1的小数前面没有0 End Sub Private Sub Command4_Click() If Text1.Text = "" Then '文本为空就结束 Exit Sub End If

简单科学计算器vb程序

’//本人写的原始程序 '注意没法实现如下功能：10+===然后输入10再=。此程序会结果出错 Dim denghao, fenghao As Boolean 'denghao判断是否按下“=”，fenghao判断是否按下“1/X”Dim xiaoshu, biaoji As Boolean 'xiaoshu判断是否已按“.”，biaoji第一次判断前面是否按过“+”“-”等运算符按钮 Dim fuhao As Byte '运算符类型标号 Dim leixin As Byte '进制转换类型 Dim fistnumber, last As Double 'fistnumber第一个数据,最后一个数据 Dim panduan, jinzhi As Boolean 'panduan判断前面是否连续按“+”“-”等运算符按钮 Dim denglianxu As Boolean 'denglianxu判断前面是否连续安"=" Dim m, n, i, sum As Double Dim pi As Double 'sin,cos Dim kuahao As Boolean '判断是否按下“（” Dim si As String Dim shilu, bajin As Boolean '十六进制下才能输入A-F;八进制下8-9不能输入 Dim h, d, o, b As Integer '进制 Dim se, s As Double Dim ejin As Boolean '判断2-9，在二进制下不能输入 Private Sub baifeng_Click() '1/X的程序 If Not biaoji Then fuhao = 7 If Val(Text1.Text) = "0" Then Text1.Text = "除数不能为零" Else Call jieguo End If Else Call jieguo fuhao = 7 Call jieguo End If fenghao = True xiaoshu = False End Sub Private Sub clear_Click() If clear.Value = 1 Then Text1.Text = "0" xiaoshu = False clear.Value = 0 sum = 1

VB编写简单计算器程序

Option Explicit Dim LastInput As String * 3 '记录上次按下的按键 Dim Num1 As Double '第一个操作数 Dim Num2 As Double '第二个操作数 Dim OptType As Integer '按下哪一个操作符 Dim Result As Double '表示运算结果 Dim shuzhi As Integer '表示当前采用的shuzhi Dim FirstNum As Boolean '是否是第一个操作数 Sub keyp(keynum As Integer) Dim CHAR As String * 1 CHAR = Chr(keynum) If CHAR = "+" Or keynum = 43 Then Command5(0).Value = True If CHAR = "-" Or keynum = 45 Then Command5(1).Value = True If CHAR = "*" Or keynum = 42 Then Command5(2).Value = True If CHAR = "/" Or keynum = 47 Then Command5(3).Value = True If shuzhi = 2 And CHAR >= "2" And CHAR <= "9" Then keynum = 0 Exit Sub End If If keynum >= 48 And keynum <= 57 Then Command1(keynum - 48).Value = True If keynum = 46 Then Command2.Value = True If UCase(CHAR) = "C" Then Command3.Value = True If keynum = 27 Then Command4.Value = True If keynum = 61 Then Command6.Value = True keynum = 0 End Sub Function angle(ByVal j1 As Integer) As Single angle = j1 If Option1.Value Then angle = j1 * 3.14 / 180 End Function Function ArcSin(ByVal Num As Single) As Single If Num = 1 Then ArcSin = 3.1415926 / 2 ElseIf Num = -1 Then ArcSin = 3.1415926 * 3 / 2 Else ArcSin = Atn(Num / Sqr(-Num * Num + 1)) End If If Option1.Value Then ArcSin = ArcSin * 180 / 3.1415926 End Function Function ArcCos(ByVal Num As Single) As Single If Num = 1 Then ArcCos = 0 ElseIf Num = -1 Then ArcCos = 3.1415926 Else ArcCos = Atn(-Num / Sqr(-Num * Num + 1)) + 2 * Atn(1)

VB程序语言设计科学计算器

VB程序语言设计 课程大作业 题目名称：科学计算器设计 班级： 12020742 姓名： 学号： 课程教师：温海骏 学期：2014-2015学年第2学期 完成时间： 2015年5月

一、实验内容 《科学计算器》设计 本科学计算器是一种能实现加、减、乘、除、倒数、乘方、正玄、余玄、正切、In、n!函数、进制、弧度转换等运算功能，并带有存储器、统计框等，基本实现了Windows自带计算器的所有功能。要实现计算器的这些功能就用到我们所学的VB知识编写程序来实现运算功能并解决问题，也是我们实训要达到的目的。 二、实验目的 1、通过本实验，进一步理解Visual Basic的编程方法。 2、提高运用Visual Basic编程的能力。 3、培养对所学知识的综合运用能力。 4、用所学的VB知识编写程序来实现运算功能并解决问题，达到实训的目的 三、实验设备 计算机、VB软件 四、实验过程 1、课题的选材过程（设计思路） 由VB程序设计的科学计算器是一种能实现加、减、乘、除、倒数、乘方、正玄、余玄、正切、In、n!函数、进制、弧度转换等运算功能，并带有存储器、统计框等，基本实现了Windows自带计算器的所有功能。 思路：为实现上述功能，我的基本思路是在窗体上建立4个控件数组，第一个控件数组是标准型，实现简单的四则运算；第二个控件数组是科学型，用来进行正弦余弦、正切余切、正割余割、反正弦反余弦、对数和n！等函数功能；第三个控件数组为程序员，实现进制转换；另外一个按钮实现单位转换。 2、设计的将要达到的目标 实现加、减、乘、除、倒数、乘方、正玄、余玄、正切、In、n!函数、进制、弧度转换等运算功能，并带有存储器、统计框等，基本实现Windows自带计算器的所有功能。 3、总体设计结构与功能 （1）总体设计结构介绍（绘制：结构流程图） 结构流程图如下：

VB6.0的小程序计算器

的小程序计算器 对于刚入门学习VB6 的朋友来说肯定会做些小程序吧，这里就是给大家演示个简单的计算器程序，仅供参考啦。 界面上加减乘除四个按钮分别是cmdAdd cmdPlus、cmdMultiple、cmdDevide，小数点按钮是cmdDot,负号按钮是cmdMinuse,数字0?9为了偷懒，用了控件数组cmdNumber(O)~ cmdNumber(9)，上面txtShow 是显示数字和结果用的，txtOperate 是显示中间步骤的。 思路大致是这样, 点加减乘除这类操作符的时候, 把当前txtShow 的值保存在模块变量mstrParam1 里,同时把操作符保存到mstrOperate 里,按等于号时把先把当前txtShow 的值保存在模块变量mstrParam2 里,然后对mstrParam1 和mstrParam2 进行运算,当然要记得设法把String 转换成数值进行运算。 转换的过程要注意,这里是用的Variant 数据类型, vParam1 和vParam2 都是Variant 类型,保存的是mstrParam1 和mstrParam2 的数值。之所以不用integer 、long 、double 这些标准类型，是因为这些类型都有大小限制，做出来用着不方便，VB最大的整型long才 到47 ,这意味着计算器的计算结果只能限制在9位到10位。而Variant类型可以支持非常 大的数，具体多大不清楚，但起码几十位是能够支持的。另外，最后算完的结果也要做格式化，因为如果数值非常大的话，VB会自动转成科学计数法，所以要用Format函数进行调整。 如果需要源代码的话在我百度空间里留言。Explicit Private Const mstrFORMATDEFAULT As String = "#.##" Private mstrParam1 As String, mstrParam2 As String Private mstrOperate As String Private Sub cmdAdd_Click() mstrParam1 = Trim mstrOperate = "+" ___ nil = & mstrParam1 & vbCrLf = & mstrOperate & vbCrLf End Sub Private Sub cmdPlus_Click() mstrParam1 = Trim mstrOperate = "-" ____ Illi

VB程序语言设计科学计算器

V B程序语言设计科学计 算器 Document number：NOCG-YUNOO-BUYTT-UU986-1986UT

VB程序语言设计 课程大作业 题目名称：科学计算器设计 班级： 姓名： 学号： 课程教师：温海骏 学期：2014-2015学年第2学期 完成时间：2015年5月 一、实验内容 《科学计算器》设计 本科学计算器是一种能实现加、减、乘、除、倒数、乘方、正玄、余玄、正切、In、n!函数、进制、弧度转换等运算功能，并带有存储器、统计框等，基本实现了Windows自带计算器的所有功能。要实现计算器的这些功能就用到我们所学的VB知识编写程序来实现运算功能并解决问题，也是我们实训要达到的目的。 二、实验目的 1、通过本实验，进一步理解VisualBasic的编程方法。 2、提高运用VisualBasic编程的能力。 3、培养对所学知识的综合运用能力。 4、用所学的VB知识编写程序来实现运算功能并解决问题，达到实训的目的

三、实验设备 计算机、VB软件 四、实验过程 1、课题的选材过程（设计思路） 由VB程序设计的科学计算器是一种能实现加、减、乘、除、倒数、乘方、正玄、余玄、正切、In、n!函数、进制、弧度转换等运算功能，并带有存储器、统计框等，基本实现了Windows自带计算器的所有功能。 思路：为实现上述功能，我的基本思路是在窗体上建立4个控件数组，第一个控件数组是标准型，实现简单的四则运算；第二个控件数组是科学型，用来进行正弦余弦、正切余切、正割余割、反正弦反余弦、对数和n！等函数功能；第三个控件数组为程序员，实现进制转换；另外一个按钮实现单位转换。 2、设计的将要达到的目标 实现加、减、乘、除、倒数、乘方、正玄、余玄、正切、In、n!函数、进制、弧度转换等运算功能，并带有存储器、统计框等，基本实现Windows自带计算器的所有功能。 3、总体设计结构与功能 （1）总体设计结构介绍（绘制：结构流程图） 结构流程图如下：