L2 Programmation VBA
Looking for L2 Programmation VBA test answers and solutions? Browse our comprehensive collection of verified answers for L2 Programmation VBA at moodle.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 bonne syntaxe de cette boîte de dialogue ? (Rep correspond à la variable)
Quelle est la bonne syntaxe de cette boîte de dialogue ? (Rep correspond à la variable)
Quelle syntaxe correspond à cette boîte de dialogue ?
A la lecture du code suivant, quelle sera la valeur de la variable Mention ?
MaNote=12
If MaNote >=0 Or MaNote <=20 Then
If MaNote < 10 then
Mention = « Ajourné »
ElseIf MaNote >=10 Then
Mention= « Reçu »
EndIf
EndIf
Quelle syntaxe correspond à cette boîte de dialogue ?
Quelle est la bonne syntaxe de cette boîte de dialogue ? (Rep correspond à la variable)
Quelle syntaxe correspond à cette boite de dialogue ?
Quelle est la bonne syntaxe de cette boîte de dialogue ? (Rep correspond à la variable)
On a besoin de vérifier que la note d’un test sera entre 0 et 100. Si l’utilisateur saisit une valeur en dehors de cet intervalle (on utilise la variable Score), on va redemander la saisie jusqu’à ce qu’elle soit correcte. Quelle est la commande qu’on va utiliser ?
La procédure Kiplante() a pour objectif d’enregistrer les meilleurs temps d’un athlète dans une feuille Excel. On veut obtenir le nom du coureur et son meilleur temps dans une même ligne. On suppose que la valeur saisie pour la variable Chrono est toujours strictement supérieur à 0. Le code ne fonctionne pas comme désiré. Pourquoi ?
Option Explicit
Sub Kiplante()
Dim NbTours, i as Integer
Dim Chrono, ChronoEnreg as Long
Dim Coureur as String
ChronoEnreg = 60000
Coureur = Inputbox(« Quel est le nom de l’athlète ? »)
Coureur = Cells(« A1 »)
NbTours = Inputbox (« Combien de tours de pistes ? »)
For i=1 to NbTours
Chrono = Inputbox (« Quel temps pour le tour n° » & i)
If Chrono < ChronoEnreg Then
Chrono = Cells(« A2 »)
NbTours = Cells(« A3 »)
ChronoEnreg = Chrono
End if
Next i
End Sub
Want instant access to all verified answers on moodle.unistra.fr?
Get Unlimited Answers To Exam Questions - Install Crowdly Extension Now!