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!

Quelle est la valeur finale de somme après l'exécution de ce code ?

Dim i As Integer, j As Integer, somme As Integer

i = 1

somme = 0

Do Until i > 3

    j = 1

    Do Until j > 2

        somme = somme + j

        j = j + 1

    Loop

    i = i + 1

Loop

0%
0%
100%
0%
View this question

On souhaite convertir le contenu de la variable Mavar après saisie dans une variable MaType, permettant de contenir une valeur monétaire.

Quel est l'extrait de code permettant cette opération ?

100%
0%
0%
0%
View this question

Quel type de données permet de stocker un tableau de dimensions variables en VBA ?

100%
0%
0%
0%
View this question

A la lecture du code suivant, que se passe-t-il  si l'utilisateur a cliquer sur Oui ?

Sub CalculPrime()

Dim prime As Currency, chiffreaffaire As Currency

Dim intercomm As Single

Dim rep As Byte

chiffreaffaire = InputBox("Quel est le chiffre d'affaires réalisé sur la période ?", "Prime")

rep = MsgBox("Voulez-vous procéder au calcul de la prime ?", vbQuestion + vbYesNo, "Calcul de prime")

If rep = 7 Then

    MsgBox "Il n'y aura pas de calcul de primes"

Else

    Choixtauxprime

End If

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

Comment affecter la valeur 100 au troisième élément d'un tableau nommé Tab ?

Le tableau est un tableau dynamique.

0%
100%
0%
0%
View this question

Dans le code suivant, il y a deux erreurs :

Sub Epreuves1()

Dim i, n As Integer

Dim nom As String, m As String

Dim x As Single, y As Single, z As Single

Dim c1 As Single, c2 As Single, c3 As Single

n = MsgBox(« Donnez le

nombre d’étudiants »)

c1 = InputBox(« Donnez

le coefficient de la première épreuve »)

c2 = InputBox(« Donnez

le coefficient de la deuxième épreuve »)

c3 = InputBox(« Donnez

le coefficient de la troisième épreuve »)

For i = 1 to n

      nom = InputBox(«Donnez le nom de

l’étudiant»)

      x = InputBox(« Donnez la note de la

première épreuve »)

      y = InputBox(« Donnez la note de la

deuxième épreuve »)

z =

InputBox(« Donnez la note de la troisième épreuve »)

m =

(x*c1 + y*c2 + z*c3) / (c1 +c2 +c3)

m = MsgBox

(« La moyenne de l’étudiant » & nom &

« est : »  & m, vbExclamation+vbOKOnly,"Moyenne")

Next

End Sub

0%
100%
0%
0%
View this question

Comment affecter la valeur 100 au quatrième élément d'un tableau nommé Tab ?

Le tableau est un tableau dynamique.

50%
0%
0%
50%
View this question

Quelle est le nombre d'éléments d'un tableau déclaré avec la ligne de code suivante ?

 Dim Tab(5) as integer

0%
75%
0%
25%
View this question

Quelle est la valeur finale de x après l'exécution de ce code ?

Dim i As Integer, j As Integer, x As Integer

x = 0

i = 1

Do While i <= 3

    j = 1

    Do While j <= 3

        x = x + i + j

        j = j + 1

    Loop

    i = i + 1

Loop

100%
0%
0%
0%
View this question

Quel code correspond à cette interface ?

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