-4

27 の異なる組み合わせを表すフットボール プールの 3 つのトリプルを組み合わせたマクロを VBA で開発しました。27 は、賭けの可能な最大の組み合わせを表します。二重、固定、三重の予測を持つシステムを開発する方法でリストを変更したいと思います。

たとえば、プログラムは次の場合にのみ機能します。

1st  game   1 x 2 
2nd game   1 x 2 
3rd game   1 x 2

に等しい(3 * 3 * 3 = 27 possible combinations)

ただし、予測が次の場合:

1st game   1 x
2nd game   1
3rd game   1 x 2

に等しい(2 * 1 * 3 = 6 possible combinations)

今 : 最初のゲーム 1 x 2 、2 番目の 1 x 2 、3 番目の 1 x 2 、等しい (3 * 3 * 3 = 27 の組み合わせ) しかし、予測が次のようになる場合: 最初のゲーム 1 x、2 番目の 1 、3 番目の x 2 、(2 * 1 * 3 = 6 の組み合わせ) に等しい有効な列のみを出力する必要があります。

問題を解決するのを手伝ってくれる人に事前に感謝します。

 Sub Combination_Prediction()

   Dim A As Integer
   Dim B As Integer
   Dim C As Integer
   Dim Col1Sviluppo As Integer
   Dim Row1Sviluppo As Integer

 Col1Sviluppo = 10
 Row1Sviluppo = 14

 For C = 3 To 5
     For B = 3 To 5
          For A = 3 To 5
               Contatore = Contatore + 1
               Col1Sviluppo = Col1Sviluppo + 1
               Cells(Row1Sviluppo + 1, Col1Sviluppo) = Cells(2, A)
               Cells(Row1Sviluppo + 2, Col1Sviluppo) = Cells(3, B)
               Cells(Row1Sviluppo + 3, Col1Sviluppo) = Cells(4, C)
               Cells(10, 10) = Contatore & " colonne elaborate"
         Next A
     Next B
    Next C
  End Sub
4

1 に答える 1

0

免責事項:あなたの論理は予測不可能な仮定に基づいています。本物のお金を賭けている場合は、中継しないでください。あなたが思っている以上に複雑です。賭けて稼ぐための信頼できる方法は 1 つしかなく (開始するには多額の資金が必要で、ブックメーカーのポリシーを適切かつ十分に理解する必要があります)、それは確実な賭けと呼ばれます。しかし、どうか、それに立ち入らないでください。

さて、元の質問に戻ります。

入力に基づいて関数に組み合わせの数を返すようにすることができます »組み合わせ乗数

と仮定しましょう

combinations multipliers
1 - 1
2 - 1X
3 - 1X2

1ホームまたはアウェイの勝利、1組み合わせを表します

22ホームでの勝利または引き分け、アウェイでの勝利または引き分け、コンビネーションの略

3デフォルト: 勝つ、引き分け、勝つ

コード：

Sub Combination_Prediction()

    ' combinations multipliers
    ' 1 - 1
    ' 2 - 1X
    ' 3 - 1X2

    Range("A1") = Combination(3, 3, 3) ' 1x2, 1x2, 1x2
    Range("B2") = Combination(2, 1, 3) ' 1x, 1, 1x2

End Sub

Function Combination(c1 As Long, c2 As Long, c3 As Long) As Long

    Dim i As Long, j As Long, k As Long, combinationMultiplier As Long
    combinationMultiplier = 0

    For i = 1 To c1
        For j = 1 To c2
            For k = 1 To c3
                combinationMultiplier = combinationMultiplier + 1
            Next k
        Next j
    Next i

    Combination = combinationMultiplier
End Function

このコードを実行すると、可能なベットの正しい(そして簡略化されA1た) 計算であるセル番号が表示されます。27

このCombination()関数は、3組み合わせである 3 つのパラメーターを取ります。

最初の例では、最初の入力は3, 3, 3サンプルからのものです

最初のゲーム = 1x2

2 ゲーム目 = 1x2

3 ゲーム目 = 1x2

上記の組み合わせ乗数を見てください

第 1 ゲーム = 1x2 = 3

2 ゲーム目 = 1x2 = 3

3 ゲーム目 = 1x2 = 3

したがって、3 つのパラメーターは次のとおりです。3, 3, 3

あなたが提供した2番目のサンプル

第 1 ゲーム = 1x = 2

2ゲーム目＝1＝1

3 ゲーム目 = 1x2 = 3

したがって、（組み合わせ）をセルCombination(2, 1, 3)に返します6A2

の任意1, 2, 3の組み合わせを組み合わせ関数に貼り付けて、結果を取得します。それらをセルに出力するか、msgboxまたはdebug.printテスト用に使用できます。

それが役立つことを願っています

于 2013-09-03T08:32:34.443 に答える