On souhaite
demander à un utilisateur de taper un nombre de 3 chiffres maximum dans une
inputbox tant que la somme des nombres tapés est inférieure à 1000,
l’inputbox doit se réafficher pour taper une nouvelle valeur. On devra alors
écrire :

Question

On souhaite
demander à un utilisateur de taper un nombre de 3 chiffres maximum dans une
inputbox tant que la somme des nombres tapés est inférieure à 1000,
l’inputbox doit se réafficher pour taper une nouvelle valeur. On devra alors
écrire :

Accepted Answer

Sub SommeNombre()

Static Total As Integer

Dim nombre As Integer

Do While Total < 1000

nombre =
InputBox("Entrez un nombre de 3 chiffres maximum")

Total = Total + nombre

Loop

End Sub

Answer

Sub SommeNombre()

Static Total
As Integer

Dim nombre As Integer

Do until
Total < 1000

nombre = InputBox("Entrez un nombre de 3 chiffres
maximum")

Total =
Total + nombre

Loop

End Sub

Answer

Sub SommeNombre()

Static Total
As Integer

Dim nombre As Integer

Do

nombre = InputBox("Entrez un nombre de 3 chiffres
maximum")

Total =
Total + nombre

Loop until
Total < 1000

End Sub

Answer

Sub SommeNombre()

Static Total
As Integer

Dim nombre As Integer

Do

nombre = InputBox("Entrez un nombre de 3 chiffres
maximum")

Total =
Total + nombre

Loop While
Total < 1000

End Sub

Crowdly

On souhaite demander à un utilisateur de taper un nombre de 3 chiffres maximum...

Want instant access to all verified answers on moodle.unistra.fr?