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.
Отримайте миттєвий доступ до точних відповідей та детальних пояснень для питань вашого курсу. Наша платформа, створена спільнотою, допомагає студентам досягати успіху!
Analysez le code suivant pour déterminer la valeur de la variable MaVar à la fin du traitement.
Option Explicit
Sub rollercoaster()Dim Mavar As IntegerDim i, j As Bytei = 1For j = 1 To 100 Do While i / 2 = Int(i / 2) Mavar = Mavar + 1 Loop i = i + 1 NextMsgBox MavarEnd SubAnalysez le code suivant pour déterminer la valeur de la variable MaVar à la fin du traitement.
Option Explicit
Sub rollercoaster()Dim Mavar As IntegerDim i, j As Bytei = 1For j = 1 To 100 Do While i / 2 = Int(i / 2) Mavar = Mavar + 1 i = i + 1 Loop NextMsgBox MavarEnd SubQuel est le code permettant de réaliser l'interface suivante ?
A la lecture du code suivant, quel sera le comportement du programme si l'utilisateur clique sur ANNULER ?
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
Que se passe-t-il si on exécute Redim Tab(1 to 10) sur un tableau déjà dimensionné sans utiliser Preserve ?
Quel code correspond à cette interface ?
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 Mavar = Mavar + 1 i = i + 1 Loop Until i / 2 = Int(i / 2) NextMsgBox MavarEnd SubQuelle instruction VBA permet de vérifier qu'une variable MaVar a été initialisée avant de l'utiliser ?
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
Comment déclarer un tableau statique à une dimension contenant 10 éléments de type string en VBA ?