Aspect 1 of the marking criteria can be found in the assignment instructions. It covers correct grammar, punctuation and writing style. Select all of the statements below that should apply to your assignment. Note that there is one item below that is bad practice and you shouldn't select this one.
By ticking a box below, you are indicating that you acknowledge that you should be aiming for this.
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
Quelle instruction permet de déclarer un tableau dynamique en VBA ?
Bei der Gefährdungshaftung