[已解决]指定数据添加+-*/等于规定值

lichuanboy44

详见以下图片，期待中

最佳答案

月排行榜 / 总排行榜

grf1973

2016-5-5 11:09

少写了一个循环。。。。。。P2有9种可能

1. Sub tt()
   
2.     t1 = Timer
   
3.     p0 = Array("", "(", "((")
   
4.     p1 = Array("+", "-", "*", "/", "*(", "/(", "*((", "/((")
   
5.     p2 = Array("+", "-", "*", "/", "*(", "/(", ")*", ")/", ")*(", ")/(")
   
6.     p3 = Array("+", "-", "*", "/", ")*", ")/", "))*", "))/")
   
7.     p4 = Array("", ")", "))")
   
8.    
   
9.     On Error Resume Next
   
10.     For i0 = 0 To 2: For i1 = 0 To 7: For i2 = 0 To 9: For i3 = 0 To 7: For i4 = 0 To 2
    
11.         x = p0(i0) & 987 & p1(i1) & 65 & p2(i2) & 43 & p3(i3) & 21 & p4(i4)
    
12.         y = 0
    
13.         y = Val(Application.Evaluate(x))
    
14.         If y = 5076 Then
    
15.             n = n + 1
    
16.             Cells(n, 1) = x & "=" & y
    
17.         End If
    
18.     Next: Next: Next: Next: Next
    
19.     MsgBox Timer - t1
    
20. End Sub
    

复制代码

跳转到最佳答案楼层

grf1973

1. Sub tt()
   
2.     t1 = Timer
   
3.     p0 = Array("", "(", "((")
   
4.     p1 = Array("+", "-", "*", "/", "*(", "/(", "*((", "/((")
   
5.     p2 = Array("+", "-", "*", "/", "*(", "/(", ")*(", ")/(")
   
6.     p3 = Array("+", "-", "*", "/", ")*", ")/", "))*", "))/")
   
7.     p4 = Array("", ")", "))")
   
8.    
   
9.     On Error Resume Next
   
10.     For i0 = 0 To 2: For i1 = 0 To 7: For i3 = 0 To 7: For i4 = 0 To 2
    
11.         x = p0(i0) & 987 & p1(i1) & 65 & p2(i2) & 43 & p3(i3) & 21 & p4(i4)
    
12.         y = 0
    
13.         y = Val(Application.Evaluate(x))
    
14.         If y = 5076 Then
    
15.             n = n + 1
    
16.             Cells(n, 1) = x & "=" & y
    
17.         End If
    
18.     Next: Next: Next: Next
    
19.     MsgBox Timer - t1
    
20. End Sub
    

复制代码

grf1973

运行会得到10个解，其实都是一样的，加了很多无谓的括号
987*(65+43)/21=5076

grf1973

少写了一个循环。。。。。。P2有9种可能

1. Sub tt()
   
2.     t1 = Timer
   
3.     p0 = Array("", "(", "((")
   
4.     p1 = Array("+", "-", "*", "/", "*(", "/(", "*((", "/((")
   
5.     p2 = Array("+", "-", "*", "/", "*(", "/(", ")*", ")/", ")*(", ")/(")
   
6.     p3 = Array("+", "-", "*", "/", ")*", ")/", "))*", "))/")
   
7.     p4 = Array("", ")", "))")
   
8.    
   
9.     On Error Resume Next
   
10.     For i0 = 0 To 2: For i1 = 0 To 7: For i2 = 0 To 9: For i3 = 0 To 7: For i4 = 0 To 2
    
11.         x = p0(i0) & 987 & p1(i1) & 65 & p2(i2) & 43 & p3(i3) & 21 & p4(i4)
    
12.         y = 0
    
13.         y = Val(Application.Evaluate(x))
    
14.         If y = 5076 Then
    
15.             n = n + 1
    
16.             Cells(n, 1) = x & "=" & y
    
17.         End If
    
18.     Next: Next: Next: Next: Next
    
19.     MsgBox Timer - t1
    
20. End Sub
    

复制代码

lichuanboy44

grf1973 发表于 2016-5-5 11:09
少写了一个循环。。。。。。P2有9种可能

'算法思路：如果给定的点数为a、b、c、d，运算符号为设为X、Y、Z，表达式则为：aXbYcZd
'如果通过括号来强制规定运算的优先顺序，则共有如下5种运算模式(3!=6种,其中一种重复)
'ss1 = "((aXb)Yc)Zd":ss2 = "(aXb)Y(cZd)":ss3 = "(aX(bYc))Zd"
'ss4 = "aX((bYc)Zd)":ss5 = "aX(bY(cZd))"
这样处理后，速度可提高至0.03秒左右。