趣味找数字

tanhong

一张表中的几百个数字中查找出并提示出三个数,且这三个数之和等于768.68

这是一个网友的求助，觉得挺有意思的，希望各位高手开动一下思路，出手相助之．

pureshadow

笨妖想很久了.........[:30]

chenwm1973

我觉得只能用枚举法，如果数据不再增加，那还能忍受，否则.......
[:31] [:31] [:31]

tanhong

原帖由 chenwm1973 于 2008-6-5 08:14 发表
我觉得只能用枚举法，如果数据不再增加，那还能忍受，否则.......
[:31] [:31] [:31]

如果用枚举法,那运算的量将非常庞大,有没有更好的算法

rjacky

为什么之和要是768.68[:45]

tanhong

原帖由 rjacky 于 2008-6-5 08:54 发表
为什么之和要是768.68[:45]

是网友的要求,你也可以用其它的数

ui

只能逐个去对比了, 可能算法会影响速度

caojun19730918

[:50]

欢欢

Sub quweishuzi()
For X1 = 1 To 15
   For Y1 = 6 To 50
    a = Cells(Y1, X1)
      For X2 = 1 To 15
         For Y2 = 6 To 50
           b = Cells(Y2, X2)
            For X3 = 1 To 15
              For Y3 = 6 To 50
                c = Cells(Y3, X3)
                 If a + b + c = 254 Then
                    MsgBox "第一个数" & a & "地址在" & Chr(64 + X1) & Y1 & Chr(13) _
                         & "第二个数" & b & "地址在" & Chr(64 + X2) & Y2 & Chr(13) _
                         & "第三个数" & c & "地址在" & Chr(64 + X3) & Y3 & Chr(13)
                         Exit Sub
                  End If
                 Next
              Next
            Next
         Next
     Next
   Next
End Sub

tanhong

原帖由 欢欢 于 2008-6-9 14:06 发表
Sub quweishuzi()
For X1 = 1 To 15
   For Y1 = 6 To 50
    a = Cells(Y1, X1)
      For X2 = 1 To 15
         For Y2 = 6 To 50
           b = Cells(Y2, X2)
            For X3 = 1 To 15
         ...

总算看到有人打擂了,哈哈!  [:50]