J'arrive pas à faire tourner un program .vbs simple

[N738139]

Bonjour à tous,

J'essaye de tourner ce fichier .txt en .vbs sur windows 10.
J'entre 2 valeur (par exemple 7 et 77 ou 7 et 51 ou 3 et 15), mais aucune réponse et mon processeur qui chauffe à 30%.

Qqun saurait ce qui ne joue pas ?

(Je souhaiterais garder la forme générale du programme : addition, multiplication et test de condition seulement)
-------------------------------------


option explicit

dim n
dim x
dim a
dim b
dim z

x = inputbox("enter_approx_below_s quare")

a = 3
b = x
z = a * b

n = inputbox("enter_semi_premier")

Do While z <> n
b = b + 2
if b > n then
a = a + 2
b = x
z = a * b
end if

loop

MsgBox " " & a & " "
MsgBox " " & b & " "
MsgBox " " & z & " "


-------------------------------------



Cordialement.
-----

[Ikhar84]

Salut,

À première vue (d'un oeil) puisque

Do While z <> n

z étant toujours différent de n (pas egal) on ne sort jamais de la boucle... d'où la boucle infini... et comme la message box est après le loop... pas de message, juste un proc qui surchauffe...

Edit: pourquoi utiliser b et x et pas une seule variable ?
Pourquoi b est de nouveau remis à la valeur de x en cours de boucle ?
(Je sais j'ai vraiment survolé...)

[N738139]

Salut,

À première vue (d'un oeil) puisque

Do While z <> n

z étant toujours différent de n (pas egal) on ne sort jamais de la boucle... d'où la boucle infini... et comme la message box est après le loop... pas de message, juste un proc qui surchauffe...

Edit: pourquoi utiliser b et x et pas une seule variable ?
Pourquoi b est de nouveau remis à la valeur de x en cours de boucle ?
(Je sais j'ai vraiment survolé...)

Hello!

Merci pour la réponse rapide

CORRECTION (qui m'a échappée) : le dernier "z = a * b" se situe entre le "end if" et le "loop"

Imaginons 5 et 35 :
z = 3 * 5
b = 7
z = 3 * 7
b = 9
...
z = 3 * 13
b = 15
z = 3 * 15
b = 17
...
b = 37
a devrait passer à 5 et b remis à b=x=5. Ensuite, etc. jusqu'à z = 5 * 7 = n = 35 (end loop)
???

[Spazi]

option explicit

dim n
dim x
dim a
dim b
dim z

x = CInt(inputbox("enter_approx_below_s quare"))

a = 3
b = x
z = a * b

n = CInt(inputbox("enter_semi_premier"))

Do While z <> n
b = b + 2
if b > n then
a = a + 2
b = x
z = a * b
end if

loop

MsgBox " " & a & " "
MsgBox " " & b & " "
MsgBox " " & z & " "

Correction en gras (sur les inputbox)

[A voir en vidéo sur Futura]

[N738139]

Ouah !!! Trop fort.

Merci beaucoup !

"Discussion close (à moins d'une volonté de parler du programme)."