A la lecture du code suivant, quel sera le comportement du programme si l'utilisateur clique sur OUI ?
Sub ExtractionPIB()

Dim pib As String
Dim pays As String
Dim rep As Byte
i = 1
erreur = 0
Saisie:
pays = InputBox("Quel est le pays dont vous voulez extraire les données ?", "Extraction de données")
Do While Cells(i, 1) <> pays
    i = i + 1
Loop
pib = Cells(i, 2)
If pib = "N/A" Then

    rep = MsgBox("Les données pour le " & pays & " ne sont pas significatives. Souhaitez vous poursuivre avec ce pays ?", vbQuestion + vbYesNoCancel, "Données macroéconomiques")
    If rep = 7 Then
        GoTo Fin
    ElseIf rep = 2 Then
        GoTo Saisie:
    Else
        MsgBox "Données non significatives"
        erreur = erreur + 1
        GoTo Saisie
    End If
End If
Fin:
MsgBox "Nombre d'erreurs d'extraction de la session : " & erreur
End Sub

Question

A la lecture du code suivant, quel sera le comportement du programme si l'utilisateur clique sur  OUI  ? Sub ExtractionPIB()

Dim pib As String 
 
 Dim pays As String 
 
 Dim rep As Byte 
 
 i = 1 
 erreur = 0 
 
 Saisie: 
 pays = InputBox("Quel est le pays dont vous voulez extraire les données ?", "Extraction de données") 
 
 Do While Cells(i, 1) <> pays 
     i = i + 1 
 Loop 
 
 pib = Cells(i, 2) 
 
 If pib = "N/A" Then 
      
     rep = MsgBox("Les données pour le " & pays & " ne sont pas significatives. Souhaitez vous poursuivre avec ce pays ?", vbQuestion + vbYesNoCancel, "Données macroéconomiques") 
 
     If rep = 7 Then 
         GoTo Fin 
     ElseIf rep = 2 Then 
         GoTo Saisie: 
     Else 
         MsgBox "Données non significatives" 
         erreur = erreur + 1 
         GoTo Saisie 
     End If 
 End If 
 
 Fin: 
 
 MsgBox "Nombre d'erreurs d'extraction de la session : " & erreur 
 End Sub

Answer

Rien du tout.

Answer

On propose de saisir un nouveau pays, sans incrémenter le nombre d'erreurs.

Answer

On sort du programme et on affiche le nombre d'erreurs cumulées.

Answer

On indique que les données ne sont pas significatives, on incrémente le compteur d'erreurs et on propose la saisie d'un nouveau pays.

Crowdly

A la lecture du code suivant, quel sera le comportement du programme si l'utilis...

Хочете миттєвий доступ до всіх перевірених відповідей на moodle-exam.unistra.fr?