Vb中计算器清空需要什么代码

Vb中计算器清空代码如下所示：

Private Sub Cmdcls_Click()    

Text1Text = 0

End Sub

VB使用了可以简单建立应用程序的GUI 系统，但是又可以开发相当复杂的程序。VB 的程序是一种基于窗体的可视化组件安排的联合，并且增加代码来指定组件的属性和方法。因为默认的属性和方法已经有一部分定义在了组件内，所以程序员不用写多少代码就可以完成一个简单的程序。

VB 的程序可以包含一个或多个窗体，或者是一个主窗体和多个子窗体，类似于 *** 作系统的样子。有很少功能的对话框窗口（比如没有最大化和最小化按钮的窗体）可以用来提供d出功能。

扩展资料

VB变量类型：

1、Integer（类型符%）

Integer指的是-32768到+32767之间的整数，通常这个范围已经涵盖了大多数可能会用到的数字。如果认为要用到的数字可能会超出这个范围，可以考虑将其定义为Long。

2、Long（类型符&）

这种数据类型垢数字有时又称为Long Integer。这种数据类型可以处理-2147483648到+2147483647之间的所有数字。与使用2个字节的Integer不同，它使用4字节内存存储数据。

3、Single（类型符!）

Single适用于需要小数点的数字。Single可以处理-3402823E38到-1401298E-45之间的负值和1401298E_45到3402823E38之间的正值。

4、Double（类型符#）

这种数据类型需要使用8字节内存来存储数据。如果必须处理超大范围的值，这种数据类型会很有用。

VB60便携小程序很方便，今天我们就来看看vb制作一个加法计算器的教程。

1、启动软件，新建一个变准 EXE工程 。

2、我们在窗体上绘制好要使用到的控件。

3、双击 计算按钮 进入代码窗口，我们可以在这里编写代码。

4、接下来我们打入累加的 赋值语句。

5、接下来我们点击运行测试的 小三角。

6、这时候我们就可以开始计算了。

以上就是VB60编写一个加法计算器的方法，希望大家喜欢，请继续关注我们。

我们现在首先要做的就是拉出Label，准备三个Label，把label1，label2，label3，这些改成第一个数、第二个数、结果。

我们现在要text也要拉出三个，把了text里面text1、text2、text3全部删掉。

我们现在要把command拉出四个，把里面command1-4都给成+-/

现在我们现在要双击+，我们开始进行输入代码

在里面我们现在要：text3text=val(text1text)+val(text2text)

我们要把这个（text3text=val(text1text)+val(text2text)）复制，把里面+号分别改成-/

如图，就像这样就可以了，可以行径了，如果你在哪个代码里弄错了，你看一下还要哪些没有拉出来，或者你哪个代码输错了。

感谢观看。

' ------------------------------------------------------------------------

'               版权所有 (C) 1994 Microsoft Corporation

'

' 您可以免费以任何方式使用、修改、复制并分发您认为有用的

' 示例应用程序文件 (或任何修改过的版本)。Microsoft 对任何

' 示例应用程序文件不做任何保证，不负任何责任和义务。

' ------------------------------------------------------------------------

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")

    'DecimalCaption = 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

    LastInput = "NUMS"

End Sub

' 运算符 (+, -, x, /, =) 的 Click 事件过程

' 如果接下来的按键是数字键，增加 NumOps。

' 如果有一个 *** 作数，则设置 Op1。

' 如果有两个 *** 作数，则将 Op1 设置为 Op1 与

' 当前输入字符串的运算结果，并显示结果。

Private Sub Operator_Click(Index As Integer)

    TempReadout = Readout

    If LastInput = "NUMS" Then

        NumOps = NumOps + 1

    End If

    Select Case NumOps

        Case 0

        If Operator(Index)Caption = "-" And LastInput <> "NEG" Then

            Readout = "-" & Readout

            LastInput = "NEG"

        End If

        Case 1

        Op1 = Readout

        If Operator(Index)Caption = "-" And LastInput <> "NUMS" And OpFlag <> "=" Then

            Readout = "-"

            LastInput = "NEG"

        End If

        Case 2

        Op2 = TempReadout

        Select Case OpFlag

            Case "+"

                Op1 = CDbl(Op1) + CDbl(Op2)

            Case "-"

                Op1 = CDbl(Op1) - CDbl(Op2)

            Case "X"

                Op1 = CDbl(Op1)  CDbl(Op2)

            Case "/"

                If Op2 = 0 Then

                   MsgBox "除数不能为零", 48, "计算器"

                Else

                   Op1 = CDbl(Op1) / CDbl(Op2)

                End If

            Case "="

                Op1 = CDbl(Op2)

            Case "%"

                Op1 = CDbl(Op1)  CDbl(Op2)

            End Select

        Readout = Op1

        NumOps = 1

    End Select

    If LastInput <> "NEG" Then

        LastInput = "OPS"

        OpFlag = Operator(Index)Caption

    End If

End Sub

' 百分比键 (%) 的 Click 事件过程

' 计算并显示第一个 *** 作数的百分数。

Private Sub Percent_Click()

    Readout = Readout / 100

    LastInput = "Ops"

    OpFlag = "%"

    NumOps = NumOps + 1

    DecimalFlag = True

End Sub

以上就是关于Vb中计算器清空需要什么代码全部的内容，包括:Vb中计算器清空需要什么代码、怎样用vb编写一个加法计算器、用VB做一个简单的加减乘除的计算器，代码是什么等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！