Problème passage algo en VB

A moins que le sujet ne soit deja résolu,
avec WHILE la solution serait:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Public Sub main()   Dim nbr1, nbr2, resultat, i As Integer   nbr1 = InputBox("Saisir un premier nombre") nbr2 = InputBox("Saisir un deuxième nombre")   resultat = 0 i = 0   While i < nbr2 resultat = resultat + nbr1 i = i + 1 Wend   MsgBox ("Le resultat de la multiplication est de : " & resultat)   End Sub

---

ça marche à merveille.

Bon.

Si tu restes avec le While, débarrasse-toi au moins de cette variable/compteur i, alors :

Code:

---

1 2 3 4

Do While nbr1 > 0 resultat = nbr2 + resultat nbr1 = nbr1 - 1 Loop

---

Salut,

Ce post est parfait, on y trouve :

1/ une solution avec FOR .. NEXT
2/ une solution avec WHILE
3/ une solution avec récursivité (je suis d'accord sur le fait qu'il faille éviter dans certains cas, mais sous l'angle de l'exercice, de la théorie, et de la formation intellectuelle il n'y a pas mieux)
4/ un mini tuning de l'algo (cf le calcul du plus petit membre de la multiplication pour optimiser les boucles de ucfoutu)

=> super