利用VB写的计算器代码.docVIP

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 Variant) As Variant 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 Variant) As Variant Dim t As Variant, 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 Disp = Op1 Kedt = 1 End Sub 清除存储器 Private Sub BtMC_Click() MemNum = CDec(0) LabMem.Visible = False End Sub Private Sub BtOff_Click() End End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Dim K As String K = Chr(KeyAscii) Select Case K Case Chr(24): End Case Chr(8): CancelEntry_Click Case Chr(27): Cancel_Click Case 0 To 9: Number_Click KeyAscii - 48 Case .: Decimal_Click Case =: Equal_Click Case s: BtMS_Click Case c: BtMC_Click Case r: BtMr_Click Case %: Func_Click 4 Case ^: Func_Click 1 Case +: Operator_Click 1 Case -: Operator_Click 3 Case *: Operator_Click 2 Case /: Operator_Click 0 Case i: Func_Click 2 Case : Func_Click 3 Case ]: Func_Click 5 Case \: Func_Click 0 Case ;: negcmd_Click End Select Equal.SetFocus End Sub 窗体的初始化过程 设置所有变量为其初始值。 Private Sub Form_Load() Cancel_Click MemNum = CDec(0) LabMe