如何用VB编写一个加减乘除计算器？只要代码!

 我来答

2个回答

#热议# 为什么有人显老，有人显年轻？

DoramiHe
2017-03-31 · 知道合伙人互联网行家

DoramiHe
知道合伙人互联网行家

采纳数：25334 获赞数：59537

2011年中山职业技术学院毕业，现担任毅衣公司京东小二

向TA提问私信TA

关注

展开全部

Option Explicit
Dim Op1, Op2 Dim DecimalFlag As Integer Dim NumOps As Integer Dim LastInput
Dim OpFlag Dim TempReadout

Private Sub Cancel_Click()
Readout = Format(0, "0.")
Op1 = 0
Op2 = 0
Form_Load
End Sub

Private Sub CancelEntry_Click()
Readout = Format(0, "0.")
DecimalFlag = False
LastInput = "CE"
End Sub

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

Private Sub Form_Load()
DecimalFlag = False
NumOps = 0
LastInput = "NONE"
OpFlag = " "
Readout = Format(0, "0.")
'Decimal.Caption = Format(0, ".")
End Sub

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

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 "除数不能为 0", 48, "计算器"
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

Private Sub Percent_Click()
Readout = Readout / 100
LastInput = "Ops"
OpFlag = "%"
NumOps = NumOps + 1
DecimalFlag = True
End Sub 窗体代码 VERSION 5.00
Begin VB.Form Calculator
BorderStyle = 1 'Fixed Single
Caption = "计算器"
ClientHeight = 2970
ClientLeft = 2580
ClientTop = 1485
ClientWidth = 3270
ClipControls = 0 'False
BeginProperty Font
Name = "System"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "CALC.frx":0000
LinkMode = 1 'Source
LinkTopic = "Form1"
MaxButton = 0 'False
PaletteMode = 1 'UseZOrder
ScaleHeight = 2970
ScaleWidth = 3270
WhatsThisHelp = -1 'True
Begin VB.CommandButton Number
Caption = "7"
Height = 480
Index = 7
Left = 120
TabIndex = 7
Top = 600
Width = 480
End
Begin VB.CommandButton Number
Caption = "8"
Height = 480
Index = 8
Left = 720
TabIndex = 8
Top = 600
Width = 480
End
Begin VB.CommandButton Number
Caption = "9"
Height = 480
Index = 9
Left = 1320
TabIndex = 9
Top = 600
Width = 480
End
Begin VB.CommandButton Cancel
Caption = "C"
Height = 480
Left = 2040
TabIndex = 10
Top = 600
Width = 480
End
Begin VB.CommandButton CancelEntry
Caption = "CE"
Height = 480
Left = 2640
TabIndex = 11
Top = 600
Width = 480
End
Begin VB.CommandButton Number
Caption = "4"
Height = 480
Index = 4
Left = 120
TabIndex = 4
Top = 1200
Width = 480
End
Begin VB.CommandButton Number
Caption = "5"
Height = 480
Index = 5
Left = 720
TabIndex = 5
Top = 1200
Width = 480
End
Begin VB.CommandButton Number
Caption = "6"
Height = 480
Index = 6
Left = 1320
TabIndex = 6
Top = 1200
Width = 480
End
Begin VB.CommandButton Operator
Caption = "+"
Height = 480
Index = 1
Left = 2040
TabIndex = 12
Top = 1200
Width = 480
End
Begin VB.CommandButton Operator
Caption = "-"
Height = 480
Index = 3
Left = 2640
TabIndex = 13
Top = 1200
Width = 480
End
Begin VB.CommandButton Number
Caption = "1"
Height = 480
Index = 1
Left = 120
TabIndex = 1
Top = 1800
Width = 480
End
Begin VB.CommandButton Number
Caption = "2"
Height = 480
Index = 2
Left = 720
TabIndex = 2
Top = 1800
Width = 480
End
Begin VB.CommandButton Number
Caption = "3"
Height = 480
Index = 3
Left = 1320
TabIndex = 3
Top = 1800
Width = 480
End
Begin VB.CommandButton Operator
Caption = "X"
Height = 480
Index = 2
Left = 2040
TabIndex = 14
Top = 1800
Width = 480
End
Begin VB.CommandButton Operator
Caption = "/"
Height = 480
Index = 0
Left = 2640
TabIndex = 15
Top = 1800
Width = 480
End
Begin VB.CommandButton Number
Caption = "0"
Height = 480
Index = 0
Left = 120
TabIndex = 0
Top = 2400
Width = 1080
End
Begin VB.CommandButton Decimal
Caption = "."
Height = 480
Left = 1320
TabIndex = 18
Top = 2400
Width = 480
End
Begin VB.CommandButton Operator
Caption = "="
Height = 480
Index = 4
Left = 2040
TabIndex = 16
Top = 2400
Width = 480
End
Begin VB.CommandButton Percent
Caption = "%"
Height = 480
Left = 2640
TabIndex = 17
Top = 2400
Width = 480
End
Begin VB.Label Readout
Alignment = 1 'Right Justify
BackColor = &H0000FFFF&
BorderStyle = 1 'Fixed Single
Caption = "0."
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 375
Left = 120
TabIndex = 19
Top = 105
Width = 3000
End
End
Attribute VB_Name = "Calculator"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

已赞过 已踩过<

评论收起

慕课网

广告2024-11-26

python入门课程零基础起步，多领域实战，手把手带你稳步胜任全能工作python入门课程对标企业岗位技能需求，涵盖5大热门领域，全流程实战，一站式就业

class.imooc.com

就有难0P
2014-06-17 · TA获得超过108个赞

知道答主

回答量：131

采纳率：50%

帮助的人：124万

我也去答题访问个人页

关注

展开全部

Option Explicit  Dim Op1, Op2 Dim DecimalFlag As Integer  Dim NumOps As Integer Dim LastInput Dim OpFlag Dim TempReadout   Private Sub Cancel_Click()  Readout = Format(0, "0.")  Op1 = 0  Op2 = 0  Form_Load  End Sub  Private Sub CancelEntry_Click()  Readout = Format(0, "0.")  DecimalFlag = False  LastInput = "CE"  End Sub   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   Private Sub Form_Load()  DecimalFlag = False  NumOps = 0  LastInput = "NONE"  OpFlag = " "  Readout = Format(0, "0.")  'Decimal.Caption = Format(0, ".")  End Sub   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  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 "除数不能为 0", 48, "计算器"  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  Private Sub Percent_Click()  Readout = Readout / 100  LastInput = "Ops"  OpFlag = "%"  NumOps = NumOps + 1  DecimalFlag = True  End Sub   窗体代码 VERSION 5.00  Begin VB.Form Calculator  BorderStyle = 1 'Fixed Single  Caption = "计算器"  ClientHeight = 2970  ClientLeft = 2580  ClientTop = 1485  ClientWidth = 3270  ClipControls = 0 'False  BeginProperty Font  Name = "System"  Size = 9.75  Charset = 0  Weight = 700  Underline = 0 'False  Italic = 0 'False  Strikethrough = 0 'False  EndProperty  Icon = "CALC.frx":0000  LinkMode = 1 'Source  LinkTopic = "Form1"  MaxButton = 0 'False  PaletteMode = 1 'UseZOrder  ScaleHeight = 2970  ScaleWidth = 3270  WhatsThisHelp = -1 'True  Begin VB.CommandButton Number  Caption = "7"  Height = 480  Index = 7  Left = 120  TabIndex = 7  Top = 600  Width = 480  End  Begin VB.CommandButton Number  Caption = "8"  Height = 480  Index = 8  Left = 720  TabIndex = 8  Top = 600  Width = 480  End  Begin VB.CommandButton Number  Caption = "9"  Height = 480  Index = 9  Left = 1320  TabIndex = 9  Top = 600  Width = 480  End  Begin VB.CommandButton Cancel  Caption = "C"  Height = 480  Left = 2040  TabIndex = 10  Top = 600  Width = 480  End  Begin VB.CommandButton CancelEntry  Caption = "CE"  Height = 480  Left = 2640  TabIndex = 11  Top = 600  Width = 480  End  Begin VB.CommandButton Number  Caption = "4"  Height = 480  Index = 4  Left = 120  TabIndex = 4  Top = 1200  Width = 480  End  Begin VB.CommandButton Number  Caption = "5"  Height = 480  Index = 5  Left = 720  TabIndex = 5  Top = 1200  Width = 480  End  Begin VB.CommandButton Number  Caption = "6"  Height = 480  Index = 6  Left = 1320  TabIndex = 6  Top = 1200  Width = 480  End  Begin VB.CommandButton Operator  Caption = "+"  Height = 480  Index = 1  Left = 2040  TabIndex = 12  Top = 1200  Width = 480  End  Begin VB.CommandButton Operator  Caption = "-"  Height = 480  Index = 3  Left = 2640  TabIndex = 13  Top = 1200  Width = 480  End  Begin VB.CommandButton Number  Caption = "1"  Height = 480  Index = 1  Left = 120  TabIndex = 1  Top = 1800  Width = 480  End  Begin VB.CommandButton Number  Caption = "2"  Height = 480  Index = 2  Left = 720  TabIndex = 2  Top = 1800  Width = 480  End  Begin VB.CommandButton Number  Caption = "3"  Height = 480  Index = 3  Left = 1320  TabIndex = 3  Top = 1800  Width = 480  End  Begin VB.CommandButton Operator  Caption = "X"  Height = 480  Index = 2  Left = 2040  TabIndex = 14  Top = 1800  Width = 480  End  Begin VB.CommandButton Operator  Caption = "/"  Height = 480  Index = 0  Left = 2640  TabIndex = 15  Top = 1800  Width = 480  End  Begin VB.CommandButton Number  Caption = "0"  Height = 480  Index = 0  Left = 120  TabIndex = 0  Top = 2400  Width = 1080  End  Begin VB.CommandButton Decimal  Caption = "."  Height = 480  Left = 1320  TabIndex = 18  Top = 2400  Width = 480  End  Begin VB.CommandButton Operator  Caption = "="  Height = 480  Index = 4  Left = 2040  TabIndex = 16  Top = 2400  Width = 480  End  Begin VB.CommandButton Percent  Caption = "%"  Height = 480  Left = 2640  TabIndex = 17  Top = 2400  Width = 480  End  Begin VB.Label Readout  Alignment = 1 'Right Justify  BackColor = &H0000FFFF&  BorderStyle = 1 'Fixed Single  Caption = "0."  BeginProperty Font  Name = "MS Sans Serif"  Size = 12  Charset = 0  Weight = 700  Underline = 0 'False  Italic = 0 'False  Strikethrough = 0 'False  EndProperty  ForeColor = &H00000000&  Height = 375  Left = 120  TabIndex = 19  Top = 105  Width = 3000  End  End  Attribute VB_Name = "Calculator"  Attribute VB_GlobalNameSpace = False  Attribute VB_Creatable = False  Attribute VB_PredeclaredId = True  Attribute VB_Exposed = False

本回答被提问者采纳

已赞过已踩过<

你对这个回答的评价是？
评论收起

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

您可能关注的内容

python基础学习Python全能工程师2024版，一专多能，就业无忧!

python基础学习7年精心打磨，上万学员好评如潮!从入门到实战，8阶段5大热门领域全覆盖!python基础学习Web/爬虫/AI/大数据...一网打尽，Python全栈技能尽在掌握!特惠价￥5399

class.imooc.com广告

机器学习算法学习从AI零基础入门，多领域实战，灵活就业选择

机器学习算法学习AI多领域实战，打通视觉，NLP，机器学习，深度学习，推荐搜索机器学习算法学习行业体系+工业多领域项目+资深讲师团+贴心服务，快速成为抢手人才

class.imooc.com广告

python新手教程专为初学者设计，多领域实战

class.imooc.com

如何用VB编写一个加减乘除计算器？只要代码!

您可能关注的内容

其他类似问题

为你推荐：