VB课程设计--简单计算器

《VB课程设计--简单计算器》由会员分享，可在线阅读，更多相关《VB课程设计--简单计算器（33页珍藏版）》请在毕设资料网上搜索。

1、 - 1 - 摘摘 要要 我用 VB 制作这个程序的简单计算器，它包括一个标准的计算器和 一个科学计算器。它可以实现简单的加减乘除四则运算，数字的平方、 平方根，正弦、余弦、正切，倒数、指数函数、对数函数，角度、弧 度、梯度的转换，以及各进制的相互转换。而且它的功能还有退格， 清除当前数据，清除所有数据，复制数据，粘贴数据。 在这个计算 器的程序 中，我用 到了单行 选择语 句 If Then Else, 块语句 ifthenend if,If 语句的嵌套， 多条件选择语句 Select Case,而且还用到了按钮、文本框、框架、单选按钮控件，菜单的设计。 在此报告中我重点叙述了计算机的各个功

2、能及用法。特别是进制 间的转换和数字与运算符之间的联系。 。虽然描述的不太完整，但我会 尽力使用系统结构图，划分多个模块，让大家明白我设计的运算器的 功能的。 - 2 - 目目 录录 第一章、程序概述第一章、程序概述 - - 4 4 - - 1.1、创作目的 . - 4 - 1.2、基本功能 . - 4 - 第二章、总体设计第二章、总体设计 - - 5 5 - - 2.1、程序轮廓图 - 5 - 第三章、程序代码第三章、程序代码 - - 6 6 - - 3.1、计算器界面 . - 6 - 3.1.1、标准型计算器： - 6 - 3.1.2、科学型计算器： - 7 - 3.2、标准计算器代码 .

3、 - 8 - 3.2.1、变量的定义及初始化 - 8 - 3.2.2、简单的运算 - 8 - 3.2.3、退格、清除、清空 - 10 - 3.2.4、复制、粘贴 - 11 - 3.2.5、两窗体的切换 - 12 - 3.3、科学型计算器的代码 . - 12 - 3.3.1、变量的定义及初始化 - 12 - 3.3.2、简单的运算 - 13 - 3.3.3、正弦、余弦、正切 - 15 - 3.3.4、平方、立方、多次方 - 15 - 3.3.5、指数函数、对数函数 - 16 - 3.3.6、倒数、平方根 - 16 - 3.3.7、角度、弧度、梯度 - 17 - - 3 - 3.3.8、各进制转换

4、 - 18 - 3.3.9、退格、清除、清空 - 27 - 3.3.10、复制、粘贴 - 28 - 3.3.11、两窗体的切换. - 29 - 第四章、总结第四章、总结 - - 30 30 - - 4.1、对学习者知识的要求： . - 30 - 4.2、学习程序设计基本要求： . - 30 - 4.3、程序设计方法概述 . - 31 - 4.4、如何学好 VB . - 31 - 4.5、不足之处 . - 32 - 参考文献参考文献 - - 33 33 - - - 4 - 第一章、程序概述第一章、程序概述 1.1、创作目的、创作目的 本程序的目标是建立一套可以计算数的平方，平方根，倒数， 正弦，

5、余弦，正切，指数函数，对数函数，角度、弧度、梯度相互 转换和数字的 进制转换的计算器系统， 系统可以帮助我们更快的计算， 更好的学 习，更 好的节省时间。还能避免出现一些不必要的计算错误。 1.2、基本功能、基本功能 1) 能够完成整型和实型常数的四则运算。 2) 能够进行如下函数的求值运算，包括 sin, cos,tan, exp, log, sqr, 1/x，及和园周率。 3) 能够实现角度、弧度、梯度的相互转换。 4) 能够实现的进制的相互转换。 5) 输出时的格式：结果为整数时不显示小数点，结果为 1 以 下小数时要显示前导 0。 6) 分门别类采用控件数组，以减少事件处理的复杂程度，

6、使 程序简洁高效。 7) 能够实现退格键、清除、清空功能。 8) 出错处理:操作数如果不符合数学上的定义， 应该给出错误 信息。例：0 做除数，负数或 0 做真数等情况 - 5 - 第二章、总体设计第二章、总体设计 2.12.1、程序轮廓图、程序轮廓图 图 一 输入数字 平方根 平方 余弦 立方 正弦 选择转 换的进 转换 退 格 清除说有 数据 清除当前 数据 正切 倒数 指数函数 对数函数 角度、 弧度、 梯度的 转换 简单四 则运算 结 果 - 6 - 第三章、程序代码第三章、程序代码 3.1、计算、计算器器界面界面 3.1.1、标准型计算器：标准型计算器： 图图 二二 - 7 - 3.1.2、科学型计算器：科学型计算器： 图图 三三 - 8 - 3.2、标准计算器代码、标准计算器代码 3.2.1、变量的定义及初始化、变量的定义及初始化 Dim dflag As Integer Dim i As Integer Dim opnre As Integer Dim prev As Double Dim oflag As Integer