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 valeur finale de somme après l'exécution de ce code ?
Dim i As Integer, j As Integer, somme As Integeri = 1somme = 0Do Until i > 3 j = 1 Do Until j > 2 somme = somme + j j = j + 1 Loop i = i + 1Loop
On souhaite convertir le contenu de la variable Mavar après saisie dans une variable MaType, permettant de contenir une valeur monétaire.
Quel est l'extrait de code permettant cette opération ?
Quel type de données permet de stocker un tableau de dimensions variables en VBA ?
A la lecture du code suivant, que se passe-t-il si l'utilisateur a cliquer sur Oui ?
Sub CalculPrime()Dim prime As Currency, chiffreaffaire As CurrencyDim intercomm As SingleDim rep As Bytechiffreaffaire = InputBox("Quel est le chiffre d'affaires réalisé sur la période ?", "Prime")rep = MsgBox("Voulez-vous procéder au calcul de la prime ?", vbQuestion + vbYesNo, "Calcul de prime")If rep = 7 Then MsgBox "Il n'y aura pas de calcul de primes"Else ChoixtauxprimeEnd IfEnd SubComment affecter la valeur 100 au troisième élément d'un tableau nommé Tab ?
Le tableau est un tableau dynamique.
Dans le code suivant, il y a deux erreurs :
Sub Epreuves1()
Dim i, n As Integer
Dim nom As String, m As String
Dim x As Single, y As Single, z As Single
Dim c1 As Single, c2 As Single, c3 As Single
n = MsgBox(« Donnez le nombre d’étudiants »)
c1 = InputBox(« Donnez le coefficient de la première épreuve »)
c2 = InputBox(« Donnez le coefficient de la deuxième épreuve »)
c3 = InputBox(« Donnez le coefficient de la troisième épreuve »)
For i = 1 to n
nom = InputBox(«Donnez le nom de l’étudiant»)
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*c1 + y*c2 + z*c3) / (c1 +c2 +c3)
m = MsgBox (« La moyenne de l’étudiant » & nom & « est : » & m, vbExclamation+vbOKOnly,"Moyenne")
Next
End Sub
Comment affecter la valeur 100 au quatrième élément d'un tableau nommé Tab ?
Le tableau est un tableau dynamique.
Quelle est le nombre d'éléments d'un tableau déclaré avec la ligne de code suivante ?
Dim Tab(5) as integer
Quelle est la valeur finale de x après l'exécution de ce code ?
Dim i As Integer, j As Integer, x As Integerx = 0i = 1Do While i <= 3 j = 1 Do While j <= 3 x = x + i + j j = j + 1 Loop i = i + 1Loop
Quel code correspond à cette interface ?
Get Unlimited Answers To Exam Questions - Install Crowdly Extension Now!