VB--简单计算器

Option Explicit

Dim potflag As Integer '标识是否用小数点

Dim numcol As Integer ' 点击运算符的个数

Dim LastInput ' 指示上一次操作的内容

Dim colflag 'numcol为1时，保存运算符

Dim temp1,temp2 '分别保存运算符两端的运算数

Private Sub CmdCel_Click() '重新开始计算按钮，个计量数和标识初始化

Res = Format(0,"0.")

temp1 = 0

temp2 = 0

numcol = 0

potflag = False

LastInput = "cel" '标识此操作为"cel"

End Sub

Private Sub CmdPot_Click() '使用小数点

If LastInput <> "num" Then

Res = Format(0,"0.")

ElseIf String(1,Res) = "-" Then

Res = Format(0,"-0.")

End If

potflag = True

LastInput = "num" '标识此操作为"num"

End Sub

Private Sub Cmdsign_Click() '使用正负号

If String(1,Res) <> "-" Then '如果当前是正数添加负号

Res = "-" & Res

Else: Res = Right(Res,Len(Res) - 1) '如果当前是证号，取消负号

End If

LastInput = "num" '标识此操作为"num"

End Sub

Private Sub ComCol_Click(Index As Integer) '点击操作符，可进行连续运算

numcol = numcol + 1 '通过numcol标识点击运算符的次数

If numcol = 1 Then '当前数为操作符左侧运算数时，记录当前操作数

temp1 = Res

Res = Format(0,"0.")

ElseIf numcol = 2 Then '当前操作数为操作符右侧数，进行相应运算

temp2 = Res

Select Case colflag

Case "+"

temp1 = CDbl(temp1) + CDbl(temp2)

Case "-"

temp1 = CDbl(temp1) - CDbl(temp2)

Case "*"

temp1 = CDbl(temp1) * CDbl(temp2)

Case "/"

If temp2 = 0 Then

MsgBox "输入错误，除数不能为0",vbOKOnly,"提示"

Else: temp1 = CDbl(temp1) / CDbl(temp2)

End If

Case "="

Res = temp2

End Select

Res = temp1

numcol = 0

End If

colflag = ComCol(Index).Caption '记录该次选择的操作符

LastInput = "col" '标识此操作为"col"

End Sub

Private Sub ComNum_Click(Index As Integer) '点击数字按钮

If LastInput <> "num" Then '显示需要先判断是否启用小数点，再选择显示的方法

Res = Format(0,".")

potflag = False

End If If potflag Then

Res = Res + ComNum(Index).Caption

Else: Res = Left(Res,InStr(Res,Format(0,".")) - 1) + ComNum(Index).Caption + Format(0,".")

End If

LastInput = "num" '标识此操作为"num"

End Sub

Private Sub Res_Change() 'Res为操作数和计算结果显示的文本框

End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!