Editer les combinaisons du KENO

cestouf Messages postés 12 Date d'inscription vendredi 8 août 2003 Statut Membre Dernière intervention 27 septembre 2004 - 7 mars 2004 à 17:51
cs_nicoj Messages postés 10 Date d'inscription lundi 26 avril 2004 Statut Membre Dernière intervention 4 août 2004 - 3 août 2004 à 17:16
Je souhaiterais éditer toutes les combinaisons du KENO. Ce qu'il faut savoir sur ce jeu c'est qu'une grille fait 70 numéros. Que vous pouvez cocher soit 2n° soit 3 n° soit .... jusqu'à 10 n°. Quelqu'un peut-il m'aider?
A voir également:

7 réponses

crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 28
7 mars 2004 à 23:51
C'est pas du VB, c'est des maths, des stats pour être précis, mais bon voila la réponse :
Une grille à 70 numéros :
Nb de combinaison à 2 cases : 70*69
Nb de combinaison à 3 cases : 70*69*68
...
Nb de combinaison à 10 cases : 70*69*68*67*66*65*64*63*62*61

nb total de solution : 70*69+70*69*68+70*69*68*67+ ....
+70*69*68*67*66*65*64*63*62*61

Tu n'as plus qu'a faire le calcul final
Mais comme je suis cool, voici le code :
Dim i As Long, r1 As Double, r2 As Double, j As Long

    For i = 1 To 9
        r1 = 1
        For j = 70 To 70 - i Step -1
            r1 = r1 * j
        Next
        r2 = r2 + r1
    Next
    MsgBox r2

Soit un résultat d'environ 1,4 E+18
Christophe R.
0
Rejoignez-nous