Chapitre 3

Première question : Choisis la bonne réponse

1- Les boucles Do While ………………………Loop

Sont exécutées si la condition est vraie(True).

2- La variable qui contrôle le nombre de répétitions dans une boucle est : Counter

3- Pour suprimer le contenu d’une ListBox on utilise la (Methode) : Clear()

4- La méthode qui permet d’ajouter un élément dans une ListBox est : Add

Deuxième question: Lis le code suivant puis réponds aux questions.

1.       Trouve l’erreur dans le code précédent. X est une variable qui n’existe pas.

2.      Ecris le code convenable pour rectifier le programme.

 Dim sum As Integer = 0

        Dim Count As Integer = 0

        Dim Moyenne As Decimal = 0

        Do While (Count < 10)

  sum = sum + Count

            Count = Count + 1

        Loop

        Moyenne = sum / Count

Troisième question: Cherche les erreurs dans le programme suivant :

ملغى من المنهج

Quatrième question:

Dim i As Integer

        For i = 1 To 10 Step x

            MsgBox("" & i)

  Next

Indique comment les lignes de programme ci-dessus seront exécutées dans les cas suivants :

a. La variable x est plus grande que 0

……Step va ajouter la valeur de x à chaque tour.…………

b. La variable x est plus petite que 0

Le programme va quitter la boucle………

c. La variable x est égale à 0

………… Le programme va toujours afficher 1 et ne va jamais s’arrêter car la valeur 0 n’ajoute rien dans la boucle pour atteindre 10.…………

Cinquième question:

            Lis les lignes suivantes du programme puis indique la valeur de chaque variable lors de l’exécution de ce programme.

x = 4.5

        For I = 0 To 7 Step 3

            x = x * 2

        Next

Sixième question:

            Remplace la boucle For ………….. Next par Do While ………………..Loop

For i = 1 To 10

              MsgBox(i * i)

Next

i=0

Do While i<= 10

i=i+1

MsgBox(i * i)

Loop

Septième question:

            Ecris les résultats que ce programme va afficher.

   Dim i

        For i = 0 To 7

            If (i / 2 = 0) Then

                MsgBox(i + 1)

            ElseIf (i / 3 = 0) Then

                MsgBox(i * i)

            ElseIf (i / 5) = 0 Then

                MsgBox(2 * i - 1)

            Else

                MsgBox(i)

            End If

       Next

1

1

2

3

4

5

6

7

Explication de l’exécution du programme