[已解决]VBA不同字母代表不同数字

vbyou127

VBA不同字母代表不同数字

最佳答案

月排行榜 / 总排行榜

grf1973

2016-4-25 15:09

引用2楼成果，暴力搜索。

1. Sub tt()
   
2.     '  s e v e n
   
3.     '+ t h r e e
   
4.     '+     t w o
   
5.     '____________
   
6.     't w e l v e
   
7.     '===>>   t=1:w=0:s=8 or 9:h=0 or 9:n+o=10
   
8.     [a:a] = ""
   
9.     t = 1: w = 0
   
10.     For s = 8 To 9
    
11.         For e = 0 To 9
    
12.             For v = 0 To 9
    
13.                 For n = 1 To 9
    
14.                     x1 = Val(s & e & v & e & n)
    
15.                     o = 10 - n
    
16.                     For h = 0 To 9 Step 9
    
17.                         For r = 0 To 9
    
18.                             x2 = Val(t & h & r & e & e)
    
19.                             x3 = Val(t & w & o)
    
20.                             ss = CStr(x1 + x2 + x3)
    
21.                             l = Mid(ss, 4, 1)
    
22.                             If Chk(t & h & r & e & s & n & w & o & l & v) Then
    
23.                                 If ss = t & w & e & l & v & e Then
    
24.                                     pp = pp + 1
    
25.                                     Cells(pp, 1) = x1 & "+" & x2 & "+" & x3 & "=" & ss
    
26.                                 End If
    
27.                             End If
    
28.     Next: Next: Next: Next: Next: Next
    
29. End Sub
    
30. Function Chk(s) As Boolean
    
31.     Dim i%
    
32.     'If InStr(s, "0") Then Exit Function
    
33.     For i = 1 To Len(s) - 1
    
34.         If InStr(i + 1, s, Mid(s, i, 1)) Then Exit Function
    
35.     Next
    
36.     Chk = True
    
37. End Function

复制代码

跳转到最佳答案楼层

lichuanboy44

抛砖引玉，特作如下分析：
1、由个位数N+E+O=E(尾数）可知，N+O=10
2、由万位S+T进位后（最大和为17,千位进位到万位也不可能超过2），十万位上有个T可知，T必为1。
3、由上面S+1进位1可知，S为8（后进1）或S为9（不进位），但无论S为8或9,W必为0。
4、十位有个W为0，则知十位向百位最多进位1，由于V+R最大值17，则百位V+R+T+最多进位1可知，其最大和为19，故百位向千位最多进1.
5、千位E+H后和尾为E，可知H和百位进位数相加的和必为10，由上4可知，百位向千位最多进位1，故H=9

分析了才发现，原来是10个数据全排列，然后将数字对应到相应位置，判定值是相等就行了。

grf1973

引用2楼成果，暴力搜索。

1. Sub tt()
   
2.     '  s e v e n
   
3.     '+ t h r e e
   
4.     '+     t w o
   
5.     '____________
   
6.     't w e l v e
   
7.     '===>>   t=1:w=0:s=8 or 9:h=0 or 9:n+o=10
   
8.     [a:a] = ""
   
9.     t = 1: w = 0
   
10.     For s = 8 To 9
    
11.         For e = 0 To 9
    
12.             For v = 0 To 9
    
13.                 For n = 1 To 9
    
14.                     x1 = Val(s & e & v & e & n)
    
15.                     o = 10 - n
    
16.                     For h = 0 To 9 Step 9
    
17.                         For r = 0 To 9
    
18.                             x2 = Val(t & h & r & e & e)
    
19.                             x3 = Val(t & w & o)
    
20.                             ss = CStr(x1 + x2 + x3)
    
21.                             l = Mid(ss, 4, 1)
    
22.                             If Chk(t & h & r & e & s & n & w & o & l & v) Then
    
23.                                 If ss = t & w & e & l & v & e Then
    
24.                                     pp = pp + 1
    
25.                                     Cells(pp, 1) = x1 & "+" & x2 & "+" & x3 & "=" & ss
    
26.                                 End If
    
27.                             End If
    
28.     Next: Next: Next: Next: Next: Next
    
29. End Sub
    
30. Function Chk(s) As Boolean
    
31.     Dim i%
    
32.     'If InStr(s, "0") Then Exit Function
    
33.     For i = 1 To Len(s) - 1
    
34.         If InStr(i + 1, s, Mid(s, i, 1)) Then Exit Function
    
35.     Next
    
36.     Chk = True
    
37. End Function

复制代码