”复杂“的代码，简单的算法→【多过程递归】算24代码

香川群子

1. Public drr(3 To 665536, 1 To 2), m, cnt, b
   
2. Sub test2()
   
3.     n = [a1].End(4).Row
   
4.     ReDim arr(1 To n, 1 To 2)
   
5.     For i = 1 To n
   
6.         arr(i, 1) = Cells(i, 1)
   
7.         arr(i, 2) = Cells(i, 1)
   
8.     Next
   
9.     b = [d1]
   
10.     [f1] = 0
    
11.    
    
12.     m = 2
    
13.     cnt = 0
    
14.     zhjs arr, n
    
15.    
    
16.     [e1] = cnt
    
17.     [d3:e65536] = ""
    
18.     [d3].Resize(m, 2) = drr
    
19.     Erase drr
    
20.    
    
21. End Sub
    
22. Sub zhjs(arr(), n)
    
23.     ReDim brr(1 To n - 1, 1 To 2)
    
24.     For i = 1 To n - 1
    
25.         For j = i + 1 To n
    
26.             If n > 2 Then
    
27.                 l = 0
    
28.                 For k = 1 To n
    
29.                     If k <> i And k <> j Then
    
30.                         l = l + 1
    
31.                         brr(l, 1) = arr(k, 1)
    
32.                         brr(l, 2) = arr(k, 2)
    
33.                     End If
    
34.                 Next
    
35.             End If
    
36.             
    
37.             For f = 1 To 5
    
38.             
    
39.                 If f = 4 And arr(i, 1) = 0 Then
    
40.                     [f1] = [f1] + 1
    
41. '                    MsgBox arr(i, 2)
    
42. '                    [a1].End(4) = [a1].End(4) + 1
    
43. '                    End
    
44.                 ElseIf f = 5 And arr(j, 1) = 0 Then
    
45.                     [f1] = [f1] + 1
    
46. '                    MsgBox arr(j, 2)
    
47. '                    [a1].End(4) = [a1].End(4) + 1
    
48. '                    End
    
49.                 Else
    
50.                     brr(n - 1, 1) = js(arr(i, 1), arr(j, 1), f)
    
51.                     brr(n - 1, 2) = jg(arr(i, 2), arr(j, 2), f)
    
52.                     If n = 2 Then
    
53.                         cnt = cnt + 1
    
54.                         If Round(brr(n - 1, 1), 12) = b Then
    
55.                             m = m + 1
    
56.                             drr(m, 1) = brr(n - 1, 1)
    
57.                             drr(m, 2) = brr(n - 1, 2)
    
58.                         End If
    
59.                     Else
    
60.                         zhjs brr, n - 1
    
61.                     End If
    
62.                 End If
    
63.             Next
    
64.         Next
    
65.     Next
    
66. End Sub
    
67. 
    
68. Function js(n1, n2, f)
    
69.     Select Case f
    
70.         Case 1
    
71.             js = n1 + n2
    
72.         Case 2
    
73.             If n1 > n2 Then js = n1 - n2 Else js = n2 - n1
    
74.         Case 3
    
75.             js = n1 * n2
    
76.         Case 4
    
77.             If n1 = 0 Then js = "!0" Else js = n2 / n1
    
78.         Case 5
    
79.             If n2 = 0 Then js = "!0" Else js = n1 / n2
    
80.     End Select
    
81. End Function
    
82. 
    
83. Function jg(n1, n2, f)
    
84.     Select Case f
    
85.         Case 1
    
86.             jg = "(" & n1 & "+" & n2 & ")"
    
87.         Case 2
    
88.             jg = "(" & n2 & "-" & n1 & ")"
    
89.         Case 3
    
90.             jg = "(" & n1 & "*" & n2 & ")"
    
91.         Case 4
    
92.             If n1 = 0 Then jg = "/Zero" Else jg = "(" & n2 & "/" & n1 & ")"
    
93.         Case 5
    
94.             If n2 = 0 Then jg = "/Zero" Else jg = "(" & n1 & "/" & n2 & ")"
    
95.     End Select
    
96. End Function
    
97. 
    
98. 
    

复制代码

hyqzzs

太复杂，没看懂。收藏

gjj136138139

这个可能是最简单易懂的24点的计算方法了。顶起。

普发银行

Sub calc3(b(), t1, t2, t3)
     c(1) = b(1) + b(2)
     c(2) = b(3)
     calc2 c, "(" & t1 & "+" & t2 & ")", t3
老师，这段能详细解释一下吗，特别是最后一句
b(1) + b(2)
怎么传递給(" & t1 & "+" & t2 & ")

黄金万两︶ㄣ

路过，日后慢慢学习

普发银行

顶一下，解释一下啊

缔造者

香川群子 发表于 2012-1-27 23:37

有重复项。

Excel2119

香川群子 发表于 2012-1-27 23:37

越来越喜欢欣赏香川大师的作品了，感谢