| Menu: Progrfacile Accueil Premiers programmes Invite de commandes Syntaxe Tests conditionels Boucles Proc�dures et fonctions WSH et les objets Bases de donn�es D�boguer Livre d'or |
| Boucles ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- |
| dim nombre
msgbox "J'ai choisis un nombre entre 1 et 100, votre bute est de le trouver." & vbcrlf & _ "Vous avez dix essaye." & vbcrlf & _ "Je vous dit si le nombre est trops grand ou trops petit.",,"Num�ro secret" nombre = int((rnd * 99) + 1) for i = 1 To 10 essaye = inputbox ("Saisissez un nombre entre 1 et 100","Num�ro secret") If Cstr(essaye) < Cstr(nombre) then msgbox "Trop petit" elseif Cstr(essaye) > cstr(nombre) then msgbox "Trop grand" elseif cstr(essay) = Cstr(nombre) then msgbox "Bravo vous avez trouv� le num�ro secret",vbinformation,"Num�ro secret" exit for end if next if i = 11 then msgbox "Vous n'avez pas trouv� le num�ro secret" & vbcrlf & _ "Le num�ro �tait : " & nombre,,"num�ro secret" end if do loop do Instructions exit do Instruction loop Il n�y a pas d�explication � donn�e simplement regarder la syntaxe et comprendre : do a = inputbox ("Saisissez un nombre," & vbcrlf & _ "Validez � blanc pour arr�ter le programme") if cstr(a) = "" then exit do end if if cstr(a) mod 2 = 0 then msgbox "Ce nombre est pair" else msgbox "ce nombre est impair" end if loop Gr�ce � ce type de boucle on peut fair un compteur : Dim comp Comp = 0 Do If comp > 3 then Exit do End if Msgbox comp Comp = comp + 1 loop page pr�c�dente page suivante |
 |
| Info sur moi: adresse: [email protected] |
| Visiteurs: |
|