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 est le problème avec cette boucle VBA ?
Dim i As Integer, j As Integeri = 1Do While i < 3 j = 1 Do While j < 3 MsgBox "i = " & i & ", j = " & j Loop i = i + 1Loop
On souhaite faire la somme de plusieurs nombres positifs en arrêtant ce calcul lors de la saisie de 0. On procède ensuite au calcul de la moyenne de ces nombres. Le code ne fonctionne pas. Pourquoi ?
Sub moyenne_nombres()
Dim somme As Double, x As Double, n As Integer
x=InputBox("Entrez un nombre réel")
n=0
somme=0
Do While x<>0
x=inpoutbox("Entrez un nombre réel")
somme=somme+x
n=n+1
Loop
MsgBox"Moyenne des " & n & " nombres = " & somme/n
End Sub
A la lecture du code suivant, quel sera le comportement du programme si l'utilisateur clique sur NON ?
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
Quel est le code permettant de réaliser l'interface suivante ?
Quel est le problème avec ce code VBA ?
Dim i As Integer, j As Integeri = 0Do While i < 3 j = 0 Do Until j = 3 MsgBox "i = " & i & ", j = " & j j = j + 1 Loop i = jLoop
Quel code correspond à cette interface ?
Quel code correspond à cette interface ?
Quel code permet de réaliser l'interface suivante ?
On souhaite faire la somme de plusieurs nombres positifs en arrêtant ce calcul lors de la saisie de –1. On procède ensuite au calcul de la moyenne de ces nombres. Le code ne fonctionne pas. Pourquoi ?
Sub moyenne_nombres()
Dim somme As Double, x As Double, n As Integer
x=InputBox("Entrez un nombre réel")
n=0
somme=0
Do Whilst x<>1
x=InputBox("Entrez un nombre réel")
somme=somme+x
n=n+1
Loop
MsgBox"Moyenne des " & n & " nombres = " & somme/n
End Sub
Quelle sera la valeur de j à l'issue de ce traitement ?
Dim i As Integer, j As IntegerFor i = 1 To 3 j = 1 Do While j <= i j = j + 1 LoopNext i