用vb制作计算器

华南理工大学化学与化工学院化工原理大作业程序设计报告1化工原理大作业程序设计报告所选课题： 化工计算程序设计 指导老师： 马四朋 作者姓名： 严程相 作者学号： 201030340887 学科班级： 化学工程与工艺班 所在学院： 化学与化工学院 华南理工大学化学与化工学院化工原理大作业程序设计报告2华南理工大学化学与化工学院化工原理大作业程序设计报告3目录摘要 2目录 3第一章 任务概述 41.1、目标 .41.2、需求概述 .41.2.1、鼠标操作 41.2.2、键盘操作 4第二章 总体设计 52.1、系统结构功能图 .5第三章 功能分配 63.1、打开计算器界面 .63.2、平方根，平方，倒数，正弦，余弦的实现 83.3、退格 .93.4、清除 .93.4.1、清除当前数据 93.4.2 清除所有数据 .93.5、鼠标的输入 .103.6、进制间的转换 .12小结 14华南理工大学化学与化工学院化工原理大作业程序设计报告4摘要这个程序是我用 VB 制作的，它可以实现简单的四则运算，数字的平方，平方根，正弦，余弦，倒数，以及进制的相互转换。而且它的功能还有退格，清除当前数据，清除所有数据，复制数据，粘贴数据，退出程序。在这个计算器的程序中，我用到了单行选择语句 If Then Else,If语句的嵌套，多条件选择语句 Select Case,而且还用到了组合框，框架，菜单的设计，以及键盘事件，可以通过键盘来用于计算。在此报告中我重点叙述了计算机的各个功能及用法。特别是进制间的转换和数字与运算符之间的联系。还有说明了键盘怎样用于操作计算。虽然表达能力不太行，但我会尽力使用系统结构图，程序流程图，划分多个模块，让大家明白我设计的运算器的功能的。华南理工大学化学与化工学院化工原理大作业程序设计报告5第一章 任务概述1.1、目标本系统的目标是建立一套可以计算数的平方，平方根，倒数，正弦，余弦，数字的进制转换的计算器系统，系统可以帮助我们更好的学习，更好的节省时间。还能避免出现一些不必要的计算错误。1.2、需求概述根据本系统的需求分析，系统的需求可以分为以下的几个方面：1.2.1、鼠标操作你可以利用鼠标点击界面上的各个按钮来实现计算器的运算。1.2.2、键盘操作当不方便使用鼠标时可以利用键盘来实现运算，数字的复制和粘贴。华南理工大学化学与化工学院化工原理大作业程序设计报告6第二章 总体设计2.1、系统结构功能图输入数字平方根平方倒数正弦余弦选择转换的进制转换退格清除所有数据清除当前数据图 2-1 系统结构功能图结果华南理工大学化学与化工学院化工原理大作业程序设计报告7第三章 功能分配3.1、打开计算器界面图 3-1 计算器界面Dim dflag As Integer 小数点仍然存在吗？Dim i As Integer Dim opnre As Integer 初始值Dim prev As Double 前面输入的操作数Dim oflag As Integer 等号前后对数字的标记Dim ind As Integer cmdoperator 控件数组的数Dim x As DoubleDim y As Double 运算符 (+, -, x, /, =) 的 Click 事件过程 如果接下来的按键是数字键，增加 val(text1.Caption)。 如果有一个操作数，则设置 prev。 如果有两个操作数，则将 prev 设置为 prev 与 val(text1.Caption) 当前输入字符串的运算结果，并显示结果。Private Sub cmdnumber_Click(Index As Integer)华南理工大学化学与化工学院化工原理大作业程序设计报告8If ind = 4 Thenprev = 0text1.Caption = “ “ind = 0 End Ifopnre = 0If oflag = 0 Thentext1.Caption = “ “End Ifoflag = 1小数点 (.) 按钮的 Click 事件过程 如果上一次按键为运算符，初始化 opnre 为 “0.“； 否则显示时追加一个小数点。If cmdnumber(Index).Caption “ 0“ Thentext1.Caption = text1.Caption & cmdnumber(Index).CaptionElsetext1.Caption = “ “ & cmdnumber(Index).CaptionEnd IfElseIf dflag = 0 Thentext1.Caption = text1.Caption & “.“dflag = 1ElseMsgBox (“ILLEGAL SAIRAM“)End IfEnd If 窗体的初始化过程 设置所有变量为其初始值。Private Sub Form_Load()计算器.Height = 5460计算器.Width = 4680prev = 0oflag = 0ind = 0华南理工大学化学与化工学院化工原理大作业程序设计报告9opnre = 0Clipboard.ClearEnd Sub3.2、平方根，平方，倒数，正弦，余弦的实现“平方根（sqrt） ”按钮的 click 事件Private Sub cmdsqrt_Click()y = Val(text1.Caption)text1.Caption = Sqr(y)End Sub“平方（sqmt） ”按钮的 click 事件Private Sub Cmdsqmt_Click()End Subx = Val(text1.Caption)text1.Caption = x 2End Sub“倒数（reciprocal） ”按钮的 click 事件Private Sub cmdreciprocal_Click()x = Val(text1.Caption)If x = 0 ThenMsgBox (“除数不能为零！“)Elsetext1.Caption = 1 / xEnd IfEnd Sub“正弦（sine） ”按钮的 click 事件Private Sub Cmdsine_Click()text1.Caption = Sin(x)End Sub“余弦（cosine） ”按钮的 click 事件Private Sub cmdcosine_Click()Dim a As Integera = Val(text1.Caption)text1.Caption = Cos(a)End Sub华南理工大学化学与化工学院化工原理大作业程序设计报告103.3、退格“退格”按钮的 click 事件Private Sub cmdback_Click()Dim length As Integerlength = Len(text1.Caption)数字的长度If length = 1 ThenIf text1.Caption 0s = x Mod n 取 x/n 的最大整数x = Int(x / n) 取小于或等于 x/n 的最大整数y = Mid(ch, s + 1, 1) + y LoopText2.Text = yEnd Sub图 3-6-1 十进制转换成二进制图 3-6-2 十进制转换成八进制图 3-6-3 十进制转换成十六进制华南理工大学化学与化工学院化工原理大作业程序设计报告15小结通过这次的课程设计，虽然很辛苦，但同时也让我弄懂了许多以