简单的VB计算器代码
简单的VB计算器代码：
'变量定义说明部分
Dim x1 As Single, x2 As Single
Dim Y As Single
Dim n As Integer '标记使用运算符类型
'接收数据输入
Private Sub Command1_Click(Index As Integer)
Text1.Text = Text1.Text + CStr(Index)
End Sub
'按运算符时的处理方法
Private Sub Command3_Click(Index As Integer)
x1 = Val(Text1.Text)
Text1.Text = ""
n = Index
End Sub
'输入小数点时的处理办法
Private Sub Command2_Click()
Text1.Text = Text1.Text + "."
End Sub
'单击退格按钮时的处理方法
Private Sub Command4_Click()
Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 1) End Sub
'单击清除按钮时的处理方法Private Sub Command5_Click() x1 = 0: x2 = 0: Y = 0
Text1.Text = ""
End Sub
'单击退出按钮时的处理方法Private Sub Command6_Click() Unload Me
End Sub
'单击"="按钮时的处理方法Private Sub Command7_Click() x2 = Val(Text1.Text)
On Error GoTo err1
Select Case n
Case 0
Y = x1 + x2
Case 1
Y = x1 - x2
Case 2
Y = x1 * x2
Case 3
Y = x1 / x2
End Select
Text1.Text = CStr(Y)
Exit Sub
err1:
MsgBox "您输入的数据有误，请重新输入！", vbOKOnly + vbCritical, "错误！"
Text1.Text = ""
x1 = 0: x2 = 0: Y = 0
Exit Sub
End Sub
运行界面如下：
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.sodocs.net/doc/a417644754.html,/zhaozhigang517
计算器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编写一个简单计算器
用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编写的计算器代码
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计算器代码
第 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编写简单计算器程序
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程序语言设计科学计算器
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）总体设计结构介绍（绘制：结构流程图） 结构流程图如下：
VB计算器程序代码
Public Class Form1 Public zt As Integer Public fh As Integer Public x, y As Single Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load zt = 1 fh = 0 TextBox1.Text = 0 x = 0 y = 0 End Sub Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click If zt = 1 Then TextBox1.Text = TextBox1.Text * 10 + 1 zt = 2 ElseIf zt = 2 Then TextBox1.Text = TextBox1.Text * 10 + 1 ElseIf zt = 3 Then TextBox1.Text = 1 zt = 4 ElseIf zt = 4 Then TextBox1.Text = TextBox1.Text * 10 + 1 End If End Sub Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click If zt = 1 Then TextBox1.Text = TextBox1.Text * 10 + 2 zt = 2 ElseIf zt = 2 Then TextBox1.Text = TextBox1.Text * 10 + 2 ElseIf zt = 3 Then TextBox1.Text = 2 zt = 4 ElseIf zt = 4 Then TextBox1.Text = TextBox1.Text * 10 + 2 End If End Sub
VB简单计算器编程代码(附图)
Public sum As Double Public k As String "定义全局变量 Private Sub Command1_Click(Index As Integer) Select Case Index Case 1 Text1.Text = Text1.Text & 1 Case 2 Text1.Text = Text1.Text & 2 Case 3 Text1.Text = Text1.Text & 3 Case 4 Text1.Text = Text1.Text & 4 Case 5 Text1.Text = Text1.Text & 5 Case 6 Text1.Text = Text1.Text & 6 Case 7 Text1.Text = Text1.Text & 7 Case 8 Text1.Text = Text1.Text & 8 Case 9 Text1.Text = Text1.Text & 9 Case 0 Text1.Text = Text1.Text & 0 Case 10 Text1.Text = Text1.Text & "."
End Select End Sub Private Sub Command2_Click() sum = Text1.Text Text1.Text = "" k = "+" End Sub Private Sub Command3_Click() sum = Text1.Text Text1.Text = "" k = "-" End Sub Private Sub Command4_Click() sum = Text1.Text Text1.Text = "" k = "*" End Sub Private Sub Command5_Click() sum = Text1.Text Text1.Text = "" k = "/" End Sub Private Sub Command6_Click() Dim a As Double a = Text1.Text If k = "+" Then sum = sum + a Text1.Text = sum ElseIf k = "-" Then sum = sum - a Text1.Text = sum ElseIf k = "*" Then sum = sum * a Text1.Text = sum ElseIf k = "/" Then sum = sum / a Text1.Text = sum End If End Sub
毕业设计(论文)-基于VB实用计算器的设计
基于VB实用计算器的设计Design of practical Calculator base on VB 作者姓名： 学科专业：电子设备技术 学院(系部)：机电工程系 指导教师： 2010年12月
随着科学技术的不断提高,计算机科学日渐成熟 ,它已进入人类社会的各个领域并发挥着越来越重要的作用。计算器软件系统应该能够为用户提供丰富的手段。使用计算器运算,具有着其他方式所无法比拟的优点.例如查找方便、价格便宜、可保存信息等。这些优点能够极大地提高效率,也是国家的科学化、信息化管理,与世界接轨的重要条件。 本文着重分析计算器的运算法则与代码的关系以及控件数组的创建和使用技巧，并在Microsoft公司出品的一个面向对象的可视化开发工具Visual Basic上，采用VB语言及窗体界面的设计方法，界面设计直接在屏幕上显示出窗口、文本框、按钮等区别类型对象并为每个对象设置属性。实现了基于Visual Basic 6.0软件上运行控制的设计方法设计一个简易的计算器，可视化界面给操作带来很大的方便。 关键词：Visual Basic；计算器；对象；代码
With 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 6.0 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
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.sodocs.net/doc/a417644754.html,mandButton Command4 Caption = "=" Height = 495 Left = 4470 TabIndex = 28 Top = 3060
Width = 735 End Begin https://www.sodocs.net/doc/a417644754.html,mandButton Command3 Caption = "1/x" Height = 495 Left = 4470 TabIndex = 27 Top = 2520 Width = 735 End Begin https://www.sodocs.net/doc/a417644754.html,mandButton Command2 Caption = "%" Height = 495 Left = 4470 TabIndex = 26 Top = 1980 Width = 735 End Begin https://www.sodocs.net/doc/a417644754.html,mandButton Command1 Caption = "sqrt" Height = 495 Left = 4470 TabIndex = 25 Top = 1440 Width = 735 End Begin https://www.sodocs.net/doc/a417644754.html,mandButton cmbDOT Caption = "." Height = 495 Left = 2910 TabIndex = 24 Top = 3060 Width = 735 End
VB程序语言设计科学计算器
V B程序语言设计科学 计算器 标准化工作室编码[XX968T-XX89628-XJ668-XT689N]
VB程序语言设计 课程大作业 题目名称：科学计算器设计 班级： 姓名： 学号： 课程教师：温海骏 学期：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）总体设计结构介绍（绘制：结构流程图） （2）各功能模块运行界面的功能、算法和操作步骤 VB程序算法如下： 4、设计结果分析（运行结果展示、正确性分析） 经调试，程序运行基本正确。运行结果如下： 五、总结 1、对学习者知识的要求：
简易计算器VB课程设计报告
简易计算器 要求：用VB做类似于windows自带的计算器程序 绪论：Visual Basic （VE）是一种由微软公司开发的包含协助开发环境的事 件驱动编程语言。从任何标准来说，VB都是世界上使用人数最多的语言 不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD系统，可以轻易的使用DAO RDO ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。 1?界面设计： 根据WINDOWS计算器界面模型，修改后制作简易计算器界面。新建一个 窗体，添加一个文本框用于显示运算数字和结果，添加若干按钮包括（数字0—9, +，-，*，/，=，x A，1/x，清屏，退出）。 当单击数字按钮时输入运算数时，单击运算符按钮，再单击“=”按钮，则再文 本框中显示计算结果。具体如下图
计算器界面设计示意图 流程图如下： 简易计算器 退出程序2.程序代码： Dim A, B As Si ngle Dim Op As Stri ng Private Sub Comma nd1_Click() Textl.Text = Text1.Text + Comma nd1.Capti on End Sub
Private Sub Comma nd14_Click() '定义减法
If A = 0 The n A = Textl.Text Else B = Textl.Text End If Textl.Text ="" Op ="-" End Sub Private Sub Comma nd2_Click() Text1.Text = Text1.Text + Comma nd2.Caption End Sub Private Sub Comma nd20_Click() A = Textl.Text B = A A 2 Textl.Text = B End Sub Private Sub Comma nd3_Click() Textl.Text = Textl.Text + Comma nd3.Caption End Sub Private Sub Comma nd4_Click() Textl.Text = Textl.Text + Comma nd4.Capti on End Sub Private Sub Comma nd13_Click() If A = 0 The n A = Textl.Text Else B = Textl.Text End If Textl.Text ="" Op = "+" End Sub Private Sub Comma nd5_Click() Textl.Text = Textl.Text + Comma nd5.Capti on End Sub Private Sub Comma nd6_Click() Textl.Text = Textl.Text + Comma nd6.Caption End Sub Private Sub Comma nd17_Click() Textl.Text ="" A = 0: B = 0 End Sub Private Sub Comma nd19_Click() End '定义平方 '定义加法 清屏 End Sub
VB编写的简易计算器
这是一个简易计算器的VB代码，下面是这个计算器的界面，有一个文本输入框和16个按钮 Dim OperatorState As Integer Dim data1 As Integer Dim result As Integer Dim data2 As Integer ’下面是0~9十个按钮的点击事件 Private Sub Command9_Click() Text1.Text = Text1.Text + "1" End Sub Private Sub Command10_Click() Text1.Text = Text1.Text + "2" End Sub Private Sub Command11_Click() Text1.Text = Text1.Text + "3" End Sub Private Sub Command5_Click() Text1.Text = Text1.Text + "4" End Sub Private Sub Command6_Click() Text1.Text = Text1.Text + "5" End Sub
Private Sub Command7_Click() Text1.Text = Text1.Text + "6" End Sub Private Sub Command1_Click() Text1.Text = Text1.Text + "7" End Sub Private Sub Command2_Click() Text1.Text = Text1.Text + "8" End Sub Private Sub Command3_Click() Text1.Text = Text1.Text + "9" End Sub Private Sub Command13_Click() Text1.Text = Text1.Text + "0" End Sub ’下面是清除键的代码 Private Sub Command15_Click() Text1.Text = "" End Sub ’下面是加减乘除四个按钮的代码 Private Sub Command4_Click() data1 = Val(Text1.Text) OperatorState = 1 Text1.Text = "" End Sub Private Sub Command8_Click() data1 = Val(Text1.Text) OperatorState = 2 Text1.Text = "" End Sub Private Sub Command12_Click() data1 = Val(Text1.Text) OperatorState = 3 Text1.Text = "" End Sub
计算器vb代码
计算器vb代码 '=================版权所有 domes==================================' Public Function Arthmetic(ByVal s As String) On Error GoTo ee Dim m(500) As String '可随意改变数组的上限，这里可执行500位的算术Dim i, j As Integer '全局申明 Dim add As String Dim count As Integer count = 0 Dim v As Integer 'begin '执行括号域分离 ' 再次调用本程序,即递归 Const e = 2.01111 Const pi = 3.1415926 '=================================================================== =========== Dim ch Do ch = InStr(s, ")") '查找")"以便识别括号内容 If ch <> 0 Then For j = ch To 1 Step -1 If Mid(s, j, 1) = "(" Then '找到后在往前识别"(" Dim before As String
before = Mid(s, j + 1, ch - j - 1) '收集括号的内容 Dim after As String after = "(" & before & ")" Dim mm As String mm = Arthmetic(before) s = Replace(s, after, mm) '收集包括括号的内容 Exit For End If Next Else If ch = 0 Then '当找不到)是退出循环，不会进入死循环 Exit Do End If End If Loop '===============过滤了符号下一处理是式子里没有括号 ======================================= '=========================将字符和运算符号分离 ========================================== For i = 1 To Len(s) '把符号和数字分开呈数组 Dim check As String check = Mid(s, i, 1) If check = "*" Or check = "/" Or check = "-" Or check = "+" Or check =
简单的VB计算器代码
简单的VB计算器代码： '变量定义说明部分 Dim x1 As Single, x2 As Single Dim Y As Single Dim n As Integer '标记使用运算符类型 '接收数据输入 Private Sub Command1_Click(Index As Integer) Text1.Text = Text1.Text + CStr(Index) End Sub '按运算符时的处理方法 Private Sub Command3_Click(Index As Integer) x1 = Val(Text1.Text) Text1.Text = "" n = Index End Sub '输入小数点时的处理办法 Private Sub Command2_Click() Text1.Text = Text1.Text + "." End Sub '单击退格按钮时的处理方法 Private Sub Command4_Click() Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 1) End Sub
'单击清除按钮时的处理方法Private Sub Command5_Click() x1 = 0: x2 = 0: Y = 0 Text1.Text = "" End Sub '单击退出按钮时的处理方法Private Sub Command6_Click() Unload Me End Sub '单击"="按钮时的处理方法Private Sub Command7_Click() x2 = Val(Text1.Text) On Error GoTo err1 Select Case n Case 0 Y = x1 + x2 Case 1 Y = x1 - x2 Case 2 Y = x1 * x2 Case 3 Y = x1 / x2 End Select