Office中國(guó)論壇/Access中國(guó)論壇

 找回密碼
 注冊(cè)

QQ登錄

只需一步,快速開始

123下一頁
返回列表 發(fā)新帖
查看: 12615|回復(fù): 29
打印 上一主題 下一主題

趣味找數(shù)字

[復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
1#
發(fā)表于 2008-6-4 20:56:53 | 只看該作者 回帖獎(jiǎng)勵(lì) |倒序?yàn)g覽 |閱讀模式
一張表中的幾百個(gè)數(shù)字中查找出并提示出三個(gè)數(shù),且這三個(gè)數(shù)之和等于768.68

這是一個(gè)網(wǎng)友的求助,覺得挺有意思的,希望各位高手開動(dòng)一下思路,出手相助之.
分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏 分享分享 分享淘帖 訂閱訂閱

點(diǎn)擊這里給我發(fā)消息

2#
發(fā)表于 2008-6-4 22:28:08 | 只看該作者
笨妖想很久了.........[:30]
3#
發(fā)表于 2008-6-5 08:14:00 | 只看該作者
我覺得只能用枚舉法,如果數(shù)據(jù)不再增加,那還能忍受,否則.......
[:31] [:31] [:31]
4#
 樓主| 發(fā)表于 2008-6-5 08:37:49 | 只看該作者
原帖由 chenwm1973 于 2008-6-5 08:14 發(fā)表
我覺得只能用枚舉法,如果數(shù)據(jù)不再增加,那還能忍受,否則.......
[:31] [:31] [:31]


如果用枚舉法,那運(yùn)算的量將非常龐大,有沒有更好的算法
5#
發(fā)表于 2008-6-5 08:54:32 | 只看該作者
為什么之和要是768.68[:45]
6#
 樓主| 發(fā)表于 2008-6-5 09:01:29 | 只看該作者
原帖由 rjacky 于 2008-6-5 08:54 發(fā)表
為什么之和要是768.68[:45]


是網(wǎng)友的要求,你也可以用其它的數(shù)
7#
發(fā)表于 2008-6-5 09:09:08 | 只看該作者
只能逐個(gè)去對(duì)比了, 可能算法會(huì)影響速度
8#
發(fā)表于 2008-6-6 21:01:09 | 只看該作者
[:50]
9#
發(fā)表于 2008-6-9 14:06:49 | 只看該作者

這樣可以嗎?數(shù)值區(qū)域在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 "第一個(gè)數(shù)" & a & "地址在" & Chr(64 + X1) & Y1 & Chr(13) _
                         & "第二個(gè)數(shù)" & b & "地址在" & Chr(64 + X2) & Y2 & Chr(13) _
                         & "第三個(gè)數(shù)" & c & "地址在" & Chr(64 + X3) & Y3 & Chr(13)
                         Exit Sub
                  End If
                 Next
              Next
            Next
         Next
     Next
   Next
End Sub

評(píng)分

參與人數(shù) 1經(jīng)驗(yàn) +2 收起 理由
tanhong + 2 精品文章

查看全部評(píng)分

10#
 樓主| 發(fā)表于 2008-6-9 23:51:41 | 只看該作者
原帖由 歡歡 于 2008-6-9 14:06 發(fā)表
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]
您需要登錄后才可以回帖 登錄 | 注冊(cè)

本版積分規(guī)則

QQ|站長(zhǎng)郵箱|小黑屋|手機(jī)版|Office中國(guó)/Access中國(guó) ( 粵ICP備10043721號(hào)-1 )  

GMT+8, 2024-10-23 06:29 , Processed in 0.131259 second(s), 37 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回復(fù) 返回頂部 返回列表