用vb编写一个简单计算器

用 VB 编写一个简单计算器一、功能：实现简单的加减乘除功能，C 归零，CE 取消输入， %计算并显示第一个操作数的百分比。二、控件：1 个 label， 20 个 commandbutton。三、计算器运行界面：四、详细代码：Option ExplicitDim 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 = 0Op2 = 0Form_LoadEnd Sub CE (取消输入) 按钮的 Click 事件过程Private Sub CancelEntry_Click()Readout = Format(0, “0.“)DecimalFlag = FalseLastInput = “CE“End Sub 小数点 (.) 按钮的 Click 事件过程 如果上一次按键为运算符，初始化 readout 为 “0.“； 否则显示时追加一个小数点Private Sub Decimal_Click()If LastInput = “NEG“ ThenReadout = Format(0, “-0.“)ElseIf LastInput “NUMS“ ThenReadout = Format(0, “.“)DecimalFlag = FalseEnd IfIf DecimalFlag ThenReadout = Readout + Number(Index).CaptionElseReadout = Left(Readout, InStr(Readout, Format(0, “.“) - 1) + Number(Index).Caption + Format(0, “.“)End IfIf LastInput = “NEG“ Then Readout = “-“ & ReadoutLastInput = “NUMS“End Sub 运算符 (+, -, x, /, =) 的 Click 事件过程 如果接下来的按键是数字键，增加 NumOps。 如果有一个操作数，则设置 Op1。 如果有两个操作数，则将 Op1 设置为 Op1 与 当前输入字符串的运算结果，并显示结果Private Sub Operator_Click(Index As Integer)TempReadout = ReadoutIf LastInput = “NUMS“ ThenNumOps = NumOps + 1End IfSelect Case NumOpsCase 0If Operator(Index).Caption = “-“ And LastInput “NUMS“ And OpFlag “NEG“ ThenLastInput = “OPS“OpFlag = Operator(Index).CaptionEnd IfEnd Sub 百分比键 (%) 的 Click 事件过程 计算并显示第一个操作数的百分数Private Sub Percent_Click()Readout = Readout /