タイトル : 組み合わせ。 投稿日 : 2012/01/25(Wed) 15:26 投稿者 : ふつうのこ
ちょっと聞いてみたい問題が出てきましたので、連続投稿になりますがよろしくお願いします。 44の項目がありまして、その中から 2つ選んで組み合わせを作ります。 その組み合わせの中で 18個当たりの組み合わせがあるんですが、今はその組み合わせに 出てくる項目それぞれに対して Select Case 文で当たり判定をしています。 その際、Value1, Value2 の組み合わせが当たりとすると、 Select Case i Case Value1 If j = Value2 Then … Case Value2 If j = Value1 Then … . . End Select と 1つの組み合わせで 2つ判定文が必要になります。 現在は 18個の当たりなのでいいのですが、もしこれが 50の当たりになれば 100の Case文 となり、また3つの項目の当たりの判定になれば、Select文のネストとなり、その数は膨大な ものとなります。 (Value1, Value2) で判定してくれるような便利なコントロールは無いでのでしょうか? |