毕业设计论文：基于VB的计算器的设计与实现
vb 简易计算器实验报告
简易计算器课程设计报告一、实验目的:模拟计算器的功能。
系统启动后, 先清屏, 再在显示屏右侧显示0字样, 系统仅接收数字键、加减乘除键、退格键、C键(复位)、=或回车键、ESC键(退出系统)作为有效按键, 其余按键不响应。
按键后屏幕显示效果要达到一般计算器显示屏的同样效果。
不要求设计一般计算器上都具有的M功能。
二、实验设计内容及思想:首先, 创建一个主体框架: 建立程序的主要界面后, 系统自动生成界面的主要窗口生成代码。
对于每个按钮的的代码段中, 分别添加事件触发的处理代码。
分别设立三个显示屏, 第一个显示屏作为“被加数”框, 第二个显示屏作为“加数”框, 第三个显示屏则作为输出框。
四则运算时直接采用计算表达式。
所以, 优先级和运算规则皆宜考虑在内。
在进行除法运算时, 若遇到除数为0, 则运用条件语句执行, 并在输出显示屏上输出“E”。
三角函数、指数、对数、整除、取余等运算, 也是运用类似手法。
考虑到计算器的操作简便性, 所以加入了复位和退出按钮。
三、源程序文件:Private Sub Command1_Click()Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextText3.Text = x + yEnd SubPrivate Sub Command10_Click()Dim x As Integerx = Text1.TextText3.Text = Cos(x)End SubPrivate Sub Command11_Click()Dim x As Integerx = Text1.TextText3.Text = Tan(x)End SubPrivate Sub Command12_Click()Dim x As Integerx = Text1.TextText3.Text = Atn(x)End SubPrivate Sub Command13_Click() Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextText3.Text = x ^ yEnd SubPrivate Sub Command14_Click() Dim x As Integerx = Text1.TextIf x <= 0 ThenText3.Text = "输入错误"ElseText3.Text = Log(x)End IfEnd SubPrivate Sub Command15_Click() Text3.Text = "此按钮仅作装饰用" End SubPrivate Sub Command2_Click() Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextText3.Text = x - yEnd SubPrivate Sub Command3_Click() Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextText3.Text = x * yEnd SubPrivate Sub Command4_Click() Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextIf y = 0 ThenText3.Text = "E"ElseText3.Text = x / yEnd IfEnd SubPrivate Sub Command5_Click()Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextText3.Text = x \ yEnd SubPrivate Sub Command6_Click()Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextText3.Text = x Mod yEnd SubPrivate Sub Command7_Click()Text1.Text = ""Text2.Text = ""Text3.Text = " 0" End SubPrivate Sub Command8_Click()EndEnd SubPrivate Sub Command9_Click()Dim x As Integerx = Text1.TextText3.Text = Sin(x)End Sub源代码截图:四、运行结果演示: 加法演示:减法演示: 乘法演示:除法演示:能够整除: 不能够整除:除数为零:。
VB程序语言设计科学计算器
VB程序语言设计课程大作业题目名称：科学计算器设计班级： 12020742姓名：学号：课程教师：温海骏学期： 2014-2015学年第2学期完成时间： 2015年5月1、实验内容《科学计算器》设计本科学计算器是一种能实现加、减、乘、除、倒数、乘方、正玄、余玄、正切、In、n!函数、进制、弧度转换等运算功能，并带有存储器、统计框等，基本实现了Windows自带计算器的所有功能。
要实现计算器的这些功能就用到我们所学的VB知识编写程序来实现运算功能并解决问题，也是我们实训要达到的目的。
2、实验目的1、通过本实验，进一步理解Visual Basic的编程方法。
2、提高运用Visual Basic编程的能力。
3、培养对所学知识的综合运用能力。
4、用所学的VB知识编写程序来实现运算功能并解决问题，达到实训的目的三、实验设备计算机、VB软件4、实验过程1、课题的选材过程（设计思路）由VB程序设计的科学计算器是一种能实现加、减、乘、除、倒数、乘方、正玄、余玄、正切、In、n!函数、进制、弧度转换等运算功能，并带有存储器、统计框等，基本实现了Windows自带计算器的所有功能。
思路：为实现上述功能，我的基本思路是在窗体上建立4个控件数组，第一个控件数组是标准型，实现简单的四则运算；第二个控件数组是科学型，用来进行正弦余弦、正切余切、正割余割、反正弦反余弦、对数和n！等函数功能；第三个控件数组为程序员，实现进制转换；另外一个按钮实现单位转换。
2、设计的将要达到的目标实现加、减、乘、除、倒数、乘方、正玄、余玄、正切、In、n!函数、进制、弧度转换等运算功能，并带有存储器、统计框等，基本实现Windows自带计算器的所有功能。
3、总体设计结构与功能（1）总体设计结构介绍（绘制：结构流程图）结构流程图如下：（2）各功能模块运行界面的功能、算法和操作步骤VB程序算法如下：4、设计结果分析（运行结果展示、正确性分析）经调试，程序运行基本正确。
毕业设计(论文)-基于vb实用计算器的设计[管理资料]
![毕业设计(论文)-基于vb实用计算器的设计[管理资料]](https://img.taocdn.com/s3/m/7e65480e910ef12d2bf9e7dd.png)
基于VB实用计算器的设计Design of practical Calculator base on VB作者姓名：学科专业：电子设备技术学院(系部)：机电工程系指导教师：2010年12月➢摘要随着科学技术的不断提高,计算机科学日渐成熟 ,它已进入人类社会的各个领域并发挥着越来越重要的作用。
计算器软件系统应该能够为用户提供丰富的手段。
使用计算器运算,、价格便宜、可保存信息等。
这些优点能够极大地提高效率,也是国家的科学化、信息化管理,与世界接轨的重要条件。
本文着重分析计算器的运算法则与代码的关系以及控件数组的创建和使用技巧，并在Microsoft公司出品的一个面向对象的可视化开发工具Visual Basic上，采用VB语言及窗体界面的设计方法，界面设计直接在屏幕上显示出窗口、文本框、按钮等区别类型对象并为每个对象设置属性。
实现了基于Visual Basic ，可视化界面给操作带来很大的方便。
关键词：Visual Basic；计算器；对象；代码➢AbstractWith the continuous improvement of science and technology, computer science increasingly mature, it has access to all areas of human society,and play an increasingly important role.Calculator software system should be able to provide users with a rich means. Use a calculator for mathematical calculations, with an unmatched by other advantages. For example, to find convenient, cheap and save information. These advantages can greatly improve efficiency, is also the country's scientific, information management, an important condition for integration with the world.This article focuses on analysis of algorithms and code calculator relationship and control the creation and use of an array of skills and Microsoft companies produce go in an object-oriented visual development tools, Visual Basic, using the VB language and interface design of form methods, interface design directly on the screen shown window, text boxes, buttons, etc. for each different type of object and object to set properties. Achieved based on Visual Basic software, running on the control design method to design a simple calculator, visual interface to the operator great convenience.Keywords：Visual Basic, Calculator, Object, Code目录摘要 (1)Abstract (2)第一章绪论 (4) (4) (4)系统设计的总体思路 (4)总体方案的设计 (4)第二章VB设计系统 (5)Visual Basic 语言基础 (6)Visual Basic (7)第三章实用计算器的设计 (10) (10) (13) (14)调试运行 (21)保存工程及生成可执行文件 (22)第四章总结 (25)参考文献 (26)致谢 (27)➢第一章绪论✧设计的功能Visual Basic 公司推出的当今最优秀、最流行的可视化快速软件开发工具之一。
用VB做简易计算器
《VB》课内实验报告学生姓名:及学号：学院:班级: 数学101课程名称：VB实验题目:控件数组的应用指导教师姓名及职称：2012年03月28日目录一、实验目的 (1)二、实验内容 (1)三、实验要点及说明 (1)四、实现方法 (1)五、实验结果 (2)六、源程序清单 (2)七、思考及总结 (4)一、实验目的1．掌握动态数组与静态数组的使用方法。
2．掌握控件数组的添加、删除以及使用方法。
3．掌握If语句、Select Case语句以及循环语句的使用。
4．掌握控件数组中索引号（Index）的作用。
二、实验内容1．制作计算器，完成十进制的加减乘除运算。
2．随机产生15个不重复的A-Z（包括A，Z）的大写字母，存放在字符数组中。
三、实验要点及说明1．利用数组控件完成计算器的制作。
（1）设计界面及设置属性界面设计中的显示部分要求用标签实现；运算符、数字分别使用控件数组实现；（2）编写代码图3-1 设计界面程序代码的任务是单击数字按钮和运算符按钮实现十进制的常规运算，同时要求做到实现正负号的转变、结果的标准输出以及除法中除数的检查等功能。
2．界面设计部分要求能够体现出字符数组中的内容，且实现随机不重复显示的功能，具体参数不做要求。
四、实现方法运行环境：Visual Basic运行开发环境；1．VB6.0窗体的属性设置运用复制的方法建立两个建立控件数组，编写代码。
2. 设置窗体的属性，添加一个文本框MultiLine属性设置成True，编写代码。
五、实验结果1. 能够完成十进制的加减乘除运算，可以判断被除数是否为零，如果为零，弹出对话框提示错误。
2.单击窗体随机出现15个不同的字母。
六、源程序清单1、源程序：Option Explicit ‘对所有变量进行显式声明Dim Num1 As Single, Num2 As Single ‘声明Num1，Num2为单精度浮点型变量Dim Flag As Boolean ‘声明Flag为布尔变量Dim Cul As Integer ‘声明Cul为整型变量Private Sub Command1_Click(Index As Integer) ‘Command1的单击事件Num1 = Val(Text1.Text) ‘Text1中的值赋给Num1Flag = True ‘Flag为真Cul = IndexEnd SubPrivate Sub _Click() ‘Command4的单击事件If InStr(Text1.Text, ".") = 0 And Text1.Text <> "" Then ‘如果Text1中没Text1.Text = Text1.Text + "." 有"."并且不为空，就在Text1中加一个"."End IfEnd SubPrivate Sub Command2_Click(Index As Integer)If Flag Then Text1.Text = "": Flag = False ‘如果Flag为真则Text1赋为空Text1.Text = Text1.Text + Command2(Index).Caption ‘如果为假Text1加End Sub Command2(Index) Private Sub Command5_Click() ‘Command5的单击事件的单击事件Text1.Text = "" ‘清空Text1,Num1, Num2的值Num1 = 0Num2 = 0End SubPrivate Sub Command6_Click() ‘Command6的单击事件Dim result As Single ‘声明result为单精度浮点型变量Num2 = Val(Text1.Text) ‘Text1中的值赋给Num2Flag = True ‘Flag b变为真Select Case Cul ‘Select循环Case 0: result = Num1 + Num2Case 1: result = Num1 - Num2Case 2: result = Num1 * Num2Case 3:If Num2 <> 0 Then ‘若分母为零提示result = Num1 / Num2ElseMsgBox "出错！被0除！"End IfEnd SelectIf result \ 1 <> result Then ‘如果result \ 1不等于result那么在result前Text1.Text = Format(result, "0.#") 加”0.”赋给Text1.TextElseText1.Text = Str(result) ‘否则直接将result转化成字符串赋给Text1.TextEnd IfEnd SubPrivate Sub Command3_Click() ‘Command3的单击事件If Text1.Text <> "" Then ‘如果Text1.Text不是空的If InStr( Text1.Text, "-") = 0 Then ‘Text1.Text中不包含"-"Text1.Text = "-" + Text1.Text ‘把"-" Text1.Text连接后赋给Text1.Text ElseText1.Text = Right(Text1.Text, Len(Text1.Text) - 1)End If ‘取Text1.Text中长度减1的字符赋给Text1.Text End IfEnd Sub2、源程序Private Sub Form_Click() ‘Form的单击事件Dim s(1 To 15) As String * 1, c As String * 1 ‘声明s,c为定长字符串Dim Found As Boolean ‘声明Found为布尔变量s(1) = chr(Int(Rnd * 26 + 65)) ‘将一随机字符赋给s(1)n = 2Do While n <= 15 ‘循环条件n<=15c = chr(Int(Rnd * 26 + 65)) ‘将一随机字符赋给cFound = FalseFor j = 1 To n – 1 ‘For循环If s(j) = c Then Found = TrueNext jIf Not Found Then ‘Found为假，进行下两行语句s(n) = cn = n + 1End IfLoopFor i = 1 To 15 ‘循环输出s(i)到Text1.Text中Text1.Text = Text1.Text & s(i)Next iEnd Sub七、思考及总结。
基于Visual-Basic的编程实现一个计算器
第1章绪论1.1课题简介1.1.1课程设计题目基于Visual Basic的计算器的制作1.1.2课题要求基于Visual Basic的编程实现一个计算器软件，要求计算器能够实现：加法、减法、乘法、除法、乘方、立方、正弦、余弦、正切、余切、开平方等功能。
而且还要实现计算器界面有一个与系统时间同步的时钟。
要求界面简单美观，操作简单方便，类似于我们一直在用的计算器。
1.1.3课题工作内容1、掌握一些程序设计算法的分析，学会使用控件数组；2、掌握VB程序的编写方法，学会VB函数的调用；3、学会应用软件界面的设计和界面的布局、美化；4、学会编写与系统时间同步的时钟；5、撰写课程设计报告。
1.2系统分析1.2.1开发背景计算机已经成为我们学习和工作的得力助手：今天，计算机的价格已经十分低廉，性能却有了长足的进步。
它已经被应用于许多领域，计算机之所以如此流行的原因主要有以下几个方面：1，计算机可以代替人工进行许多繁杂的劳动；2，计算机可以节省许多资源；3，计算机可以大大的提高人们的工作效率；4，计算机可以使敏感文档更加安全等。
第2章开发环境及实现技术2.1开发环境硬件系统：奔腾166MX以上CPU、32M以上内存、1G以上硬盘、光驱。
软件系统：Windows 98/ME/2000/XP、Visual Basic 6.0中文版。
2.2开发工具简介2.2.1总体介绍微软公司的Visual Basic 6.0是Windows应用程序开发工具，是目前最为广泛的、易学易用的面向对象的开发工具。
Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。
故而，实现本系统VB 是一个相对较好的选择。
Access2000 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。
Access 的优点在于它能使用数据表示图或自定义窗体收集信息。
VB课程设计-计算器程序设计
课程设计报告VB课程设计课程设计题目：计算器程序设计姓名：学号：*专业: 电子信息工程班级: :指导教师:摘要VisualBasic 6.0 是一款可视化的，面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发windows 环境下的种类应用程序。
它简单易学，效率高，且功能强大，可以与Windows专业开发工具相媲美。
在VisualBasic环境下，利用事出有因件驱动的编程机制，新颖易用的可视化工具，使用Windows内部的广泛应用程序接口(API)函数，运用动态链接库（DLL），对象的链接与嵌入（OLE）,开放式数据连接（ODBC）等技术，可以高效，可以快速地开发Windows环境不功能强大，图形界面丰富的程序。
为了适应信息化时代的需求，各高校对大多数专业都开设了一定的计算机语言课程，有的讲授VisualBasic语言。
VisualBasic以其语法简单，可视化设计，功能强大，为许多学校计算机语言课程的首选语言。
目前国内各出版了大量的VisualBasic语言教程，它们都具有同样的特点：介绍语言的语法等基本知识，再辅助一些简单的示例。
学生通过学习，可能能够考一个不错的成绩，但所掌握的仍然是一些支离破碎的知识，不能将所有的知识融会贯通，遇到具体的程序设计，还是无从下手。
这次我要做的是计算器，通过这样程序设计，我们可以学到好多关于VB语言的使方法，熟悉VisualBasic 6.0的运行环境，快速掌握VB语言！小小的计算器是我们学VB初级语言的最好课程。
目录一功能描述 (4)1．功能 (4)2. 实验目的 (4)二概要设计 (6)1.界面设计 (6)2.代码编辑 (8)三详细设计 (14)四心得体会 (16)五参考文献 (18)一功能描述1．功能可以简单计算加减乘除四则运算，可以简单计算三角函数运算的简易计算器。
2.实验目的这次我要做的是计算器，通过这样程序设计，我们可以学到好多关于VB语言的使方法，熟悉VisualBasic 6.0的运行环境，快速掌握VB语言！小小的计算器是我们学VB初级语言的最好课程。
VB简易计算器范文
VB简易计算器范文下面是一个简易的VB计算器的示例程序，该程序可以实现基本的四则运算功能。
其中，使用了VB的GUI控件来实现计算器的界面，并且通过事件处理来实现按钮的功能。
```vbPublic Class CalculatorFormDim operand1 As Double ' 第一个操作数Dim operand2 As Double ' 第二个操作数Dim operatorType As String ' 操作符类型Private Sub Numbers_Click(sender As Object, e As EventArgs) Handles btn0.Click, btn1.Click, btn2.Click, btn3.Click,btn4.Click, btn5.Click, btn6.Click, btn7.Click, btn8.Click,btn9.ClickDim button As Button = sendertxtDisplay.Text &= button.Text ' 将按钮文本添加到显示框中End SubPrivate Sub Operators_Click(sender As Object, e As EventArgs) Handles btnPlus.Click, btnMinus.Click, btnMultiply.Click, btnDivide.ClickDim button As Button = senderoperatorType = button.Text ' 设置操作符类型operand1 = CDbl(txtDisplay.Text) ' 将显示框的内容转换为双精度浮点数作为第一个操作数txtDisplay.Clear( ' 清空显示框End SubPrivate Sub btnEquals_Click(sender As Object, e As EventArgs) Handles btnEquals.Clickoperand2 = CDbl(txtDisplay.Text) ' 将显示框的内容转换为双精度浮点数作为第二个操作数Dim result As Double ' 存储计算结果Select Case operatorTypeCase "+"result = operand1 + operand2Case "-"result = operand1 - operand2Case "*"result = operand1 * operand2Case "/"result = operand1 / operand2End SelecttxtDisplay.Text = result.ToString( ' 将计算结果显示在显示框中End SubPrivate Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.ClicktxtDisplay.Clear( ' 清空显示框End SubEnd Class```上述代码中，我们首先定义了两个操作数和一个操作符变量。
VB计算器课程设计报告
Visual Basic课程设计报告题目计算器的设计与实现专业班级学号姓名指导教师2011年6月29 日计算器的设计与实现摘要：通过学习VISUAL BASIC语言应用VB开发工具,利用响应鼠标事件即可制作简易计算器，响应鼠标事件即：当用户想要进行运算时,可以用鼠标直接点击界面的数字键、运算符以及各功能的按钮（清除,退出,鼠标位置）。
具体操作如下：用鼠标按动界面上第一个数字,然后按动运算符,再按动界面上的第二个数字,最后按等于即可运算出结果。
1.界面设计：应用VISUAL BASIC开发工具，根据WINDOWS计算器界面模型，修改后制作计算器界面。
新建一个窗体，添加一个文本框用于显示运算数字和结果，添加若干按钮包括（数字0—9，+，-，*，/，=，CE, C, Back，%，1/x , sqrt）。
当单击数字按钮时输入运算数时，单击运算符按钮，再单击“=”按钮，则再文本框中显示计算结果。
具体如下图所示：图1计算器界面设计示意图2.程序设计：（1）新建框体和按键模型后定义变量：输入的操作数，Dim Op1, Op2。
小数点是否仍然存在，Dim DecimalFlag As Integer。
操作数个数，Dim NumOps As Integer。
指示上一次按键事件的类型，Dim LastInput。
指示未完成的操作，Dim OpFlag。
定义文本框输出，Dim TempReadout。
窗体的初始化过程，设置所有变量为其初始值：DecimalFlag = FalseNumOps = 0LastInput = "NONE"OpFlag = " "Readout = Format(0, "0.")'Decimal.Caption = Format(0, ".")。
（2）输入数字键(0-9)的Click事件过程，向显示中的数追加新数：调用format 函数强制定义始终在第一位添加一个”.”，并在显示数中追加新数，如果显示数小于零，则添加负号。
VB-计算器-课程设计
VB课程设计(论文)任务书电子版：1503284681扣扣机电学12物流专业 2 班一、课程设计(论文)题目：计算器二、课程设计(论文)工作自2013 年 06 月17日起至 2013 年 06 月 23 日止三、课程设计(论文) 地点: 计算中心 8#601四、课程设计(论文)内容要求：1. 本课程设计的目的（1）进一步巩固和加深对“VB程序设计”课程基本知识的理解和掌握，了解VB语言在项目开发中的应用。
（2）学习程序设计开发的一般方法，了解和掌握项目开发过程及方式，培养正确的设计思想和分析问题、解决问题的能力，特别是项目设计能力。
（3）通过对标准化、规范化文档的掌握并查阅有关技术资料等，培养项目设计开发能力。
2. 课程设计的任务及要求(1) 基本要求：1)对系统功能进行需求分析；2)使用Visual basic开发环境进行程序开发；3)提出系统的设计方案；4)编写源程序代码并进行调试。
(2) 创新要求在基本要求达到后，可进行创新设计。
(3) 课程设计报告撰写及装订要求课程设计报告的撰写要求表述简明，图表准确。
报告按如下内容和顺序用A4纸进行打印并装订成册。
1)封面采用统一的课程设计封面，并按要求填写好封面要求的个人信息和选题。
2)设计任务书3)评阅书4)目录5)正文6)主要参考文献(4) 课程设计评分标准：1)达到课程设计的目的与要求，程序的可读性较好，并调试正确，60分；2)能正确回答设计的中老师所提问题，可增加10分；3)课程设计报告书写规范整齐，可增加10分；4)心得体会认真总结，可增加10分；5)程序有创新性，可增加10分；成绩评定实行优秀、良好、中等、及格和不及格五个等级。
不及格者需重做。
(5) 课程设计进度安排：1)准备阶段（6学时）：选择设计题目、了解设计目的要求、查阅相关资料。
2)程序模块设计分析阶段（8学时）：程序总体设计、详细设计。
3)代码编写调试阶段（10学时）：程序模块代码编写、调试、测试。
基于VB编程语言完成计算器的设计实现
在 人类开 始学 会交易 的 时候 ，计 算也就 产生 了。计算器的发明是跨时代的 ，它 比算盘 计算速度要快很多倍 、计算的结果也更精确 ， 操作 的方法要更方便 、更简单易学 ，计算的范 围更广 。而 随着计算机 的普及越来越多人在使 用计算机 ，电子计算器功能也 以软件的形式进 入计算机世 界。本次设 计就是使用 ＶＢ语言程 序设计的～个简单计算器 ，能实现加、减 、乘、
｛
ｉ ｆ （ ｓ ｅ ｑ ＝ ＝” ｅ ｑ ” 、 ｛
ｌ ａ ｃ ｈ ａ ｒ：’ ’ ＋” ： ｔ Ｂ１ ． Ｔ ｅ ｘ ｔ： ｒ ｅ ｓ ｕ ｌ ｔ ．
统 的设计思想和设计步骤 。
【
值设置为 Ｔ Ｂ １ ， 调整文体框的相应高度和宽度 ， 及相对位置 ，文体框界面的制作就完成了。接 着往 Ｆ ＯＲ Ｍ１中连续放人 十七个按 扭，并调 整
计算机技术应用 ・ ｔ ｈ ｅ Ａ ｐ ｐ ｌ ｉ ｃ ａ ｔ ｉ ｏ ｎ ｏ ｆ Ｃ ｏ ｍｐ ｕ ｔ ｅ ｒ Ｔ ｅ ｃ ｈ ｎ ｏ ｌ ｏ ｇ ｙ
基于 Ｖ Ｂ编程语言 完成计算器的设计实现
文／ 姚 蕾
、
首 先 打开 Ｍｉ ｃ ｒ ｏ ｓ ｏ ｆ ｔ Ｖ ｉ ｓ ｕ ａ ｌ Ｓ ｔ ｕ ｄ ｉ ｏ ２ ０ ０ ５的 编译环境 中新建一个窗体 ，并将选 项卡 中文本 框按钮 放入 Ｆ ＯＲ Ｉ Ｖ ｌ ｌ中，用于显示数据 。接 下 来把文本 框 的 ｔ ｅ ｘ ｔ 的属性值 清空 ，ｎ ａ ｍｅ 属性
【 关键词】窗体 运 算符 的定 义 计算器
位置 ，左边部分设置为十个数字键 ，右边部分 Ｔ ｏ Ｓ ｔ ｒ ｉ ｎ ｇ （ １ ＋” ＋ ” ：
为运算符 （ 加、 臧、 乘、 除、 等于 ） 和小数点 （ ． ）， 而位 于文本框和另外 十六个按扭之间的那个按
论文基于LabVIEW计算器的设计
基于LabVIEW计算器的设计摘要本次毕业设计是基于LabVIEW所设计的计算器，目的是为了实现两个数之间的加、减、乘、除四则运算及开方、求倒、取负运算，达到简易计算器的功能。
编程的思想是完成一种运算的完整过程是：输入第一个数，存储并显示输入要进行运算的类型并存储输入第二个数，存储并显示按“=”或则按其它运算符号“+、－、*、/”进行连续的运算时显示运算结果。
关键词：LabVIEW，计算器，四则运算，函数功能，Based on the Design of LabVIEW CalculatorABSTRACTThis experiment is to realize the sum of two Numbers, subtract, multiply, divide and root, then pour, simple operation, to bear the calculator. Programming is a complete thoughts of the operation process is complete, the number, storage and input to the input operations and storage input number of the second type, storage and press "=" or by other operations symbol "+, -, *, /" continuous operation result shows.KEY WORDS: LabVIEW，Calculator，Arithmetic，Function，目录前言 (1)第1章LabVIEW (2)1.1 LabVIEW简介 (2)1.2主要特点 (3)1.3实际应用 (3)第2章程序流程图 (5)第3章实现过程 (6)3.1 键入感应 (6)3.2 数字的读入 (7)3.3 多零问题 (7)3.4 小数点问题 (8)3.5非小数前面出现0开头的问题 (9)3.6操作类型 (10)3.7常用键 (11)3.7.1 等号键 (11)3.7.2 清零键 (11)3.7.3 退出键 (11)3.7.4 开方键 (12)3.7.5 倒数键 (12)3.7.6 反号键 (12)3.7.7 backspace键 (12)3.8去掉小数末尾为0的功能 (13)3.9 美化面板 (13)第4章寄存器及布尔变量的作用解释 (15)结论 (16)谢辞 (17)参考文献 (18)前言创建3个字符串显示控件num1，num2，num3，其中：第一个输入数据存储在num1中，第二个输入数据存入num2中，将其赋给num3，并使num2为空，以便输入的数据存入num2，所有的运算是在num1和num3间进行，运算结果都赋给result，同时赋给num1，用于下一次的运算。
毕业论文：基于visualc++的数字键盘式简单计算器课程设计(终稿)-精品
大作业课程名称：软件技术基础题目：简单计算器院（系）：信息与控制工程学院专业班级：电子信息工程0801 姓名：李芃博学号：080640116指导教师：周方晓2011 年7 月 6 日西安建筑科技大学大作业设计（论文）任务书专业班级：电子0801 学生姓名：李芃博指导教师（签名）：一、大作业题目简单计算器二、本次大作业应达到的目的具有简单计算功能的计算器，输入被计算的数据及运算操作，输出正确计算结果。
三、本次大作业任务的主要内容和要求（包括原始数据、技术参数、设计要求等）系统的主要功能有：①窗口界面的计算器；②通过按钮键输入数据；③能够完成加、减、乘、除、求倒数、开方等一般运算；④输出结果具有一定精度四、应收集的资料及主要参考文献：[1] 宋金珂编著, VC++程序设计基础教程,清华大学出版社[2] 谭浩强.《c语言程序设计》.清华大学出版社[3] 辛长安编著.VC++编程技术与难点剖析.清华大学出版社[4] 陈恭和编著.数据库Access 2002应用教程.清华大学出版社[5] 王瑞编著.Visual C++数据库系统开发完全手册.人民邮电出版社[6] 王春才编著.Visual Basic数据库系统开发完全手册.人民邮电出版社[7] 高春艳.Visual Basic数据库系统开发案例精选.人民邮电出版社[8] 李晓黎编著.Visual Basic +SQL Server数据库应用系统开发与实例. 人民邮电出版社[9] 启明工作室编著.Visual Basic+Access数据库应用系统开发与实例. 人民邮电出版社[10] 启明工作室编著.Visual C++ + SQL Server数据库应用系统开发与实例. 人民邮电出版社五、审核批准意见教研室主任（签字）目录一、需求分析1.1开发背景 (4)1.2项目目标 (4)1.3运行环境 (4)1.4项目任务书 (5)二、技术路线2.1制作界面 (5)2.2总体方案 (5)2.3详细设计 (8)三、编程实现3.1核心代码 (19)3.2运行结果 (29)四、测试分析 (30)五、个人总结 (34)六、参考文献 (35)简单计算器1 需求分析1.1开发背景软件不同于硬件的最主要特点就在于它的不确定性,软件产品很难满足用户的需要,所以就需要不断的进行更新.随着科技的发展,人们在很多地方都要用到计算器来进行工程和商业上的运算,计算器在日常生活中的重要地位已经举足轻重.计算器是日常生活中十分便捷有效的工具，能实现加、减、乘、除、开方、求倒数等简单运算的工具。
基于LabVIEW的科学计算器毕业设计
基于LabVIEW的科学计算器毕业设计目录内容摘要: (1)关键词： (1)Abstract: (1)1.绪论 (2)1.1论文的研究背景 (2)1.2仪器的发展背景 (2)1.3虚拟仪器的发展及未来前景 (3)2 虚拟仪器及LabVIEW的介绍 (5)2.1虚拟仪器的介绍 (5)2.2虚拟仪虚拟仪器的主要特点 (5)2.3虚拟仪器开发平台 LabVIEW的介绍 (6)2.3.1 LabVIEW的界面介绍 (7)2.3.2 虚拟仪器开发平台LabVIEW8.5的程序构成与模块简介 (7)2.4 LabVIEW的特点与发展 (10)3计算器的介绍 (12)3.1 计算器的起源 (12)3.2计算器的功能类型 (12)4.总体设计 (14)4.1 设计思路与流程图 (14)4.2键入感应 (15)4.3 数字的读入 (16)4.3.1 数字1~9的键入 (16)4.3.2数字0的键入 (17)4.4操作类型 (18)4.5 常用键的设置 (18)4.5.1小数点（.） (18)4.5.2等号键 (19)4.5.3清零键C (21)4.5.4退出键CE (22)4.5.5开方键（sqrt） (22)4.5.6倒数键(1/x) (23)4.5.7反号键（+/-） (24)4.5.8 backspace键 (24)4.6簇中的各元素在条件结构中代表的序号 (25)4.7去掉小数末尾的0的功能 (25)4.8 框图结构 (26)4.9 计算器的前面板结构 (27)5.总结 (28)参考文献 (29)致谢 (30)内容摘要:本次毕业论文是基于LabVIEW的科学计算器，主要是使用LabVIEW虚拟仪器开发环境设计出一款简易计算器，使它达到两个数之间的四则运算和求倒数、求开方、取负值等一些基本简单的运算。
并对这些运算的实现过程中出现的一些问题使用LabVIEW程序进行解决。
编程的主体思想是对一个运算过程的完整表述：首先输入第一个数据，存储并显示；再是对运算类型进行输入并存储；然后输入第二个数据，存储并显示；最后按“=”得出结果或者是按其他运算符号继续进行连续的运算。
基于VB的计算器的设计与实现
摘要我用VB制作这个程序的简单计算器，它包括一个标准的计算器和一个科学计算器。
它可以实现简单的加减乘除四则运算，数字的平方、平方根，正弦、余弦、正切，倒数、指数函数、对数函数，角度、弧度、梯度的转换，以及各进制的相互转换。
而且它的功能还有退格，清除当前数据，清除所有数据，复制数据，粘贴数据。
在这个计算器的程序中，我用到了单行选择语句If …Then …Else…,块语句if…then…end if,If语句的嵌套，多条件选择语句Select Case,而且还用到了按钮、文本框、框架、单选按钮控件，菜单的设计。
在此报告中我重点叙述了计算机的各个功能及用法。
特别是进制间的转换和数字与运算符之间的联系。
虽然描述的不太完整，但我会尽力使用系统结构图，划分多个模块，让大家明白我设计的运算器的功能的。
目录第一章、程序概述......................... - 4 -1.1、创作目的 ......................................................................... - 4 -1.2、基本功能 ......................................................................... - 4 -第二章、总体设计......................... - 5 -2.1、程序轮廓图 .................................................................... - 5 -第三章、程序代码......................... - 6 -3.1、计算器界面 ..................................................................... - 6 -3.1.1、标准型计算器： .................................................. - 6 -3.1.2、科学型计算器： .................................................. - 7 -3.2、标准计算器代码 ............................................................. - 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.8、各进制转换 ........................................................ - 18 -3.3.9、退格、清除、清空 ............................................ - 27 -3.3.10、复制、粘贴 ...................................................... - 28 -3.3.11、两窗体的切换 .................................................. - 29 -第四章、总结............................ - 30 -4.1、对学习者知识的要求： ............................................... - 30 -4.2、学习程序设计基本要求： ........................................... - 30 -4.3、程序设计方法概述 ....................................................... - 31 -4.4、如何学好VB ................................................................. - 31 -4.5、不足之处 ....................................................................... - 32 -参考文献................................ - 32 -第一章、程序概述1.1、创作目的本程序的目标是建立一套可以计算数的平方，平方根，倒数，正弦，余弦，正切，指数函数，对数函数，角度、弧度、梯度相互转换和数字的进制转换的计算器系统，系统可以帮助我们更快的计算，更好的学习，更好的节省时间。
VB计算器程序设计
VB课程设计(论文)任务书土木建筑学院环境工程专业 1 班一、课程设计(论文)题目：计算器二、课程设计(论文)工作自2013 年 6 月17日起至 2013 年6 月 23 日止三、课程设计(论文) 地点: 计算中心四、课程设计(论文)内容要求：1. 本课程设计的目的（1）进一步巩固和加深对“VB程序设计”课程基本知识的理解和掌握，了解VB语言在项目开发中的应用。
（2）学习程序设计开发的一般方法，了解和掌握项目开发过程及方式，培养正确的设计思想和分析问题、解决问题的能力，特别是项目设计能力。
（3）通过对标准化、规范化文档的掌握并查阅有关技术资料等，培养项目设计开发能力。
2. 课程设计的任务及要求(1) 基本要求：（1）对系统功能进行需求分析；（2）使用Visual basic开发环境进行程序开发；（3）提出系统的设计方案；（4）编写源程序代码并进行调试。
(2) 创新要求在基本要求达到后，可进行创新设计。
(3) 课程设计报告撰写及装订要求课程设计报告的撰写要求表述简明，图表准确。
报告按如下内容和顺序用A4纸进行打印并装订成册。
（1）封面采用统一的课程设计封面，并按要求填写好封面要求的个人信息和选题。
（2）设计任务书（3）评阅书（4）目录（5）正文（6）主要参考文献(4) 课程设计评分标准：（1）达到课程设计的目的与要求，程序的可读性较好，并调试正确，60分；（2）能正确回答设计的中老师所提问题，可增加10分；（3）课程设计报告书写规范整齐，可增加10分；（4）心得体会认真总结，可增加10分；（5）程序有创新性，可增加10分；成绩评定实行优秀、良好、中等、及格和不及格五个等级。
不及格者需重做。
(5) 课程设计进度安排（1）准备阶段（6学时）：选择设计题目、了解设计目的要求、查阅相关资料。
（2）程序模块设计分析阶段（8学时）：程序总体设计、详细设计。
(3) 代码编写调试阶段（10学时）：程序模块代码编写、调试、测试。
vb计算器 实验报告
vb计算器实验报告VB计算器实验报告引言：计算器是人们日常生活中常用的工具之一，无论是进行简单的数学运算还是复杂的科学计算，计算器都能提供帮助。
本实验旨在使用VB（Visual Basic）编程语言设计和实现一个功能完善的计算器，通过该实验，我们可以深入了解计算器的原理和实现方法，并掌握VB编程的基本技巧。
一、实验目的本实验的主要目的是设计和实现一个VB计算器，具体包括以下几个方面：1. 学习VB编程语言的基本语法和数据类型；2. 掌握VB窗体的设计和布局；3. 实现基本的计算功能，包括加减乘除、取余、开方等；4. 实现科学计算功能，包括三角函数、指数函数、对数函数等；5. 实现计算器的界面美化和用户友好性。
二、实验原理1. VB编程语言VB是一种事件驱动的编程语言，它提供了丰富的控件和库函数，方便开发者进行图形界面的设计和实现。
在本实验中，我们将使用VB编程语言来实现计算器的功能。
2. VB窗体设计VB窗体是计算器的主界面，通过在窗体上添加各种控件，如按钮、文本框等，来实现计算器的各种功能。
通过设置控件的属性和事件，可以实现用户与计算器的交互。
3. 计算器的基本功能实现计算器的基本功能包括加减乘除、取余、开方等，这些功能可以通过VB编程语言中提供的数学函数和运算符来实现。
通过捕捉用户输入的数据和操作符，计算器可以进行相应的计算并将结果显示在屏幕上。
4. 科学计算功能的实现科学计算功能是计算器的扩展功能，包括三角函数、指数函数、对数函数等。
这些函数可以通过VB编程语言中提供的数学库函数来实现，通过捕捉用户的选择和输入，计算器可以根据用户的需求进行相应的科学计算。
5. 界面美化和用户友好性为了提高计算器的用户体验，我们需要对计算器的界面进行美化和优化。
通过设置控件的样式、颜色和布局，可以使计算器界面更加美观和易用。
三、实验步骤1. 创建VB工程，并添加一个窗体；2. 在窗体上添加各种控件，如按钮、文本框等，用于实现计算器的各种功能；3. 设置控件的属性和事件，实现计算器的基本功能，包括加减乘除、取余、开方等；4. 添加科学计算功能，如三角函数、指数函数、对数函数等，实现科学计算器的功能；5. 美化计算器界面，通过设置控件的样式、颜色和布局，提高用户体验；6. 进行测试和调试，确保计算器的功能正常。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
摘要我用VB制作这个程序的简单计算器，它包括一个标准的计算器和一个科学计算器。
它可以实现简单的加减乘除四则运算，数字的平方、平方根，正弦、余弦、正切，倒数、指数函数、对数函数，角度、弧度、梯度的转换，以及各进制的相互转换。
而且它的功能还有退格，清除当前数据，清除所有数据，复制数据，粘贴数据。
在这个计算器的程序中，我用到了单行选择语句If …Then …Else…,块语句if…then…end if,If语句的嵌套，多条件选择语句Select Case,而且还用到了按钮、文本框、框架、单选按钮控件，菜单的设计。
在此报告中我重点叙述了计算机的各个功能及用法。
特别是进制间的转换和数字与运算符之间的联系。
虽然描述的不太完整，但我会尽力使用系统结构图，划分多个模块，让大家明白我设计的运算器的功能的。
目录第一章、程序概述......................... - 4 -1.1、创作目的 ......................................................................... - 4 -1.2、基本功能 ......................................................................... - 4 -第二章、总体设计......................... - 5 -2.1、程序轮廓图 .................................................................... - 5 -第三章、程序代码......................... - 6 -3.1、计算器界面 ..................................................................... - 6 -3.1.1、标准型计算器： .................................................. - 6 -3.1.2、科学型计算器： .................................................. - 7 -3.2、标准计算器代码 ............................................................. - 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.8、各进制转换 ........................................................ - 18 -3.3.9、退格、清除、清空 ............................................ - 27 -3.3.10、复制、粘贴 ...................................................... - 28 -3.3.11、两窗体的切换 .................................................. - 29 -第四章、总结............................ - 30 -4.1、对学习者知识的要求： ............................................... - 30 -4.2、学习程序设计基本要求： ........................................... - 30 -4.3、程序设计方法概述 ....................................................... - 31 -4.4、如何学好VB ................................................................. - 31 -4.5、不足之处 ....................................................................... - 32 -参考文献................................ - 33 -第一章、程序概述1.1、创作目的本程序的目标是建立一套可以计算数的平方，平方根，倒数，正弦，余弦，正切，指数函数，对数函数，角度、弧度、梯度相互转换和数字的进制转换的计算器系统，系统可以帮助我们更快的计算，更好的学习，更好的节省时间。
还能避免出现一些不必要的计算错误。
1.2、基本功能1)能够完成整型和实型常数的四则运算。
2)能够进行如下函数的求值运算，包括sin, cos,tan, exp,log, sqr, 1/x，及和园周率π。
3)能够实现角度、弧度、梯度的相互转换。
4)能够实现的进制的相互转换。
5)输出时的格式：结果为整数时不显示小数点，结果为1以下小数时要显示前导0。
6)分门别类采用控件数组，以减少事件处理的复杂程度，使程序简洁高效。
7)能够实现退格键、清除、清空功能。
8)出错处理:操作数如果不符合数学上的定义，应该给出错误信息。
例：0做除数，负数或0做真数等情况第二章、总体设计2.1、程序轮廓图图一第三章、程序代码3.1、计算器界面3.1.1、标准型计算器：图二3.1.2、科学型计算器：图三3.2、标准计算器代码3.2.1、变量的定义及初始化Dim dflag As IntegerDim i As IntegerDim opnre As IntegerDim prev As DoubleDim oflag As IntegerDim ind As IntegerDim X As DoubleDim Y As DoublePrivate Sub Form_Load()prev = 0oflag = 0ind = 0opnre = 0Clipboard.Clearang = 3.14 / 180End Sub3.2.2、简单的运算Private Sub Command1_Click(Index As Integer) If ind = 4 Thenprev = 0Text1.Text = " "ind = 0End Ifopnre = 0If oflag = 0 ThenText1.Text = " "End Ifoflag = 1If Command1(Index).Caption <> "." ThenIf Text1.Text <> " 0" ThenText1.Text = Text1.Text & Command1(Index).CaptionElseText1.Text = " " & Command1(Index).CaptionEnd IfElseIf dflag = 0 ThenText1.Text = Text1.Text & "."dflag = 1ElseMsgBox ("Error")End IfEnd IfEnd SubPrivate Sub Command2_Click(Index As Integer)If opnre = 0 Or Index = 4 ThenIf ind = 0 Thenprev = prev + Val(Text1.Text)ElseIf ind = 1 Thenprev = prev - Val(Text1.Text) ElseIf ind = 2 ThenIf Val(Text1.Text) = 0 ThenMsgBox ("SORRY DIVIDE ZERO") Exit SubElseprev = prev / Val(Text1.Text) End IfElseIf ind = 3 Thenprev = prev * Val(Text1.Text) End IfText1.Text = Str(prev)oflag = 0End Ifopnre = 1ind = Indexdflag = 0End Sub3.2.3、退格、清除、清空Private Sub Command3_Click()Dim length As Integerlength = Len(Text1.Text)If length = 1 ThenIf Text1.Text <> "0" ThenText1.Text = "0"End IfElseText1.Text = Left(Text1.Text, length - 1)End Ifflag = TrueEnd SubPrivate Sub Command4_Click()dflag = 0prev = 0oflag = 0ind = 0opnre = 0Text1.Text = " 0"End SubPrivate Sub Command5_Click()Text1.Text = " 0"End Sub3.2.4、复制、粘贴Private Sub fz_Click()Clipboard.ClearClipboard.SetText Text1.TextEnd SubPrivate Sub zt_Click()Text1.Text = ""Text1.Text = Clipboard.GetText() End Sub3.2.5、两窗体的切换Private Sub ck_Click()form1.HideForm2.ShowEnd SubPrivate Sub ckx_Click()Form2.Hideform1.ShowEnd Sub3.3、科学型计算器的代码3.3.1、变量的定义及初始化Dim dflag As IntegerDim i As IntegerDim opnre As IntegerDim prev As DoubleDim oflag As IntegerDim ind As IntegerDim X As DoubleDim Y As DoublePrivate Sub Form_Load()prev = 0oflag = 0ind = 0opnre = 0Clipboard.Clearang = 3.14 / 180End Sub3.3.2、简单的运算Private Sub Command1_Click(Index As Integer)If ind = 4 Thenprev = 0Text1.Text = " "ind = 0End Ifopnre = 0If oflag = 0 ThenText1.Text = " "End Ifoflag = 1If Command1(Index).Caption <> "." ThenIf Text1.Text <> " 0" ThenText1.Text = Text1.Text & Command1(Index).CaptionElseText1.Text = " " & Command1(Index).CaptionEnd IfElseIf dflag = 0 ThenText1.Text = Text1.Text & "."dflag = 1ElseMsgBox ("Error")End IfEnd IfEnd SubPrivate Sub Command2_Click(Index As Integer)If opnre = 0 Or Index = 4 ThenIf ind = 0 Thenprev = prev + Val(Text1.Text) ElseIf ind = 1 Thenprev = prev - Val(Text1.Text) ElseIf ind = 2 ThenIf Val(Text1.Text) = 0 ThenMsgBox ("SORRY DIVIDE ZERO") Exit SubElseprev = prev / Val(Text1.Text) End IfElseIf ind = 3 Thenprev = prev * Val(Text1.Text) End IfText1.Text = Str(prev)oflag = 0End Ifopnre = 1ind = Indexdflag = 0End Sub3.3.3、正弦、余弦、正切Private Sub Command5_Click()Text1.Text = Str(Sin(ang * Val(Text1.Text)))End SubPrivate Sub Command6_Click()Text1.Text = Str(Cos(ang * Val(Text1.Text)))End SubPrivate Sub Command7_Click()If (Cos(Val(Text1.Text))) <> 0 ThenText1.Text = Str(Sin(ang * Val(Text1.Text)) / Cos(ang * Val(Text1.Text)))ElseMsgBox ("该数无正切值 ")Text1.Text = "0"End IfEnd Sub3.3.4、平方、立方、多次方Private Sub Command8_Click()X = Val(Text1.Text)Text1.Text = X ^ 2End SubPrivate Sub Command9_Click()X = Val(Text1.Text)Text1.Text = X ^ 3End SubPrivate Sub Command10_Click()If (Text1.Text = "" Or prev = 0) ThenMsgBox ("不合法输入！！！")Text1.Text = "0"Elseprev = power(prev, Fix(Val(Text1.Text))) End IfEnd Sub3.3.5、指数函数、对数函数Private Sub Command11_Click()e = Val(Text1.Text)Text1.Text = Exp(e)End SubPrivate Sub Command12_Click()L = Val(Text1.Text)Text1.Text = Log(L)End Sub3.3.6、倒数、平方根Private Sub Command13_Click()X = Val(Text1.Text)If X = 0 ThenMsgBox ("除数不能为零！")ElseText1.Text = 1 / XEnd IfEnd SubPrivate Sub Command14_Click()If Text1.Text < 0 ThenMsgBox ("负数不能开方")Text1.Text = "0"ElseText1.Text = Str(Sqr(Val(Text1.Text))) End IfEnd Sub3.3.7、角度、弧度、梯度Private Sub Option5_Click(Index As Integer) Dim jd As Double, hu As Double, td As Double ju = Val(Text1.Text)Select Case IndexCase 0Text1.Text = juCase 1hu = 3.141592654 / 180 * juText1.Text = huCase 2td = 3.141592654 / 200Text1.Text = tdEnd Selectind = IndexEnd Sub3.3.8、各进制转换Private Sub Option1_Click(Index As Integer)Static rSelect Case IndexCase 0Dim w As IntegerFor w = 2 To 9Command1(w).Enabled = TrueNext wFor w = 0 To 5Command3(w).Enabled = TrueNext wIf r = 10 ThenText1.Text = trandec(Val(Text1.Text), 16) ElseIf r = 2 ThenText1.Text = Two16(Text1.Text)ElseIf r = 8 ThenText1.Text = OCT_to_HEX(Text1.Text)End Ifr = 16Case 1Dim X As IntegerFor X = 2 To 9Command1(X).Enabled = TrueNext XFor X = 0 To 5Command3(X).Enabled = FalseNext XText1.Text = Convert(Text1.Text, r)If r = 8 Then Text1.Text = trandec(Val(Text1.Text), 10)r = 10Case 2Dim Y As IntegerFor Y = 2 To 7Command1(Y).Enabled = TrueNext YCommand1(8).Enabled = FalseCommand1(9).Enabled = FalseFor Y = 0 To 5Command3(Y).Enabled = FalseNext YIf r = 10 ThenText1.Text = trandec(Val(Text1.Text), 8)ElseIf r = 16 ThenText1.Text = HEX_to_OCT(Text1.Text)ElseIf r = 2 ThenText1.Text = BIN_to_OCT(Text1.Text)End Ifr = 8Case 3Dim z As IntegerFor z = 2 To 9Command1(z).Enabled = FalseNext zFor z = 0 To 5Command3(z).Enabled = FalseNext zIf r = 10 ThenText1.Text = trandec(Val(Text1.Text), 2) End IfIf r = 16 ThenText1.Text = HEX_to_BIN(Text1.Text)ElseIf r = 8 ThenText1.Text = OCT_to_BIN(Text1.Text)End Ifr = 2End SelectY = NEnd SubFunction fact(num As Long) As LongIf (num < 0 Or num = 0) ThenMsgBox ("Error")fact = numElseIf (num > 12) ThenMsgBox ("指太大")fact = numElsere = 1While (num > 0)re = re * numnum = num - 1Wendfact = reEnd IfEnd IfEnd FunctionPublic Function trandec$(ByVal m%, ByVal r%)Dim strdtor$Dim iB%, mr%strdtor = ""Do While m <> 0mr = m Mod rm = m \ rIf mr >= 10 Thenstrdtor = Chr(mr - 10 + 65) & strdtorElsestrdtor = mr & strdtorEnd IfLooptrandec = strdtorEnd FunctionPublic Function Convert(ByVal S As String, ByVal N AsInteger) As DoubleDim r() As StringDim i As IntegerDim j As IntegerL = "0|1|2|3|4|5|6|7|8|9|A|B|C|D|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T |U|V|W|X|Y|Z"r = Split(L, "|")For i = 1 To Len(S)For j = 0 To UBound(r)If UCase(Mid(S, i, 1)) = r(j) ThenConvert = Convert * N + jEnd IfNext jNext iEnd FunctionPrivate Function Two16(ByVal X As String) As StringDo While Len(X) Mod 4 <> 0X = "0" + XLoopDo While Len(X) > 0Select Case Right(X, 4)Case "0000"Two16 = "0" + Two16Case "0001"Two16 = "1" + Two16Case "0010"Two16 = "2" + Two16 Case "0011"Two16 = "3" + Two16 Case "0100"Two16 = "4" + Two16 Case "0101"Two16 = "5" + Two16 Case "0110"Two16 = "6" + Two16 Case "0111"Two16 = "7" + Two16 Case "1000"Two16 = "8" + Two16 Case "1001"Two16 = "9" + Two16 Case "1010"Two16 = "A" + Two16 Case "1011"Two16 = "B" + Two16 Case "1100"Two16 = "C" + Two16 Case "1101"Two16 = "D" + Two16 Case "1110"Two16 = "E" + Two16 Case "1111"Two16 = "F" + Two16End SelectX = Left(X, Len(X) - 4)LoopEnd FunctionPublic Function HEX_to_BIN(ByVal Hex As String) As String Dim i As LongDim B As StringHex = UCase(Hex)For i = 1 To Len(Hex)Select Case Mid(Hex, i, 1)Case "0": B = B & "0000"Case "1": B = B & "0001"Case "2": B = B & "0010"Case "3": B = B & "0011"Case "4": B = B & "0100"Case "5": B = B & "0101"Case "6": B = B & "0110"Case "7": B = B & "0111"Case "8": B = B & "1000"Case "9": B = B & "1001"Case "A": B = B & "1010"Case "B": B = B & "1011"Case "C": B = B & "1100"Case "D": B = B & "1101"Case "E": B = B & "1110"Case "F": B = B & "1111"End SelectNext iDo While Left(B, 1) = "0"B = Right(B, Len(B) - 1)LoopHEX_to_BIN = BEnd FunctionPublic Function OCT_to_BIN(ByVal Oct As String) As String Dim i As LongDim B As StringFor i = 1 To Len(Oct)Select Case Mid(Oct, i, 1)Case "0": B = B & "000"Case "1": B = B & "001"Case "2": B = B & "010"Case "3": B = B & "011"Case "4": B = B & "100"Case "5": B = B & "101"Case "6": B = B & "110"Case "7": B = B & "111"End SelectNext iWhile Left(B, 1) = "0"B = Right(B, Len(B) - 1)WendOCT_to_BIN = BEnd FunctionPublic Function HEX_to_OCT(ByVal Hex As String) As StringDim bin As StringHex = UCase(Hex)bin = HEX_to_BIN(Hex)HEX_to_OCT = BIN_to_OCT(bin)End FunctionPublic Function BIN_to_OCT(ByVal bin As String) As String Dim i As LongDim H As StringIf Len(bin) Mod 3 <> 0 Thenbin = String(3 - Len(bin) Mod 3, "0") & binEnd IfFor i = 1 To Len(bin) Step 3Select Case Mid(bin, i, 3)Case "000": H = H & "0"Case "001": H = H & "1"Case "010": H = H & "2"Case "011": H = H & "3"Case "100": H = H & "4"Case "101": H = H & "5"Case "110": H = H & "6"Case "111": H = H & "7"End SelectNext iWhile Left(H, 1) = "0"H = Right(H, Len(H) - 1)WendBIN_to_OCT = HEnd FunctionPublic Function OCT_to_DEC(ByVal Oct As String) As Long Dim i As LongDim B As LongFor i = 1 To Len(Oct)Select Case Mid(Oct, Len(Oct) - i + 1, 1)Case "0": B = B + 8 ^ (i - 1) * 0Case "1": B = B + 8 ^ (i - 1) * 1Case "2": B = B + 8 ^ (i - 1) * 2Case "3": B = B + 8 ^ (i - 1) * 3Case "4": B = B + 8 ^ (i - 1) * 4Case "5": B = B + 8 ^ (i - 1) * 5Case "6": B = B + 8 ^ (i - 1) * 6Case "7": B = B + 8 ^ (i - 1) * 7End SelectNext iOCT_to_DEC = BEnd FunctionPublic Function OCT_to_HEX(ByVal Oct As String) As String Dim bin As Stringbin = OCT_to_BIN(Oct)OCT_to_HEX = Two16(bin)End Function3.3.9、退格、清除、清空Private Sub Command15_Click()Dim length As Integerlength = Len(Text1.Text)If length = 1 ThenIf Text1.Text <> "0" ThenText1.Text = "0"End IfElseText1.Text = Left(Text1.Text, length - 1)End Ifflag = TrueEnd SubPrivate Sub Command16_Click()dflag = 0prev = 0oflag = 0ind = 0opnre = 0Text1.Text = " 0"End SubPrivate Sub Command17_Click()Text1.Text = " 0"End Sub3.3.10、复制、粘贴Private Sub fz_Click()Clipboard.ClearClipboard.SetText Text1.TextEnd SubPrivate Sub zt_Click()Text1.Text = ""Text1.Text = Clipboard.GetText() End Sub3.3.11、两窗体的切换Private Sub ck_Click()form1.HideForm2.ShowEnd SubPrivate Sub ckx_Click()Form2.Hideform1.ShowEnd Sub第四章、总结经过课程设计后我总结了一些学习方法，学到了一些知识，以下是我对此次实习的总结4.1、对学习者知识的要求：首先，学习程序设计要有一定的逻辑思维能力，逻辑思维需要长时间的锻炼，如果你觉得自己在逻辑思维能力上有不足，也没有关系，因为编写程序本身也是对逻辑思维的锻炼，初学程序设计应具备的逻辑基础可以从高中数学中学到。