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 différence entre un tableau statique et un tableau dynamique en VBA ?
Parmi les propositions de code suivantes, quelle est la solution sans bug ?
En analysant le code suivant, indiquez le comportement attendu de la procédure.
Sub MaProcedure()
Dim var1, var2 as integer
Dim var3 as byte
var1=-600
var2=var1*2
var3=355
var3=Cint(var3)
var3=var2+var3
Msgbox var3
End Sub
Que permet d'afficher la fenêtre Espion dans VBA ?
Comment insérer un nouvel élément, dont la valeur est dans MaVar, qui sera placé au début d’un tableau statique, nommé Tab, en VBA ?
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 Do Mavar = Mavar + 1 i = i + 1 Loop Until i / 2 = Int(i / 2) j = j - 1Loop Until j < 10MsgBox MavarEnd SubQuel est le problème avec cette boucle VBA ?
Dim i As Integer, j As Integeri = 1Do Until i > 3 j = 1 Do Until j > 3 j = j + 1 LoopLoop
Quel code permet de réaliser l'interface suivante ?
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=Right(var1, 2)
End Sub
Dans le code suivant, il y a deux erreurs :
Sub Epreuves2()
Dim n As Integer, i As Integer
Dim nom As String
Dim maxnom As Double
Dim x As Single, y As Single, z As Single
Dim m As Single, maxm As Single
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
Next
End If
MsgBox « L’élève » & maxnom & « a la moyenne maximale » & maxm
End Sub
Want instant access to all verified answers on moodle-exam.unistra.fr?
Get Unlimited Answers To Exam Questions - Install Crowdly Extension Now!