随机的计算式问题

ww200611572

求助大神们一个计算式的问题，

现有如下表达式，□中会随机出现加号或者乘号, 加号不会出现再第一个□
□A□B□C□D□E□F

比如正好出现*A*B+C+D*E+F   这时不能立即运算，需要先制定运算顺序--加括号
最终让表达式出现*A*(B+C+D)*(E+F)

请问这个过程怎么用代码实现？

原始算式	目标算式
*A*B+C+D*E+F	*A*(B+C+D)*(E+F)
*A+B+C*D*E*F	*(A+B+C)*D*E*F
*A*B*C*D*E+F	*A*B*C*D*(E+F)
*A+B+C+D+E*F	*(A+B+C+D+E)*F
	转换的过程就是添加括号的过程，简单的说就是把相加的部分全部括号进去
	转换原则：
	1. 在每个*之后的第一个+之前的字母前加（
	2.在下一个*之前，加 ）     3. 如果（之后再也没有*，那就在最后加）

Jason_WangSS

做下标记,看看别人怎么搞
通常提问要上附件比较有人来帮忙

liulang0808

如二楼所说，请楼主上传模拟附件，提供足够的说明数据及实现步骤要求

lsdongjh

阐述清楚运算规则，基本没难度的

一把小刀闯天下

1. '规则不够那就凑，，，
   
2. 
   
3. Option Explicit
   
4. 
   
5. Sub test()
   
6.   Dim s, i, t, flag As Boolean
   
7.   s = Split("A□□B□□C□□D□□E□□F", "□")
   
8.   Randomize
   
9.   For i = 0 To UBound(s)
   
10.     If Len(s(i)) = 0 Then
    
11.       s(i) = IIf(Rnd < 0.5, "+", "* ")
    
12.     End If
    
13.   Next
    
14.   s = Join(s, vbNullString) & "* "
    
15.   If InStr(s, "*") Then
    
16.     Do
    
17.       flag = False
    
18.       t = Split(s, "* ")
    
19.       For i = 1 To UBound(t) - 1
    
20.         If InStr(t(i), "+") > 0 And InStr(t(i), ")") = 0 Then
    
21.           t(i) = "(" & t(i) & ")"
    
22.           s = Join(t, "* ")
    
23.           flag = True: Exit For
    
24.         End If
    
25.       Next
    
26.     Loop Until Not flag
    
27.   End If
    
28.   s = "*" & Replace(s, Space(1), vbNullString)
    
29.   s = left(s, Len(s) - 1)
    
30.   Debug.Print s & vbNewLine & String(20, "=")
    
31. End Sub

复制代码

ww200611572

liulang0808 发表于 2019-9-9 12:27
如二楼所说，请楼主上传模拟附件，提供足够的说明数据及实现步骤要求

又完善了一下说明，麻烦帮忙看看

ww200611572

一把小刀闯天下 发表于 2019-9-9 12:46
'规则不够那就凑，，，

Option Explicit

又完善了一下说明，麻烦帮忙看看

一把小刀闯天下

ww200611572 发表于 2019-9-9 12:59
又完善了一下说明，麻烦帮忙看看

'继续凑，，，

Option Explicit

Sub test()
  Dim s, i, t, flag As Boolean
  s = Split("A□□B□□C□□D□□E□□F", "□")
  Randomize
  For i = 0 To UBound(s)
    If Len(s(i)) = 0 Then
      s(i) = IIf(Rnd < 0.5, "+", "* ")
    End If
  Next
  s = "* " & Join(s, vbNullString) & "* "
  If InStr(s, "*") Then
    Do
      flag = False
      t = Split(s, "* ")
      For i = 1 To UBound(t) - 1
        If InStr(t(i), "+") > 0 And InStr(t(i), ")") = 0 Then
          t(i) = "(" & t(i) & ")"
          s = Join(t, "* ")
          flag = True: Exit For
        End If
      Next
    Loop Until Not flag
  End If
  s = Replace(s, Space(1), vbNullString)
  s = left(s, Len(s) - 1)
  Debug.Print s & vbNewLine & String(20, "=")
End Sub

liulang0808

1. Function trans_txt(str1)
   
2.     Application.Volatile
   
3.     If InStr(str1, "*") > 0 Then
   
4.         arr = Split(str1, "*")
   
5.         For j = 1 To UBound(arr)
   
6.             If Len(arr(j)) > 1 Then
   
7.                 arr(j) = "(" & arr(j) & ")"
   
8.             End If
   
9.         Next j
   
10.         trans_txt = Join(arr, "*")
    
11.     Else
    
12.         trans_txt = str1
    
13.     End If
    
14. End Function

复制代码

liulang0808

供参考。。。。。。。