用VB編寫(xiě)一個(gè)簡(jiǎn)單計(jì)算器.doc

用VB編寫(xiě)一個(gè)簡(jiǎn)單計(jì)算器一、功能：實(shí)現(xiàn)簡(jiǎn)單的加減乘除功能，C歸零，CE取消輸入，%計(jì)算并顯示第一個(gè)操作數(shù)的百分比。二、控件：1個(gè)label， 20個(gè)commandbutton。三、計(jì)算器運(yùn)行界面：四、詳細(xì)代碼： Option Explicit Dim Op1, Op2 前面輸入的操作數(shù) Dim DecimalFlag As Integer 小數(shù)點(diǎn)仍然存在嗎？ Dim NumOps As Integer 操作數(shù)個(gè)數(shù) Dim LastInput 指示上一次按鍵事件的類(lèi)型 Dim OpFlag 指示未完成的操作 Dim TempReadout C (取消) 按鈕的 Click 事件過(guò)程 重新設(shè)置顯示并初始化變量 Private Sub Cancel_Click() Readout = Format(0, 0.) Op1 = 0 Op2 = 0 Form_Load End Sub CE (取消輸入) 按鈕的 Click 事件過(guò)程 Private Sub CancelEntry_Click() Readout = Format(0, 0.) DecimalFlag = False LastInput = CE End Sub 小數(shù)點(diǎn) (.) 按鈕的 Click 事件過(guò)程 如果上一次按鍵為運(yùn)算符，初始化 readout 為 0.； 否則顯示時(shí)追加一個(gè)小數(shù)點(diǎn) 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 窗體的初始化過(guò)程 設(shè)置所有變量為其初始值 Private Sub Form_Load() DecimalFlag = False NumOps = 0 LastInput = NONE OpFlag = Readout = Format(0, 0.) Decimal.Caption = Format(0, .) End Sub 數(shù)字鍵 (0-9) 的 Click 事件過(guò)程 向顯示中的數(shù)追加新數(shù) 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 運(yùn)算符 (+, -, x, /, =) 的 Click 事件過(guò)程 如果接下來(lái)的按鍵是數(shù)字鍵，增加 NumOps。 如果有一個(gè)操作數(shù)，則設(shè)置 Op1。 如果有兩個(gè)操作數(shù)，則將 Op1 設(shè)置為 Op1 與 當(dāng)前輸入字符串的運(yùn)算結(jié)果，并顯示結(jié)果 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 除數(shù)不能為 0, 48, 計(jì)算器 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 事件過(guò)程 計(jì)算并顯示第一個(gè)操作數(shù)的百分?jǐn)?shù) Privat