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!
A la lecture du code suivant, que se passera-t-il si l'utilisateur choisit Ignorer ?
Sub Extraction()Dim pib As DoubleDim pays As StringDim rep, erreur As Byte
erreur=0
i=1
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 + 1Looppib = Cells(i , 2)If pib = "N/A" Then rep = MsgBox("Les données pour le " & pays & " ne sont pas significatives. Souhaitez vous poursuivre ?", vbQuestion + vbAbortRetryIgnore, "Données macroéconomiques") If rep = 3 Then GoTo Fin ElseIf rep = 4 Then GoTo Saisie Else MsgBox "Données non significatives" GoTo Saisie erreur=erreur+1
End IfEnd IfFin:
MsgBox "Il y a eu " & erreur & " erreurs d'extraction pendant cette session"
End Sub
Pourquoi ce code plante-t-il avec une erreur de dépassement de capacité ?
Dim i As Integer, j As Integeri = 1Do While i < 5 j = 10 Do While j > 0 j = j + 1 Loop i = i + 1LoopQuelle sera la valeur de j à l'issue de ce traitement ?
Dim i As Integer, j As IntegerFor i = 1 To 3 j = 1 Do While j < i j = j + 1 LoopNext i
Analysez le code suivant pour déterminer la valeur de la variable MaVar à la fin du traitement.
Option Explicit
Sub rollercoaster()Dim Mavar As ByteDim i, j As Bytei = 1For j = 1 To 100 Do Until i / 2 = Int(i / 2) Mavar = Mavar + 1 i = i + 1 Loop NextMsgBox MavarEnd SubDans le code suivant, il y a deux erreurs :
Sub Epreuves2()
Dim n As Integer, i As Integer
Dim nom, maxnom As String
Dim x As Single, y As Single, z As Single, maxm As Single
Dim m As Integer
maxnom=«»
maxm=0
n = InputBox(« Donnez le nombre d’élèves »)
For i = 1 to n
nom = InputBox(«Donnez le nom de l’élève»)
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 + y + z) / (3)
If m > maxm Then
maxm = m
maxnom = nom
End If
MsgBox « L’élève » & maxnom & « a la moyenne maximale » & maxm
End Sub
Quel est le problème avec cette boucle VBA ?
Dim i As Integer, j As Integeri = 1Do Until i > 2 j = 1 Do Until j > 2 MsgBox "i = " & i & ", j = " & j j = j - 1 Loop i = i + 1Loop
Want instant access to all verified answers on moodle-exam.unistra.fr?
Get Unlimited Answers To Exam Questions - Install Crowdly Extension Now!