vb源代码计算器（vb60计算器程序代码）

本篇文章给大家谈谈vb源代码计算器，以及vb60计算器程序代码对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、vb计算器源代码
• 2、用VB编写计算器的源程序代码
• 3、用vb编写计算器的代码程序
• 4、vb计算器代码

vb计算器源代码

Option Explicit

Private StoredValue As Double

Private Const opNone = 0

Private Const opAdd = 1

Private Const opSubtract = 2

Private Const opMultiply = 3

Private Const opDivide = 4

Private Operator As Integer

Private NewEntry As Boolean

'删除最后的字符

Private Sub DeleteCharacter()

Dim txt As String

Dim min_len As Integer

txt = txtDisplay.Text

If Left$(txt, 1) = "-" Then

min_len = 2

Else

min_len = 1

End If

If Len(txt) min_len Then

txtDisplay.Text = Left$(txt, Len(txt) - 1)

Else

txtDisplay.Text = "0"

End If

End Sub

'清除显示内容，保存运算符

Private Sub cmdClear_Click()

cmdClearEntry_Click

StoredValue = 0

Operator = opNone

End Sub

'清除显示内容

Private Sub cmdClearEntry_Click()

txtDisplay.Text = ""

End Sub

' 显示小数点

Private Sub cmdDecimal_Click()

If InStr(txtDisplay.Text, ".") Then

Beep

Else

If NewEntry Then

txtDisplay.Text = "."

NewEntry = False

Else

txtDisplay.Text = txtDisplay.Text "."

End If

End If

End Sub

'计算上一操作符的运算结果

Private Sub cmdEquals_Click()

Dim new_value As Double

If txtDisplay.Text = "" Then

new_value = 0

Else

new_value = CDbl(txtDisplay.Text)

End If

Select Case Operator

Case opNone

StoredValue = new_value

Case opAdd

StoredValue = StoredValue + new_value

Case opSubtract

StoredValue = StoredValue - new_value

Case opMultiply

StoredValue = StoredValue * new_value

Case opDivide

StoredValue = StoredValue / new_value

End Select

Operator = opNone

NewEntry = True

txtDisplay.Text = Format$(StoredValue)

End Sub

' 显示数字

Private Sub cmdNumber_Click(Index As Integer)

If NewEntry Then

txtDisplay.Text = Format$(Index)

NewEntry = False

Else

txtDisplay.Text = txtDisplay.Text Format$(Index)

End If

End Sub

Private Sub cmdOperator_Click(Index As Integer)

cmdEquals_Click

Operator = Index

NewEntry = True

End Sub

'改变符号

Private Sub cmdPlusMinus_Click()

If NewEntry Then

txtDisplay.Text = "-"

ElseIf Left$(txtDisplay.Text, 1) = "-" Then

txtDisplay.Text = Right$(txtDisplay.Text, 2)

Else

txtDisplay.Text = "-" txtDisplay.Text

End If

End Sub

'处理键盘按键

Private Sub Form_KeyPress(KeyAscii As Integer)

txtDisplay_KeyPress KeyAscii

End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

txtDisplay_KeyUp KeyCode, Shift

End Sub

Private Sub txtDisplay_Change()

txtDisplay.SelStart = Len(txtDisplay.Text)

End Sub

Private Sub txtDisplay_GotFocus()

txtDisplay_Change

End Sub

Private Sub txtDisplay_KeyPress(KeyAscii As Integer)

Dim ch As String

ch = Chr$(KeyAscii)

Select Case ch

Case "0"

cmdNumber_Click 0

Case "1"

cmdNumber_Click 1

Case "2"

cmdNumber_Click 2

Case "3"

cmdNumber_Click 3

Case "4"

cmdNumber_Click 4

Case "5"

cmdNumber_Click 5

Case "6"

cmdNumber_Click 6

Case "7"

cmdNumber_Click 7

Case "8"

cmdNumber_Click 8

Case "9"

cmdNumber_Click 9

Case "*", "x", "X"

cmdOperator_Click opMultiply

Case "+"

cmdOperator_Click opAdd

Case vbCrLf, vbCr, "="

cmdEquals_Click

Case "-"

cmdOperator_Click opSubtract

Case "."

cmdDecimal_Click

Case "/"

cmdOperator_Click opDivide

Case "C", "c"

cmdClearEntry_Click

End Select

KeyAscii = 0

End Sub

Private Sub txtDisplay_KeyUp(KeyCode As Integer, Shift As Integer)

Select Case KeyCode

Case vbKeyNumpad0

cmdNumber_Click 0

Case vbKeyNumpad1

cmdNumber_Click 1

Case vbKeyNumpad2

cmdNumber_Click 2

Case vbKeyNumpad3

cmdNumber_Click 3

Case vbKeyNumpad4

cmdNumber_Click 4

Case vbKeyNumpad5

cmdNumber_Click 5

Case vbKeyNumpad6

cmdNumber_Click 6

Case vbKeyNumpad7

cmdNumber_Click 7

Case vbKeyNumpad8

cmdNumber_Click 8

Case vbKeyNumpad9

cmdNumber_Click 9

Case vbKeyMultiply

cmdOperator_Click opMultiply

Case vbKeyAdd

cmdOperator_Click opAdd

Case vbKeySeparator

cmdEquals_Click

Case vbKeySubtract

cmdOperator_Click opSubtract

Case vbKeyDecimal

cmdDecimal_Click

Case vbKeyDivide

cmdOperator_Click opDivide

Case vbKeyBack, vbKeyDelete

DeleteCharacter

End Select

KeyCode = 0

End Sub

用VB编写计算器的源程序代码

完全版的前后台代码...

'请把下面的保存为 form1.frm

VERSION 5.00

Begin VB.Form Calculator

BorderStyle = 1 'Fixed Single

Caption = "计算器"

ClientHeight = 2970

ClientLeft = 2580

ClientTop = 1485

ClientWidth = 3270

ClipControls = 0 'False

BeginProperty Font

Name = "System"

Size = 9.75

Charset = 0

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Icon = "CALC.frx":0000

LinkMode = 1 'Source

LinkTopic = "Form1"

MaxButton = 0 'False

PaletteMode = 1 'UseZOrder

ScaleHeight = 2970

ScaleWidth = 3270

WhatsThisHelp = -1 'True

Begin VB.CommandButton Number

Caption = "7"

Height = 480

Index = 7

Left = 120

TabIndex = 7

Top = 600

Width = 480

End

Begin VB.CommandButton Number

Caption = "8"

Height = 480

Index = 8

Left = 720

TabIndex = 8

Top = 600

Width = 480

End

Begin VB.CommandButton Number

Caption = "9"

Height = 480

Index = 9

Left = 1320

TabIndex = 9

Top = 600

Width = 480

End

Begin VB.CommandButton Cancel

Caption = "C"

Height = 480

Left = 2040

TabIndex = 10

Top = 600

Width = 480

End

Begin VB.CommandButton CancelEntry

Caption = "CE"

Height = 480

Left = 2640

TabIndex = 11

Top = 600

Width = 480

End

Begin VB.CommandButton Number

Caption = "4"

Height = 480

Index = 4

Left = 120

TabIndex = 4

Top = 1200

Width = 480

End

Begin VB.CommandButton Number

Caption = "5"

Height = 480

Index = 5

Left = 720

TabIndex = 5

Top = 1200

Width = 480

End

Begin VB.CommandButton Number

Caption = "6"

Height = 480

Index = 6

Left = 1320

TabIndex = 6

Top = 1200

Width = 480

End

Begin VB.CommandButton Operator

Caption = "+"

Height = 480

Index = 1

Left = 2040

TabIndex = 12

Top = 1200

Width = 480

End

Begin VB.CommandButton Operator

Caption = "-"

Height = 480

Index = 3

Left = 2640

TabIndex = 13

Top = 1200

Width = 480

End

Begin VB.CommandButton Number

Caption = "1"

Height = 480

Index = 1

Left = 120

TabIndex = 1

Top = 1800

Width = 480

End

Begin VB.CommandButton Number

Caption = "2"

Height = 480

Index = 2

Left = 720

TabIndex = 2

Top = 1800

Width = 480

End

Begin VB.CommandButton Number

Caption = "3"

Height = 480

Index = 3

Left = 1320

TabIndex = 3

Top = 1800

Width = 480

End

Begin VB.CommandButton Operator

Caption = "X"

Height = 480

Index = 2

Left = 2040

TabIndex = 14

Top = 1800

Width = 480

End

Begin VB.CommandButton Operator

Caption = "/"

Height = 480

Index = 0

Left = 2640

TabIndex = 15

Top = 1800

Width = 480

End

Begin VB.CommandButton Number

Caption = "0"

Height = 480

Index = 0

Left = 120

TabIndex = 0

Top = 2400

Width = 1080

End

Begin VB.CommandButton Decimal

Caption = "."

Height = 480

Left = 1320

TabIndex = 18

Top = 2400

Width = 480

End

Begin VB.CommandButton Operator

Caption = "="

Height = 480

Index = 4

Left = 2040

TabIndex = 16

Top = 2400

Width = 480

End

Begin VB.CommandButton Percent

Caption = "%"

Height = 480

Left = 2640

TabIndex = 17

Top = 2400

Width = 480

End

Begin VB.Label Readout

Alignment = 1 'Right Justify

BackColor = H0000FFFF

BorderStyle = 1 'Fixed Single

Caption = "0."

BeginProperty Font

Name = "MS Sans Serif"

Size = 12

Charset = 0

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

ForeColor = H00000000

Height = 375

Left = 120

TabIndex = 19

Top = 105

Width = 3000

End

End

Attribute VB_Name = "Calculator"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

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

' 版权所有 (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.")

'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

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 "除数不能为 0", 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编写计算器的代码程序

在窗体上放置以下控件：

1、lblResult

Label控件

设置lblResult.Caption

=

2、btnNum(0)~btnNum(9)

按钮控件数组，下标对应齐数字（如：btnNum(0).Caption=0，依次类推）

3、添加btnAdd（加法）、btnSub（减法）、btnMul（乘法）、btnDiv（除法）、btnEnter（等于号）、btnReset（清除键）六个按钮。

在窗体代码中输入以下内容：

Dim

byteOperation

As

Byte

'操作符

Dim

byteTmp

As

Byte

'临时操作符

Dim

intNum

As

Double

'输入的数字

Sub

Calc()

Select

Case

byteOperation

Case

1

'Add

lblResult.Caption

=

CDbl(lblResult.Caption)

+

intNum

Case

2

'Sub

lblResult.Caption

=

intNum

-

CDbl(lblResult.Caption)

Case

3

'Mul

lblResult.Caption

=

CDbl(lblResult.Caption)

*

intNum

Case

4

'Div

lblResult.Caption

=

intNum

/

CDbl(lblResult.Caption)

Case

Else

End

Select

End

Sub

Private

Sub

btnNum_Click(Index

As

Integer)

If

byteTmp

Then

intNum

=

lblResult.Caption

lblResult.Caption

=

byteTmp

=

End

If

If

lblResult.Caption

=

Then

lblResult.Caption

=

Index

Else

If

Len(lblResult.Caption)

9

Then

lblResult.Caption

=

lblResult.Caption

Index

End

If

End

If

End

Sub

Private

Sub

btnAdd_Click()

If

byteOperation

Then

Call

Calc

End

If

byteOperation

=

1

byteTmp

=

1

End

Sub

Private

Sub

btnReset_Click()

byteTmp

=

byteOperation

=

intNum

=

lblResult.Caption

=

End

Sub

Private

Sub

btnSub_Click()

If

byteOperation

Then

Call

Calc

End

If

byteOperation

=

2

byteTmp

=

2

End

Sub

Private

Sub

btnMul_Click()

If

byteOperation

Then

Call

Calc

End

If

byteOperation

=

3

byteTmp

=

3

End

Sub

Private

Sub

btnDiv_Click()

If

byteOperation

Then

Call

Calc

End

If

byteOperation

=

4

byteTmp

=

4

End

Sub

Private

Sub

btnEnter_Click()

Call

Calc

byteTmp

=

End

Sub

vb计算器代码

form1.frm

VERSION 5.00

Begin VB.Form Calculator

BorderStyle = 1 'Fixed Single

Caption = "计算器"

ClientHeight = 2970

ClientLeft = 2580

ClientTop = 1485

ClientWidth = 3270

ClipControls = 0 'False

BeginProperty Font

Name = "System"

Size = 9.75

Charset = 0

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Icon = "CALC.frx":0000

LinkMode = 1 'Source

LinkTopic = "Form1"

MaxButton = 0 'False

PaletteMode = 1 'UseZOrder

ScaleHeight = 2970

ScaleWidth = 3270

WhatsThisHelp = -1 'True

Begin VB.CommandButton Number

Caption = "7"

Height = 480

Index = 7

Left = 120

TabIndex = 7

Top = 600

Width = 480

End

Begin VB.CommandButton Number

Caption = "8"

Height = 480

Index = 8

Left = 720

TabIndex = 8

Top = 600

Width = 480

End

Begin VB.CommandButton Number

Caption = "9"

Height = 480

Index = 9

Left = 1320

TabIndex = 9

Top = 600

Width = 480

End

Begin VB.CommandButton Cancel

Caption = "C"

Height = 480

Left = 2040

TabIndex = 10

Top = 600

Width = 480

End

Begin VB.CommandButton CancelEntry

Caption = "CE"

Height = 480

Left = 2640

TabIndex = 11

Top = 600

Width = 480

End

Begin VB.CommandButton Number

Caption = "4"

Height = 480

Index = 4

Left = 120

TabIndex = 4

Top = 1200

Width = 480

End

Begin VB.CommandButton Number

Caption = "5"

Height = 480

Index = 5

Left = 720

TabIndex = 5

Top = 1200

Width = 480

End

Begin VB.CommandButton Number

Caption = "6"

Height = 480

Index = 6

Left = 1320

TabIndex = 6

Top = 1200

Width = 480

End

Begin VB.CommandButton Operator

Caption = "+"

Height = 480

Index = 1

Left = 2040

TabIndex = 12

Top = 1200

Width = 480

End

Begin VB.CommandButton Operator

Caption = "-"

Height = 480

Index = 3

Left = 2640

TabIndex = 13

Top = 1200

Width = 480

End

Begin VB.CommandButton Number

Caption = "1"

Height = 480

Index = 1

Left = 120

TabIndex = 1

Top = 1800

Width = 480

End

Begin VB.CommandButton Number

Caption = "2"

Height = 480

Index = 2

Left = 720

TabIndex = 2

Top = 1800

Width = 480

End

Begin VB.CommandButton Number

Caption = "3"

Height = 480

Index = 3

Left = 1320

TabIndex = 3

Top = 1800

Width = 480

End

Begin VB.CommandButton Operator

Caption = "X"

Height = 480

Index = 2

Left = 2040

TabIndex = 14

Top = 1800

Width = 480

End

Begin VB.CommandButton Operator

Caption = "/"

Height = 480

Index = 0

Left = 2640

TabIndex = 15

Top = 1800

Width = 480

End

Begin VB.CommandButton Number

Caption = "0"

Height = 480

Index = 0

Left = 120

TabIndex = 0

Top = 2400

Width = 1080

End

Begin VB.CommandButton Decimal

Caption = "."

Height = 480

Left = 1320

TabIndex = 18

Top = 2400

Width = 480

End

Begin VB.CommandButton Operator

Caption = "="

Height = 480

Index = 4

Left = 2040

TabIndex = 16

Top = 2400

Width = 480

End

Begin VB.CommandButton Percent

Caption = "%"

Height = 480

Left = 2640

TabIndex = 17

Top = 2400

Width = 480

End

Begin VB.Label Readout

Alignment = 1 'Right Justify

BackColor = H0000FFFF

BorderStyle = 1 'Fixed Single

Caption = "0."

BeginProperty Font

Name = "MS Sans Serif"

Size = 12

Charset = 0

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

ForeColor = H00000000

Height = 375

Left = 120

TabIndex = 19

Top = 105

Width = 3000

End

End

Attribute VB_Name = "Calculator"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

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

' 版权所有 (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.")

'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

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 "除数不能为 0", 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源代码计算器的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb60计算器程序代码、vb源代码计算器的信息别忘了在本站进行查找喔。