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 passe-t-il si l'utilisateur clique sur Annuler ?
Sub Extraction()Dim pib As DoubleDim pays, pays2 As StringDim rep As Bytepays = InputBox("Quel est le pays dont vous voulez extraire les données ?", "Extraction de données")rep = MsgBox("Souhaitez vous analyser une autre série de données que celle du " & pays & "?", vbQuestion + vbYesNoCancel, "Données macroéconomiques")If rep = 7 Then MsgBox "Extraction en cours des données du pays " & paysElseIf rep = 2 Then MsgBox "Fin des extractions"Else pays2 = InputBox("Quel est le pays dont vous souhaitez associé les données à ceux de " & pays & " ?", "Extraction de données")End IfEnd Sub
Quel est le problème avec cette boucle VBA ?
Dim i As Integer, j As Integeri = 1Do While i < 3 j = 1 Do While j < 3 MsgBox "i = " & i & ", j = " & j Loop i = i + 1Loop
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 = 1j = 1Do Do Mavar = Mavar + 1 i = i + 1 Loop Until i / 2 = Int(i / 2) j = j + 1Loop until j>10MsgBox MavarEnd SubComment peut-on tester un morceau de code sans l'exécuter entièrement dans l'éditeur VBA ?
A la lecture du code suivant, quel sera le comportement du programme si l'utilisateur clique sur OUI ?
Sub ExtractionPIB()Dim pib As StringDim pays As StringDim rep As Bytei = 1erreur = 0Saisie: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 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 IfEnd IfFin:MsgBox "Nombre d'erreurs d'extraction de la session : " & erreurEnd Sub
Quelle sera la valeur de total à l'issue de ce traitement ?
Dim i As Integer, j As Integer, total As Integervaleur = 1For i = 1 To 2 j = 1 Do Until j > 2 total = total + i * j 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 = 1j = 1Dim Mavar As ByteDim i, j As Bytei = 1j = 15Do while j < 10 Do Mavar = Mavar + 1 i = i + 1 Loop Until i / 2 = Int(i / 2) j = j - 1Loop MsgBox MavarEnd SubQuel est le problème avec cette boucle VBA ?
Dim i As Integer, j As Integeri = 1Do While i < 3 j = 1 Do While j < 3 MsgBox "i = " & i & ", j = " & j
j=j+1
Loop Loop
Quel est l'effet de Option Explicit en début de module ?
Quel code correspond à cette interface ?