Comment faire des combinaisons de nombres ?

hhhp2004 Messages postés 173 Date d'inscription samedi 25 octobre 2003 Statut Membre Dernière intervention 13 octobre 2007 - 25 oct. 2003 à 23:56
Vb Lover Messages postés 221 Date d'inscription vendredi 30 novembre 2001 Statut Membre Dernière intervention 13 février 2010 - 27 oct. 2003 à 20:53
hhhp2004

par exemple on a 3 nombres : 1,2,3
cest quoi le code en Visual basic (5) qui permet de faire des combinaisons avec des nombres ?

2 réponses

cs_PROGRAMMIX Messages postés 1133 Date d'inscription mercredi 2 octobre 2002 Statut Membre Dernière intervention 24 juillet 2011 2
26 oct. 2003 à 00:30
Qu'est-ce que tu entends par combinaisons des nombres ?
Tes nombres sont-il des valeurs numériques ou des valeurs de type texte ?

Si tu veux 123, puis 231, etc., il faut que tes nombres soient en texte et alors tu pourras faire MonNombre = Chiffre1 &Chriffre2 &Chiffre3...

Programmix
0
Vb Lover Messages postés 221 Date d'inscription vendredi 30 novembre 2001 Statut Membre Dernière intervention 13 février 2010 5
27 oct. 2003 à 20:53
Tu peux aussi travailler avec des chiffres. Voici un petit code :

'Dim Chiffre(1 To N) As Integer
'Dim Exposant(1 To N) As Integer
'Dim Resultat As Long
'Dim i As Integer, j As Integer, k As Integer
'
' ' Remplit le tableau des puissances au hasard
' For i = 1 To N
' Exposant(i) = -1
' Next
' For i = 0 To N - 1
' j = Int(Rnd * (N - i)) + 1
' k = 0
' Do
' k = k + 1
' If Exposant(k) < 0 Then j = j - 1
' Loop Until j = 0
' Exposant(k) = i
' Next
' ' Calcule le nombre correspondant
' Resultat = 0
' For i = 1 To N
' Resultat = Resultat + Chiffre(i) * 10 ^ Exposant(i)
' Next
' msgbox Resultat

Voilà, il te suffit de déclarer la variable N, qui est le nombre de chiffres à combiner et mettre ceux-ci dans Chiffre()

VB Lover
0
Rejoignez-nous