Question 1 :

Function Syracuse(Nb As Integer) As String
Syracuse = CStr(Nb)
	While Nb > 1
		If Nb Mod 2 = 0 Then
			Nb = Nb / 2
		Else
			Nb = Nb * 3 + 1
		End If
		Syracuse = Syracuse + "," + CStr(Nb)
	Wend
End Function

Si Nb = 10, le résultat sera : 5,16,8,4,2,1

Si Nb = 10, le résultat sera : 10,5,16,8,4,2,1

Si Nb = 10, le résultat sera : 10,8,4,2

Si Nb = 10, le résultat sera : 10,9,8,7,6,5,4,3,2,1

Question 2 : L'instruction 'Mid(variable_string, 15, 12)' permet de:

Récupérer les 12 caractères suivant le 15ème caractère

Les 12 premières lettres et les 15 dernières

Récupérer les 15 lettres suivant le 12ème caractère

Les 15 premières lettres et les 12 dernières

Question 3 : Not a = b

Ignore la comparaison

=False si a est égal à b

=True si a est égal à b

=False quelque soit le résultat

Question 4 :

'Quel sera la valeur de la cellule A1?
Age = 14
Etudiant = True
Film_3D = True

If Age < 14 Then
	Prix = 4.9
ElseIf Age < 18 Then
	Prix = 6.9
ElseIf Etudiant Then
	Prix = 7.9
Else
Prix = 11.4
End If
If Film_3D Then
	Prix = Prix + 3
End If
Range("A1").Value = Prix

14,4

6,9

9,9

7,9

Question 5 : Une variable DOUBLE est:

Ne peut prendre que 2 valeurs: True et False

Un nombre à virgule

Un nombre entier

Une chaine de caractère