Bonjour
on a
Q4 (modif en rouge):
Sub pluspetit()
Dim x as integer, y as integer, rep as integer, minim as integer, i as integer, score as integer
Dim recommence As string
score=0
i=0
recommence=”O”
While (recommence=”O”)
x=Int(Rnd()*50)
y=Int(Rnd()*50)
if x<y Then
minim=x
else
minim=y
End If
rep=InputBox( “voici deux valeurs :” &x&” et “&y& ”donnez la plus petite :”)
if rep=minim Then
recommence= Inputbox(“ bonne réponse ! voulez vous rejouer ? (O/N)“)
score=score+1
Else
recommence= Inputbox(“ Mauvaise réponse ! voulez vous rejouer ? (O/N)“)
End If
i=i+1
Wend
Msgbox(“ voici votre score “& score& “/“&i )
End sub
Mais je comprend pas très bien quelle est la signification de i ici, ca sert a quoi ? car on a pas de condition après avec while i< ou =...
on a
Q4 (modif en rouge):
Sub pluspetit()
Dim x as integer, y as integer, rep as integer, minim as integer, i as integer, score as integer
Dim recommence As string
score=0
i=0
recommence=”O”
While (recommence=”O”)
x=Int(Rnd()*50)
y=Int(Rnd()*50)
if x<y Then
minim=x
else
minim=y
End If
rep=InputBox( “voici deux valeurs :” &x&” et “&y& ”donnez la plus petite :”)
if rep=minim Then
recommence= Inputbox(“ bonne réponse ! voulez vous rejouer ? (O/N)“)
score=score+1
Else
recommence= Inputbox(“ Mauvaise réponse ! voulez vous rejouer ? (O/N)“)
End If
i=i+1
Wend
Msgbox(“ voici votre score “& score& “/“&i )
End sub
Mais je comprend pas très bien quelle est la signification de i ici, ca sert a quoi ? car on a pas de condition après avec while i< ou =...
Dernière édition: