《用vb制作计算器》word版

《《用vb制作计算器》word版》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、华南理工大学化学与化工学院《化工原理》大作业——程序设计报告化工原理大作业程序设计报告所选课题：化工计算程序设计指导老师：马四朋作者姓名：严程相作者学号：201030340887学科班级：化学工程与工艺３班所在学院：化学与化工学院14华南理工大学化学与化工学院《化工原理》大作业——程序设计报告14华南理工大学化学与化工学院《化工原理》大作业——程序设计报告目录摘要2目录3第一章任务概述41.1、目标41.2、需求概述41.2.1、鼠标操作41.2.2、键盘操作4第二章总体设计52.1、系统结构功能图5第三章功能分配63.1、打开计算器界面63.2、平方根，平方，倒数，正弦，余弦的实现8

2、3.3、退格93.4、清除93.4.1、清除当前数据93.4.2清除所有数据93.5、鼠标的输入103.6、进制间的转换12小结1414华南理工大学化学与化工学院《化工原理》大作业——程序设计报告摘要这个程序是我用VB制作的，它可以实现简单的四则运算，数字的平方，平方根，正弦，余弦，倒数，以及进制的相互转换。而且它的功能还有退格，清除当前数据，清除所有数据，复制数据，粘贴数据，退出程序。在这个计算器的程序中，我用到了单行选择语句If…Then…Else…,If语句的嵌套，多条件选择语句SelectCase,而且还用到了组合框，框架，菜单的设计，以及键盘事件，可以通过键盘来用于计算。在此

3、报告中我重点叙述了计算机的各个功能及用法。特别是进制间的转换和数字与运算符之间的联系。还有说明了键盘怎样用于操作计算。虽然表达能力不太行，但我会尽力使用系统结构图，程序流程图，划分多个模块，让大家明白我设计的运算器的功能的。14华南理工大学化学与化工学院《化工原理》大作业——程序设计报告第一章任务概述1.1、目标本系统的目标是建立一套可以计算数的平方，平方根，倒数，正弦，余弦，数字的进制转换的计算器系统，系统可以帮助我们更好的学习，更好的节省时间。还能避免出现一些不必要的计算错误。1.2、需求概述根据本系统的需求分析，系统的需求可以分为以下的几个方面：1.2.1、鼠标操作你可以利用鼠标

4、点击界面上的各个按钮来实现计算器的运算。1.2.2、键盘操作当不方便使用鼠标时可以利用键盘来实现运算，数字的复制和粘贴。14华南理工大学化学与化工学院《化工原理》大作业——程序设计报告第二章总体设计2.1、系统结构功能图输入数字平方根平方倒数正弦余弦选择转换的进制转换退格清除所有数据清除当前数据结果图2-1系统结构功能图14华南理工大学化学与化工学院《化工原理》大作业——程序设计报告第三章功能分配3.1、打开计算器界面图3-1计算器界面DimdflagAsInteger‘小数点仍然存在吗？DimiAsIntegerDimopnreAsInteger‘初始值DimprevAsDouble

5、‘前面输入的操作数DimoflagAsInteger‘等号前后对数字的标记DimindAsInteger‘cmdoperator控件数组的数DimxAsDoubleDimyAsDouble'运算符(+,-,x,/,=)的Click事件过程'如果接下来的按键是数字键，增加val(text1.Caption)。'如果有一个操作数，则设置prev。'如果有两个操作数，则将prev设置为prev与val(text1.Caption)'当前输入字符串的运算结果，并显示结果。PrivateSubcmdnumber_Click(IndexAsInteger)14华南理工大学化学与化工学院《化工原理》

6、大作业——程序设计报告Ifind=4Thenprev=0text1.Caption=""ind=0EndIfopnre=0Ifoflag=0Thentext1.Caption=""EndIfoflag=1小数点(.)按钮的Click事件过程'如果上一次按键为运算符，初始化opnre为"0."；'否则显示时追加一个小数点。Ifcmdnumber(Index).Caption<>"."ThenIftext1.Caption<>"0"Thentext1.Caption=text1.Caption&cmdnumber(Index).CaptionElsetext1.Caption=""&cmd

7、number(Index).CaptionEndIfElseIfdflag=0Thentext1.Caption=text1.Caption&"."dflag=1ElseMsgBox("ILLEGALSAIRAM")EndIfEndIf'窗体的初始化过程'设置所有变量为其初始值。PrivateSubForm_Load()计算器.Height=5460计算器.Width=4680prev=0oflag=0ind=014华南理工大学化学与化工学院《