计算器vb源代码

End End

Attribute VB_Name = \ 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, \ Op1 = 0 Op2 = 0 Form_Load End Sub

' CE (取消输入) 按钮的 Click 事件过程 Private Sub CancelEntry_Click() Readout = Format(0, \ DecimalFlag = False LastInput = \ End Sub

' 小数点 (.) 按钮的 Click 事件过程

' 如果上一次按键为运算符，初始化 readout 为 \； ' 否则显示时追加一个小数点 Private Sub Decimal_Click()

If LastInput = \ Readout = Format(0, \ ElseIf LastInput <> \ Readout = Format(0, \ End If

DecimalFlag = True LastInput = \ End Sub

' 窗体的初始化过程 ' 设置所有变量为其初始值 Private Sub Form_Load() DecimalFlag = False NumOps = 0 LastInput = \ OpFlag = \

Readout = Format(0, \ ' = Format(0, \ End Sub

' 数字键 (0-9) 的 Click 事件过程

' 向显示中的数追加新数

Private Sub Number_Click(Index As Integer) If LastInput <> \ Readout = Format(0, \ DecimalFlag = False End If

If DecimalFlag Then Readout Number(Index).Caption Else

Readout = Left(Readout, InStr(Readout, Format(0, \ - 1) + Number(Index).Caption + Format(0, \ End If

If LastInput = \& Readout

LastInput = \ End Sub

' 运算符 (+, -, x, /, =) 的 Click 事件过程 ' 如果接下来的按键是数字键，增加 NumOps。 ' 如果有一个操作数，则设置 Op1。

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

=

Readout

+

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

Private Sub Operator_Click(Index As Integer) TempReadout = Readout

If LastInput = \ NumOps = NumOps + 1 End If

Select Case NumOps Case 0

If Operator(Index).Caption = \LastInput <> \

Readout = \ LastInput = \ End If Case 1

Op1 = Readout

If Operator(Index).Caption = \LastInput <> \ Readout = \ LastInput = \ End If Case 2

Op2 = TempReadout

And And