logo

Crowdly

L2 Economie Gestion Programmation VBA QCM TD S4 2025

Looking for L2 Economie Gestion Programmation VBA QCM TD S4 2025 test answers and solutions? Browse our comprehensive collection of verified answers for L2 Economie Gestion Programmation VBA QCM TD S4 2025 at moodle-exam.unistra.fr.

Get instant access to accurate answers and detailed explanations for your course questions. Our community-driven platform helps students succeed!

Quel est le problème avec cette boucle VBA ?

Dim i As Integer, j As Integer

i = 1

Do While i < 3

    j = 1

    Do While j < 3

        MsgBox "i = " & i & ", j = " & j

    Loop

    i = i + 1

Loop

0%
50%
0%
50%
View this question

On souhaite faire la somme

de plusieurs nombres positifs en arrêtant ce calcul lors de la saisie de 0.

On procède ensuite au calcul de la moyenne de ces nombres. Le code ne fonctionne pas. Pourquoi ?

Sub moyenne_nombres()

Dim

somme As Double, x As Double, n As Integer

 x=InputBox("Entrez un nombre réel")

    n=0

   

somme=0

 Do While x<>­0

      x=inpoutbox("Entrez un nombre réel")              

     somme=somme+x

      n=n+1       

Loop

              

MsgBox"Moyenne des " & n & " nombres = "

& somme/n

End

Sub

0%
0%
67%
33%
View this question

A la lecture du code suivant, quel sera le comportement du programme si l'utilisateur clique sur NON ?

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

50%
0%
50%
0%
View this question

Quel est le code permettant de réaliser l'interface suivante ?

msgbox7

0%
0%
0%
100%
View this question

Quel est le problème avec ce code VBA ?

Dim i As Integer, j As Integer

i = 0

Do While i < 3

    j = 0

    Do Until j = 3

        MsgBox "i = " & i & ", j = " & j

        j = j + 1

    Loop

    i = j

Loop

50%
50%
0%
0%
View this question

Quel code correspond à cette interface ?

0%
100%
0%
0%
View this question

Quel code correspond à cette interface ?

0%
0%
100%
0%
View this question

Quel code permet de réaliser l'interface suivante ?

msgbox 5

0%
0%
0%
0%
View this question

On souhaite faire la somme

de plusieurs nombres positifs en arrêtant ce calcul lors de la saisie de –1.

On procède ensuite au calcul de la moyenne de ces nombres. Le code ne fonctionne pas. Pourquoi ?

Sub moyenne_nombres()

Dim

somme As Double, x As Double, n As Integer

 x=InputBox("Entrez un nombre réel")

    n=0

   

somme=0

 Do Whilst x<>­1

      x=InputBox("Entrez un nombre réel")              

     somme=somme+x

      n=n+1       

Loop

              

MsgBox"Moyenne des " & n & " nombres = "

& somme/n

End

Sub

0%
100%
0%
0%
View this question

Quelle sera la valeur de j à l'issue de ce traitement ?

Dim i As Integer, j As Integer

For i = 1 To 3

    j = 1

    Do While j <= i

        j = j + 1

    Loop

Next i

0%
0%
0%
100%
View this question

Want instant access to all verified answers on moodle-exam.unistra.fr?

Get Unlimited Answers To Exam Questions - Install Crowdly Extension Now!