Exercice de programmation événementielle

Bonjour à tous et à toutes,
J'ai l'exercice suivant à faire :

Pièce jointe 164460
Pièce jointe 164461
Pièce jointe 164462

Pour les questions 1 et 2, voici mes reponses :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
1/
Procedure formulaire_chargement ()
   i : entier
debut
   lblJoueur.titre ← 1
   lblFin.titre ← ''  ''
   NbClic ← 0
   Gagne ← 0
   pour i de 1 à 9 
      cmdJeu [i].visible ← vrai
      TxtJeu [i].visible ← vrai
   finpour
fin

Code:

1
2
3
4
5
6
7
8
9
10
11
12
procedure cmdGo_Clic (index : entier)
   i : entier
debut
   lblJoueur.titre ← 1
   lblFin.titre ← ''  ''
   NbClic ← 0
   Gagne ← 0
   pour i de 1 à 9 
      cmdJeu [i].visible ← vrai
      TxtJeu [i].visible ← vrai
   finpour
fin

Pouvez vous me dire ce que vous en pensez?
Merci d'avance, cordialement:)