如何实现四则运算分步运算？？？

xc111006 · 发表于 2018-9-25 16:08

使用Evaluate计算时怎样实现分步计算？

比如计算46+54*3
怎样得到46+162
再得到208

或者（46+54）*3
先得到100*3
再得到300

谢谢大神~

zopey · 发表于 2018-9-25 16:58

思路是逆波兰表达式

zopey · 发表于 2018-9-25 17:44

最后在结果已经有了，有空再考虑取出中间运算的步骤。

逆波兰运算.zip (19.75 KB, 下载次数: 35)

gzlb · 发表于 2018-9-25 20:32

小学四则运算，可自动列出解题步骤。 [url]http://club.excelhome.net/thread-660010-1-1.html (出处: ExcelHome技术论坛)[/url]
不知道是否合你意，希望能有帮助。

xc111006 · 发表于 2018-9-26 08:15

3楼正解，完美解决，谢谢~

zopey · 发表于 2018-9-26 09:09

Sub dgjs(s) '递归计算过程
Dim str
Static kj
If kj = 0 Then kj = 4
If UBound(s) = 2 Then '如果数组中只剩最后3个时
      Cells(ki, kj) = Application.Evaluate(s(0) & s(2) & s(1)) '直接计算返回计算结果
      ki = ki + 1: kj = 4
Else
      ReDim r(UBound(s) - 2) '每次重新定义一个少2个元素的数组r
      For i = 0 To UBound(r) '检查直到非数值即运算符号时停止
         If Not IsNumeric(s(i + 2)) Then Exit For Else r(i) = s(i) '数值移动到新数组r
      Next
      r(i) = Application.Evaluate(s(i) & s(i + 2) & s(i + 1)) '计算这一部的结果并存入新数组
      '注意每一次【n1 n2 f = n】3个变量运算后合并为一个变量，结果都会减少2个变量。
      For j = i + 1 To UBound(r) '继续把未结束的剩余部分搬迁到新数组
         r(j) = s(j + 2)
      Next

      str = ""
      For i = 0 To UBound(r)
         str = str & r(i) & " "
      Next
      Cells(ki, kj) = str: kj = kj + 1

      s = Split(Trim(str), " ")
      Call dgjs(s) '继续下一层的递归计算
End If
End Sub

逆波兰分解.zip (21.07 KB, 下载次数: 19)

xc111006 · 发表于 2018-9-26 10:50

递归太恶心，我把它改成函数+循环，相当好用

		自动登录	找回密码
密码			免费注册

[求助] 如何实现四则运算分步运算？？？

评分