简单的vb计算机程序,VB--简单计算器

Option Explicit

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

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

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

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

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

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

Res = Format(0,"0.")

temp1 = 0

temp2 = 0

numcol = 0

potflag = False

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

End Sub

@H_403_97@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

@H_403_97@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

@H_403_97@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

@H_403_97@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

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

End Sub

总结

以上是编程之家为你收集整理的VB--简单计算器全部内容，希望文章能够帮你解决VB--简单计算器所遇到的程序开发问题。

如果觉得编程之家网站内容还不错，欢迎将编程之家网站推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。