设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

123下一页
返回列表 发新帖
查看: 12186|回复: 29

趣味找数字

[复制链接]
发表于 2008-6-4 20:56:53 | 显示全部楼层 |阅读模式
一张表中的几百个数字中查找出并提示出三个数,且这三个数之和等于768.68

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

点击这里给我发消息

发表于 2008-6-4 22:28:08 | 显示全部楼层
笨妖想很久了.........[:30]
发表于 2008-6-5 08:14:00 | 显示全部楼层
我觉得只能用枚举法,如果数据不再增加,那还能忍受,否则.......
[:31] [:31] [:31]
 楼主| 发表于 2008-6-5 08:37:49 | 显示全部楼层
原帖由 chenwm1973 于 2008-6-5 08:14 发表
我觉得只能用枚举法,如果数据不再增加,那还能忍受,否则.......
[:31] [:31] [:31]


如果用枚举法,那运算的量将非常庞大,有没有更好的算法
发表于 2008-6-5 08:54:32 | 显示全部楼层
为什么之和要是768.68[:45]
 楼主| 发表于 2008-6-5 09:01:29 | 显示全部楼层
原帖由 rjacky 于 2008-6-5 08:54 发表
为什么之和要是768.68[:45]


是网友的要求,你也可以用其它的数
发表于 2008-6-5 09:09:08 | 显示全部楼层
只能逐个去对比了, 可能算法会影响速度
发表于 2008-6-6 21:01:09 | 显示全部楼层
[:50]
发表于 2008-6-9 14:06:49 | 显示全部楼层

这样可以吗?数值区域在A6:O50

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

评分

参与人数 1经验 +2 收起 理由
tanhong + 2 精品文章

查看全部评分

 楼主| 发表于 2008-6-9 23:51:41 | 显示全部楼层
原帖由 欢欢 于 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]
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-29 02:27 , Processed in 0.100221 second(s), 35 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表