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.
Отримайте миттєвий доступ до точних відповідей та детальних пояснень для питань вашого курсу. Наша платформа, створена спільнотою, допомагає студентам досягати успіху!
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