Crowdly
Додати до Chrome
L2 Economie Gestion Programmation VBA QCM TD S4 2025
Шукаєте відповіді та рішення тестів для L2 Economie Gestion Programmation VBA QCM TD S4 2025? Перегляньте нашу велику колекцію перевірених відповідей для L2 Economie Gestion Programmation VBA QCM TD S4 2025 в moodle-exam.unistra.fr.
Отримайте миттєвий доступ до точних відповідей та детальних пояснень для питань вашого курсу. Наша платформа, створена спільнотою, допомагає студентам досягати успіху!
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