Питання | Сторінка 117380

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 :

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

❌

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

✅

Sub SommeNombre()

Static Total

As Integer

Dim nombre As Integer

nombre = InputBox("Entrez un nombre de 3 chiffres

maximum")

Total =

Total + nombre

Loop While

Total < 1000

End Sub

❌

Sub SommeNombre()

Static Total

As Integer

Dim nombre As Integer

nombre = InputBox("Entrez un nombre de 3 chiffres

maximum")

Total =

Total + nombre

Loop until

Total < 1000

End Sub

❌

Переглянути це питання

Crowdly

Questions Bank (1231109 total)