Ex 1:

Ecrire une procédure qui permet de saisir un nombre et d’afficher le jour correspondant.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Ex 2.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Exercice

 

2- Traitement Répétitif

a- Boucle For… Next

Syntaxe :

	For Compteur = Valeur Initiale To Valeur Finale [Step Pas] Actions  [Exit For] Actions Next [Compteur]

 

 

 

 

 

 

Exit For : Permet de sortir de la boucle For quelque soit la valeur du compteur et reprend l’instruction qui suit Next.

Exemples :

	For i=1 to 10   Print "Visual Basic" Next i		For j=5 To 0 Step –1   Print j ; Next

 

 

 

 

   Résultat : Affichage de "Visual Basic" sur 10 lignes                             Résultat 5 4 3 2 1 0

	For i=1 to 100   X= InputBox ("Donner un nombre")   If x< 0 Then Exit For  S=S+X Next i

 

 

 

 

 

 

La sortie de la boucle est provoquée lorsque l’utilisateur saisi 100 nombres positifs ou nuls ou lorsqu’il saisi un nombre négatif.

Exercice :

Ecrire une procédure qui calcule pour un entier N donné les sommes :

S=1+2+3+…………+N

C=1+1/2+1/3+…....+N

	Dim I As integer, N As Integer, S As Long, C As Long N= Inputbox ("Donner un entier") S=0 : C=0  'Facultatif For i=1 To N   S=S+i   C=C+1/i Next Msgbox "S=" & S & " C=" & C

 

 

 

 

 

 

 

 

 

b- Boucle (Tant Que…..Fin Tant Que)

Do While Condition Actions Loop

While Condition Actions Wend

Syntaxe :

 

Les actions sont répétées Tant que la condition est vraie, pour cela il faut prévoir la sortie de la boucle.

X=0 : i=1 : S=0 While X>=0 And i<100   S= S+ X   X= InputBox ("Donner un nombre")   I=i+1 Wend

I= 1 While I<=10   Print i,2*i   I=i+1 Wend

Ex :

 

 

 

 

 

 

c- Boucle Répéter….jusqu’à

Do Actions  [Exit Do] Actions Loop Until Condition

Syntaxe :

 

 

 

 

 

 

Les actions sont répétées jusqu’à ce que la condition soit vraie.

Ex :

	i= 1 Do   Print i , 2*i   i=i+1 Loop Until i>10

 

 

 

 

 

 

 

Exercice :

Ecrire une procédure qui permet d’afficher sur la feuille les nombres de 1 à 10, leurs carrés et leurs racines carrés en utilisant toutes les formes de boucles.

	Dim i As Byte For i=1 To 10   Print i, i ^ 2, Sqr(i) Next i

 

 

 

 

 

 

	Dim i As Byte i = 1 While i <= 10   Print i, i ^ 2, Sqr(i)  i = i + 1 Wend		Dim i As Byte i = 1 Do While i <= 10   Print i, i ^ 2, Sqr(i)  i = i + 1 Loop

 

 

 

 

 

 

 

 

	Dim i As Byte i = 1 Do   Print i, i ^ 2, Sqr(i)   i = i + 1 Loop Until i>10

 

 

 

 

 

 

 

 

Ecrire une procédure qui permet d’afficher sur la feuille :

1

1 2

1 2 3

1 2 3 4