Vb Lover
Messages postés221Date d'inscriptionvendredi 30 novembre 2001StatutMembreDernière intervention13 février 20105 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()