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!

Analysez le code suivant pour déterminer la valeur de la variable MaVar à la fin du traitement.

Option Explicit

Sub rollercoaster()

Dim Mavar As Integer

Dim i, j As Byte

i = 1

For j = 1 To 100

    Do While i / 2 = Int(i / 2)

        Mavar = Mavar + 1

      

    Loop

 

i = i + 1

 

Next

MsgBox Mavar

End Sub
0%
0%
100%
0%
View this question

Analysez le code suivant pour déterminer la valeur de la variable MaVar à la fin du traitement.

Option Explicit

Sub rollercoaster()

Dim Mavar As Integer

Dim i, j As Byte

i = 1

For j = 1 To 100

    Do While i / 2 = Int(i / 2)

        Mavar = Mavar + 1

        i = i + 1

    Loop

    

Next

MsgBox Mavar

End Sub
0%
0%
100%
0%
View this question

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

msgbox7

0%
0%
100%
0%
View this question

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

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

0%
0%
100%
0%
View this question

Que se passe-t-il si on exécute Redim Tab(1 to 10) sur un tableau déjà dimensionné sans utiliser Preserve ?

0%
0%
100%
0%
View this question

Quel code correspond à cette interface ?

0%
0%
100%
0%
View this question

Analysez le code suivant pour déterminer la valeur de la variable MaVar à la fin du traitement.

Option Explicit

Sub rollercoaster()

Dim Mavar As Byte

Dim i, j As Byte

i = 1

For j = 1 To 100

    Do

        Mavar = Mavar + 1

         i = i + 1

    Loop Until i / 2 = Int(i / 2)

   

Next

MsgBox Mavar

End Sub
0%
67%
0%
33%
View this question

Quelle instruction VBA permet de vérifier qu'une variable MaVar a été initialisée avant de l'utiliser ?

0%
100%
0%
0%
View this question

En analysant le code suivant, indiquez le comportement attendu de la procédure.

N.B. : Le développeur n'a pas activé l'option explicit.

Sub MaProcedure()

var3= 1589.5863

var1=CStr(var3)

Chaine=Left(var1, 2)

End Sub

0%
0%
100%
0%
View this question

Comment déclarer un tableau statique à une dimension contenant 10 éléments de type string en VBA ?

0%
0%
100%
0%
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!