Yahoo奇摩知識+ 將於 2021 年 5 月 4 日 (美國東部時間) 終止服務。自 2021 年 4 月 20 日 (美國東部時間) 起,Yahoo奇摩知識+ 網站將會轉為唯讀模式。其他 Yahoo奇摩產品與服務或您的 Yahoo奇摩帳號都不會受影響。如需關於 Yahoo奇摩知識+ 停止服務以及下載您個人資料的資訊,請參閱說明網頁。

小新 發問時間: 電腦與網際網路程式設計 · 1 0 年前

數列分組問題,11個數字分2組相加成A和B,A是哪些數字組成

今有11個數字

只知道分成2組相加後分別是A和B由

如何知道A組有哪幾個數字

B組有哪幾個數字

已更新項目:

如何用Excel做??

1 個解答

評分
  • 鴨子
    Lv 6
    1 0 年前
    最佳解答

    Excel VBA, 2048種組合, 驗證即知

    2008-10-17 16:00:50 補充:

    'A1,A2,A3,A11存11個值

    'B1存A值

    'B2存B值

    Sub Test()

    '檢查A,B值和是否等於11個值之和

    Sum = 0

    For i = 1 To 11

    Sum = Sum + Cells(i, 1) 'A1,...A11

    Next i

    If Sum <> Cells(1, 2) + Cells(2, 2) Then 'B1,B2

    MsgBox "A,B值不合理"

    Exit Sub

    End If

    Dim BelongToA(10) As Boolean

    Index = 0 '算有幾種情形"

    For i = 0 To 2047

    k = i

    Sum = 0

    For j = 0 To 10

    If k Mod 2 = 1 Then

    BelongToA(j) = True

    Sum = Sum + Cells(j + 1, 1)

    Else

    BelongToA(j) = False

    End If

    k = k \ 2

    Next j

    If Sum = Cells(1, 2) Then 'B1

    Index = Index + 1

    MsgBox "Case " & Index & ": A群在C欄, B群在D欄"

    Acount = 0

    Bcount = 0

    Range("C1:D11").Clear

    For j = 0 To 10

    If BelongToA(j) = True Then

    Acount = Acount + 1

    Cells(Acount, 3) = Cells(j + 1, 1) 'C欄

    Else

    Bcount = Bcount + 1

    Cells(Bcount, 4) = Cells(j + 1, 1) 'D欄

    End If

    Next j

    End If

    Next i

    End Sub

還有問題?馬上發問,尋求解答。