VB求一个科学计算器源代码，谢谢啦

由于本人级别不够，不能上传照片

在你的QQ邮箱里

运行界面，编程界面我发到你的邮箱里

Option Explicit

Dim s_id As Integer

Dim s As String

Dim s1 As Double

Function p(x As Double) As Boolean

If InStr(x, "") = 0 Then

p = False

Else

p = True

End If

End Function

Private Sub C_Click(Index As Integer)

Select Case s_id

Case 0, 2

Text1Text = Text1Text & Index

Case 1

Text1Text = Index

s_id = 2

Case 3

Text1Text = Index

s_id = 0

End Select

End Sub

Private Sub CmdAdd_Click()

Select Case s_id

Case 0

s = "+"

s1 = Text1Text

s_id = 1

Case 2

CmdDY_Click

s = "+"

s1 = Text1Text

s_id = 1

End Select

End Sub

Private Sub CmdBK_Click()

If Len(Text1Text) > 0 Then

Text1Text = Mid(Text1Text, 1, Len(Text1Text) - 1)

End If

End Sub

Private Sub CmdC_Click()

s_id = 0

Text1Text = ""

End Sub

Private Sub CmdCF_Click()

s_id = 1

s = ""

s1 = Text1Text

End Sub

Private Sub CmdDY_Click()

If s_id = 2 Then

Select Case s

Case "+"

Text1Text = s1 + Val(Text1Text)

s_id = 3

Case "-"

Text1Text = s1 - Val(Text1Text)

s_id = 3

Case ""

Text1Text = s1 Val(Text1Text)

s_id = 3

Case "/"

Text1Text = s1 / Val(Text1Text)

s_id = 3

End Select

End If

End Sub

Private Sub CmdJF_Click()

Select Case s_id

Case 0

s = "-"

s1 = Text1Text

s_id = 1

Case 2

CmdDY_Click

s = "-"

s1 = Text1Text

s_id = 1

End Select

End Sub

Private Sub CmdP_Click()

If Not p(Text1Text) Then

Text1Text = Text1Text & ""

End If

End Sub

Private Sub CmdSQRT_Click()

Text1Text = Sqr(Val(Text1Text))

End Sub

Private Sub CmdX1_Click()

Text1Text = 1 / Val(Text1Text)

End Sub

Private Sub CmdZF_Click()

Text1Text = -Val(Text1Text)

End Sub

Private Sub Command20_Click()

s_id = 1

s = "/"

s1 = Text1Text

End Sub

Private Sub Form_Load()

Dim i As Integer

For i = 0 To 9

C(i)Caption = i

Next i

s_id = 0

End Sub

分类: 电脑/网络 >> 程序设计 >> 其他编程语言

问题描述:

不用很复杂的，只要能实现一般的加减乘除就行了．急啊！！

高手请多帮忙

解析:

Dim num1, num2 As Double

Dim a1, a2, a3 As Integer

Private Sub add_Click()

a2 = 1

If a3 = 0 Then

num2 = num1

End If

a1 = 10

labdisCaption = ""

addEnabled = False

subEnabled = False

mulEnabled = False

divEnabled = False

poiEnabled = False

num1 = 0

a3 = 0

End Sub

Private Sub cls_Click()

num1 = 0

num2 = 0

a1 = 10

a2 = 0

a3 = 0

labdisCaption = ""

addEnabled = False

subEnabled = False

mulEnabled = False

divEnabled = False

poiEnabled = False

End Sub

Private Sub div_Click()

a2 = 4

If a3 = 0 Then

num2 = num1

End If

a1 = 10

labdisCaption = ""

addEnabled = False

subEnabled = False

mulEnabled = False

divEnabled = False

poiEnabled = False

num1 = 0

a3 = 0

End Sub

Private Sub equ_Click()

Select Case a2

Case 1

num2 = num1 + num2

Case 2

num2 = num2 - num1

Case 3

num2 = num2 num1

Case 4

num2 = num2 / num1

End Select

labdisCaption = Str$(num2)

If num2 < 1 And num2 > 0 Then

labdisCaption = "0" + Mid$(Str$(num2), 2)

End If

If num2 < 0 And num2 > -1 Then

labdisCaption = "-0" + Mid$(Str$(num2), 2)

End If

equEnabled = False

a2 = 0

addEnabled = True

subEnabled = True

mulEnabled = True

divEnabled = True

poiEnabled = False

num1 = 0

a3 = 1

a1 = 10

End Sub

Private Sub mul_Click()

a2 = 3

If a3 = 0 Then

num2 = num1

End If

a1 = 10

labdisCaption = ""

addEnabled = False

subEnabled = False

mulEnabled = False

divEnabled = False

poiEnabled = False

num1 = 0

a3 = 0

End Sub

Private Sub num0_Click()

If a3 = 1 Then

labdisCaption = ""

a3 = 0

poiEnabled = True

End If

labdisCaption = labdisCaption + "0"

If a1 <> 10 Then

num1 = num1 + a1 0

a1 = a1 / 10

Else

poiEnabled = True

num1 = num1 a1 + 0

End If

If a2 = 0 Then

addEnabled = True

mulEnabled = True

subEnabled = True

divEnabled = True

Else

equEnabled = True

End If

If a2 = 4 And num1 = 0 Then

equEnabled = False

End If

End Sub

Private Sub num1_Click()

If a3 = 1 Then

labdisCaption = ""

a3 = 0

poiEnabled = True

End If

labdisCaption = labdisCaption + "1"

If a1 <> 10 Then

num1 = num1 + a1 1

a1 = a1 / 10

Else

poiEnabled = True

num1 = num1 a1 + 1

End If

If a2 = 0 Then

addEnabled = True

mulEnabled = True

subEnabled = True

divEnabled = True

Else

equEnabled = True

End If

End Sub

Private Sub num2_Click()

If a3 = 1 Then

labdisCaption = ""

a3 = 0

poiEnabled = True

End If

labdisCaption = labdisCaption + "2"

If a1 <> 10 Then

num1 = num1 + a1 2

a1 = a1 / 10

Else

poiEnabled = True

num1 = num1 a1 + 2

End If

If a2 = 0 Then

addEnabled = True

mulEnabled = True

subEnabled = True

divEnabled = True

Else

equEnabled = True

End If

End Sub

Private Sub num3_Click()

If a3 = 1 Then

labdisCaption = ""

a3 = 0

poiEnabled = True

End If

labdisCaption = labdisCaption + "3"

If a1 <> 10 Then

num1 = num1 + a1 3

a1 = a1 / 10

Else

poiEnabled = True

num1 = num1 a1 + 3

End If

If a2 = 0 Then

addEnabled = True

mulEnabled = True

subEnabled = True

divEnabled = True

Else

equEnabled = True

End If

End Sub

Private Sub num4_Click()

If a3 = 1 Then

labdisCaption = ""

a3 = 0

poiEnabled = True

End If

labdisCaption = labdisCaption + "4"

If a1 <> 10 Then

num1 = num1 + a1 4

a1 = a1 / 10

Else

poiEnabled = True

num1 = num1 a1 + 4

End If

If a2 = 0 Then

addEnabled = True

mulEnabled = True

subEnabled = True

divEnabled = True

Else

equEnabled = True

End If

End Sub

Private Sub num5_Click()

If a3 = 1 Then

labdisCaption = ""

a3 = 0

poiEnabled = True

End If

labdisCaption = labdisCaption + "5"

If a1 <> 10 Then

num1 = num1 + a1 5

a1 = a1 / 10

Else

poiEnabled = True

num1 = num1 a1 + 5

End If

If a2 = 0 Then

addEnabled = True

mulEnabled = True

subEnabled = True

divEnabled = True

Else

equEnabled = True

End If

End Sub

Private Sub num6_Click()

If a3 = 1 Then

labdisCaption = ""

a3 = 0

poiEnabled = True

End If

labdisCaption = labdisCaption + "6"

If a1 <> 10 Then

num1 = num1 + a1 6

a1 = a1 / 10

Else

poiEnabled = True

num1 = num1 a1 + 6

End If

If a2 = 0 Then

addEnabled = True

mulEnabled = True

subEnabled = True

divEnabled = True

Else

equEnabled = True

End If

End Sub

Private Sub num7_Click()

If a3 = 1 Then

labdisCaption = ""

a3 = 0

poiEnabled = True

End If

labdisCaption = labdisCaption + "7"

If a1 <> 10 Then

num1 = num1 + a1 7

a1 = a1 / 10

Else

poiEnabled = True

num1 = num1 a1 + 7

End If

If a2 = 0 Then

addEnabled = True

mulEnabled = True

subEnabled = True

divEnabled = True

Else

equEnabled = True

End If

End Sub

Private Sub num8_Click()

If a3 = 1 Then

labdisCaption = ""

a3 = 0

poiEnabled = True

End If

labdisCaption = labdisCaption + "8"

If a1 <> 10 Then

num1 = num1 + a1 8

a1 = a1 / 10

Else

poiEnabled = True

num1 = num1 a1 + 8

End If

If a2 = 0 Then

addEnabled = True

mulEnabled = True

subEnabled = True

divEnabled = True

Else

equEnabled = True

End If

End Sub

Private Sub num9_Click()

If a3 = 1 Then

labdisCaption = ""

a3 = 0

poiEnabled = True

End If

labdisCaption = labdisCaption + "9"

If a1 <> 10 Then

num1 = num1 + a1 9

a1 = a1 / 10

Else

poiEnabled = True

num1 = num1 a1 + 9

End If

If a2 = 0 Then

addEnabled = True

mulEnabled = True

subEnabled = True

divEnabled = True

Else

equEnabled = True

End If

End Sub

Private Sub off_Click()

Unload Me

End Sub

Private Sub poi_Click()

a1 = 01

poiEnabled = False

labdisCaption = labdisCaption + ""

equEnabled = False

addEnabled = False

mulEnabled = False

subEnabled = False

divEnabled = False

End Sub

Private Sub sub_Click()

a2 = 2

If a3 = 0 Then

num2 = num1

End If

a1 = 10

labdisCaption = ""

addEnabled = False

subEnabled = False

mulEnabled = False

divEnabled = False

poiEnabled = False

num1 = 0

a3 = 0

End Sub

Private Sub Form_Load()

num1 = 0

num2 = 0

a1 = 10

a2 = 0

a3 = 0

labdisCaption = ""

addEnabled = False

subEnabled = False

mulEnabled = False

divEnabled = False

poiEnabled = False

End Sub

' ------------------------------------------------------------------------

' 版权所有 (C) 1994 Microsoft Corporation

'

' 您可以免费以任何方式使用、修改、复制并分发您认为有用的

' 示例应用程序文件 (或任何修改过的版本)。Microsoft 对任何

' 示例应用程序文件不做任何保证，不负任何责任和义务。

' ------------------------------------------------------------------------

Option Explicit

Dim 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 = 0

Op2 = 0

Form_Load

End Sub

' CE (取消输入) 按钮的 Click 事件过程。

Private Sub CancelEntry_Click()

Readout = Format(0, "0")

DecimalFlag = False

LastInput = "CE"

End Sub

' 小数点 () 按钮的 Click 事件过程

' 如果上一次按键为运算符，初始化 readout 为 "0"；

' 否则显示时追加一个小数点。

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")

'DecimalCaption = Format(0, "")

End Sub

' 数字键 (0-9) 的 Click 事件过程

' 向显示中的数追加新数。

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

' 运算符 (+, -, x, /, =) 的 Click 事件过程

' 如果接下来的按键是数字键，增加 NumOps。

' 如果有一个 *** 作数，则设置 Op1。

' 如果有两个 *** 作数，则将 Op1 设置为 Op1 与

' 当前输入字符串的运算结果，并显示结果。

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 "除数不能为零", 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

' 百分比键 (%) 的 Click 事件过程

' 计算并显示第一个 *** 作数的百分数。

Private Sub Percent_Click()

Readout = Readout / 100

LastInput = "Ops"

OpFlag = "%"

NumOps = NumOps + 1

DecimalFlag = True

End Sub

分类: 电脑/网络 >> 程序设计 >> 其他编程语言

解析:

其实比较简单啦,用一个窗体就可以实现啦!

我自己写的,你可以看看

Option Explicit

Dim strNumber As String

Dim strPoint As String

Dim dblNum1 As Double

Dim intOperator As Integer

'清除结果

Private Sub cmdGT_Click()

txtDisplayText = "0"

strNumber = ""

strPoint = ""

intOperator = 7

End Sub

'输入数字

Private Sub cmdNumber_Click(Index As Integer)

strNumber = strNumber & cmdNumber(Index)Caption

txtDisplayText = strNumber & strPoint

End Sub

Private Sub cmdOnOff_Click()

End

End Sub

'运算过程

Private Sub cmdOperator_Click(Index As Integer)

Dim dblnum2 As Double

'是第一次单击运算符时，将输入的值先赋给第一个数，否则赋值给第二个数进行运算

If intOperator = 7 Then

dblNum1 = CDbl(txtDisplayText)

Else

dblnum2 = CDbl(Val(txtDisplayText))

'根据输入的符号进行运算

'求普通运算

Select Case intOperator

Case 0

dblNum1 = dblNum1 + dblnum2

Case 1

dblNum1 = dblNum1 - dblnum2

Case 2

dblNum1 = dblNum1 dblnum2

Case 3

If dblnum2 <> 0 Then

dblNum1 = dblNum1 / dblnum2

Else

MsgBox "除数不能为“0”！请重新输入除数。", vbOKOnly + vbInformation, "除零错误"

Index = intOperator

End If

Case 6

dblNum1 = dblNum1 dblnum2 / 100

End Select

End If

'取得当前输入的运算符，以做下次运算

intOperator = Index

strNumber = ""

txtDisplay = CStr(dblNum1)

'判断是否为文本框中的数字加点

If Not txtDisplay Like "" Then

txtDisplayText = txtDisplayText & ""

End If

End Sub

Private Sub cmdOtherOper_Click(Index As Integer)

Dim dblNum As Double

'求平方根，平方，

dblNum = CDbl(Val(txtDisplayText))

Select Case Index

Case 0

'验证数据是否有效

If dblNum >= 0 Then

txtDisplayText = CStr(Sqr(dblNum))

Else

MsgBox "负数不能开平方根！", _

vbOKOnly + vbCritical, "开平方根错误"

End If

Case 1

txtDisplayText = CStr(dblNum ^ 2)

End Select

'判断是否为文本框中的数字加点

If Not txtDisplay Like "" Then

txtDisplayText = txtDisplayText & ""

End If

End Sub

Private Sub cmdPoint_Click()

strNumber = strNumber & strPoint

strPoint = ""

End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

'使被按下的数字键的对应按钮取得焦点

Select Case KeyCode

Case 48 To 57

cmdNumber(KeyCode - 48)SetFocus

Case 96 To 105

cmdNumber(KeyCode - 96)SetFocus

Case Else

'使按下的符号键对应的按钮取得焦点

If KeyCode = 107 Or (Shift = vbShiftMask And KeyCode = 187) Then

cmdOperator(0)SetFocus

cmdOperator_Click (0)

ElseIf KeyCode = 109 Or KeyCode = 189 Then

cmdOperator(1)SetFocus

cmdOperator_Click (1)

ElseIf KeyCode = 106 Or (Shift = vbShiftMask And KeyCode = 56) Then

cmdOperator(2)SetFocus

cmdOperator_Click (2)

ElseIf KeyCode = 111 Or KeyCode = 191 Then

cmdOperator(3)SetFocus

cmdOperator_Click (3)

ElseIf KeyCode = 13 Then

cmdOperator(7)SetFocus

cmdOperator_Click (7)

ElseIf KeyCode = 8 Then

cmdGTSetFocus

Call cmdGT_Click

End If

End Select

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

'将合法的数据输入到文本框

Select Case KeyAscii

Case 48 To 58

'调用数字键点击处理程序

cmdNumber_Click KeyAscii - 48

KeyAscii = 0

Case 46

'调用小数点输入

cmdPoint_Click

KeyAscii = 0

Case 13

'当敲击回车时，不能触发Form的 KeyUp 事件，因此在这里设置文本框的焦点

txtDisplaySetFocus

Case Else

KeyAscii = 0

End Select

End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

txtDisplaySetFocus

End Sub

Private Sub Form_Load()

strNumber = ""

strPoint = ""

intOperator = 7

End Sub

简易精密加法计算器

'添加text1,text2,text3,command1,其中，textbox的MultiLine属性设为True,ScrollBars属性都设为2-Vertical

Private Sub Command1_Click()

Dim i As Integer, j As Integer

Dim IntDc As Integer '要分的端长

Dim StrJs1 As String, StrJs2 As String '两个大数

Dim IntJwbj As Integer '进位标记

Dim StrD1 As String, StrD2 As String '

Dim LonD1, LonD2 '

Dim SonTemp '临时计算结果

Dim StrTemp As String '临时结果

Dim StrJsjg As String '最终结果

StrJs1 = Text1

StrJs2 = Text2

IntDc = 14

IntSzfd1 = Int(Len(StrJs1) / IntDc)

IntSzfd2 = Int(Len(StrJs2) / IntDc)

strgemp = ""

Do While Len(StrJs1) >= IntDc And Len(StrJs2) >= IntDc

LonD1 = Val(Right(StrJs1, IntDc))

LonD2 = Val(Right(StrJs2, IntDc))

SonTemp = LonD1 + LonD2 + IntJwbj

IntJwbj = 0

StrTemp = LTrim(Str(SonTemp))

If Len(StrTemp) > IntDc Then

IntJwbj = Val(Mid(StrTemp, 1, 1))

StrJsjg = Mid(StrTemp, 2) & StrJsjg

Else

StrJsjg = StrTemp & StrJsjg

End If

For i = 1 To IntDc: Mid(StrJs1, Len(StrJs1) - IntDc + i) = " ": Next i

StrJs1 = RTrim(StrJs1)

For i = 1 To IntDc: Mid(StrJs2, Len(StrJs2) - IntDc + i) = " ": Next i

StrJs2 = RTrim(StrJs2)

Loop

If Len(StrJs2) > Len(StrJs1) Then

StrTemp = StrJs1

StrJs1 = StrJs2

StrJs2 = StrTemp

End If

IntDc = Len(StrJs2)

LonD1 = Val(Right(StrJs1, IntDc))

LonD2 = Val(Right(StrJs2, IntDc))

SonTemp = LonD1 + LonD2 + IntJwbj

IntJwbj = 0

StrTemp = LTrim(Str(SonTemp))

If Len(StrTemp) > IntDc Then

IntJwbj = Val(Mid(StrTemp, 1, 1))

StrJsjg = Mid(StrTemp, 2) & StrJsjg

Else

StrJsjg = StrTemp & StrJsjg

End If

For i = 1 To IntDc: Mid(StrJs1, Len(StrJs1) - IntDc + i) = " ": Next i

StrJs1 = RTrim(StrJs1)

IntDc = 14

Do While IntJwbj > 0

If Len(StrJs1) = 0 And IntJwbj > 0 Then

StrJsjg = Str(IntJwbj) & StrJsjg

GoTo Tc

End If

If Len(StrJs1) < IntDc Then IntDc = Len(StrJs1)

LonD1 = Val(Right(StrJs1, IntDc))

SonTemp = LonD1 + IntJwbj

IntJwbj = 0

StrTemp = LTrim(Str(SonTemp))

If Len(StrTemp) > IntDc Then

IntJwbj = Val(Mid(StrTemp, 1, 1))

StrJsjg = Mid(StrTemp, 2) & StrJsjg

Else

StrJsjg = StrTemp & StrJsjg

End If

For i = 1 To IntDc: Mid(StrJs1, Len(StrJs1) - IntDc + i) = " ": Next i

StrJs1 = RTrim(StrJs1)

Loop

StrJsjg = StrJs1 & StrJsjg

Tc:

Text3 = StrJsjg

End Sub

Private Sub Form_Load()

Text1 = "435465324345341211254654221553532435432121215645212345452215452256421542"

Text2 = "62343545668432465435346554542454324354564554354345435435454615434354354554558"

Text3 = ""

End Sub

更多VB代码请关注我的博客：>

我帮你做一个吧,做好看点的,

1,鼠标移上去,按钮能变色

2,精美的介面

3,支持用户配色

4,加智能的API,公式换算(例如: 输入条件,1+A= 2  结果是 A= 1)

5 ,在做了,等等我看图

'给个短的给你，用的控件数组'添加按钮cmdNum(10)，其index为0到9，表示10个数字'添加按钮cmdOper(4)，其index为1到4，表示运算符'添加按钮cmdOk，为等于号'添加按钮cmdClear，为清除按钮'然后添加如下代码：Dim flag As IntegerDim isClickNumLast As BooleanDim s1 As String '前一步的值Dim s2 As String '当前框中的值Private Sub Form_Load() isClickNumLast = True flag = 1End Sub'点数字的 *** 作Private Sub cmdNum_Click(Index As Integer) Text1Text = IIf(isClickNumLast, Text1Text, "") & CStr(Index) isClickNumLast = TrueEnd Sub'点运算符的 *** 作Private Sub cmdOper_Click(Index As Integer) If isClickNumLast Then Call computeResult Text1Text = s1 End If flag = Index isClickNumLast = FalseEnd Sub'得出结果Private Sub cmdOK_Click() Call computeResult Text1Text = s1 isClickNumLast = FalseEnd Sub'清屏Private Sub cmdClear_Click() '清屏 Text1Text = "" isClickNumLast = True flag = 1End Sub'计算结果Private Sub computeResult() s2 = Text1Text Select Case flag 'flag为运算符，分别为+-/ Case 1 s1 = CStr(Val(s1) + Val(s2)) Case 2 s1 = CStr(Val(s1) - Val(s2)) Case 3 s1 = CStr(Val(s1) Val(s2)) Case 4 s1 = CStr(Val(s1) / Val(s2)) End SelectEnd Sub'界面预览：'

'源码下载：'>

以上就是关于VB求一个科学计算器源代码，谢谢啦全部的内容，包括:VB求一个科学计算器源代码，谢谢啦、用vb语言编一个实现计算器功能的程序、用vb编写一个简单计算器程序 可以进行基本四则基本运算即可 谢谢各位等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！