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.
Отримайте миттєвий доступ до точних відповідей та детальних пояснень для питань вашого курсу. Наша платформа, створена спільнотою, допомагає студентам досягати успіху!
Quel code correspond à cette interface ?
A la lecture du code suivant, que se passera-t-il si l'utilisateur choisit Recommencer ?
Sub Extraction()Dim pib As DoubleDim pays As StringDim rep, erreur As Byte
erreur=0
i=1
Saisie: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 ?", vbQuestion + vbAbortRetryIgnore, "Données macroéconomiques") If rep = 3 Then GoTo Fin ElseIf rep = 4 Then GoTo Saisie Else MsgBox "Données non significatives" GoTo Saisie erreur=erreur+1
End IfEnd IfFin:
MsgBox "Il y a eu " & erreur & " erreurs d'extraction pendant cette session"
End Sub
On souhaite convertir le contenu de la variable Mavar après saisie dans une variable MaType, permettant de contenir une valeur décimale.
Quel est l'extrait de code permettant cette opération ?
Comment récupérer la valeur du dernier indice du tableau tab en VBA ?
Quel code permet de réaliser l'interface suivante ?
Quel est le problème avec cette boucle VBA ?
Dim i As Integeri = 1Do While i < 10 i = i - 1Loop
Dans le code suivant, il y a deux erreurs :
Sub Epreuves1()
Dim i As Integer
Dim nom As String, n As String
Dim x As Single, y As Single, z As Single
Dim c1 As Single, c2 As Single, c3 As Single
Dim m 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)
MsgBox « La moyenne de l’étudiant » & nom & « est : » & m
Next
End Sub
En analysant le code suivant, indiquez le comportement attendu de la procédure.
Sub MaProcedure()
Dim var1 as integer
Dim var3 as byte
var1= 256
var3=CByte(var1)
Msgbox var3
End Sub
Quel est le code permettant de réaliser l'interface suivante ?
Quel est le code qui permet de réaliser l'interface suivante ?