Tableau simple pour debutant

Commenter

Contenu du snippet

cette source permet de faire des recherches dans un tableau pre programmer
c est un exercice que l on ma donner en bts ig

Source / Exemple : 


Option Base 1 
Sub Main() 
'déclaration des tableaux 
Static Televe(10) As String, Tmatiere(4) As String, Tnote(11, 5) As Single 
'à faire 
'déclaration des autres variables 
'à compléter 
Dim som As Single, moy As Single, moyg As Single, i As Single, j As Single, eleve As String, matiere As String 
'pré-remplissage du tableau des élèves 
Televe(1) = "Guillaume" 
Televe(2) = "Gustave" 
Televe(3) = "Jules" 
Televe(4) = "Antoine" 
Televe(5) = "Monique" 
Televe(6) = "Julie" 
Televe(7) = "Paul" 
Televe(8) = "Véronique" 
Televe(9) = "Valérie" 
Televe(10) = "Pierre" 
'pré-remplissage du tableau des matières 
Tmatiere(1) = "Mathématiques" 
Tmatiere(2) = "Français" 
Tmatiere(3) = "Anglais" 
Tmatiere(4) = "Philosophie" 
'pré-remplissage du tableau des notes 
Tnote(1, 1) = 15 
Tnote(1, 2) = 11 
Tnote(1, 3) = 16 
Tnote(1, 4) = 11 
Tnote(2, 1) = 18 
Tnote(2, 2) = 16 
Tnote(2, 3) = 8 
Tnote(2, 4) = 8 
Tnote(3, 1) = 14 
Tnote(3, 2) = 15 
Tnote(3, 3) = 18 
Tnote(3, 4) = 9 
Tnote(4, 1) = 11 
Tnote(4, 2) = 11 
Tnote(4, 3) = 16 
Tnote(4, 4) = 11 
Tnote(5, 1) = 11 
Tnote(5, 2) = 8 
Tnote(5, 3) = 15 
Tnote(5, 4) = 15 
Tnote(6, 1) = 18 
Tnote(6, 2) = 15 
Tnote(6, 3) = 11 
Tnote(6, 4) = 16 
Tnote(7, 1) = 12 
Tnote(7, 2) = 12 
Tnote(7, 3) = 9 
Tnote(7, 4) = 18 
Tnote(8, 1) = 14 
Tnote(8, 2) = 15 
Tnote(8, 3) = 11 
Tnote(8, 4) = 16 
Tnote(9, 1) = 11 
Tnote(9, 2) = 18 
Tnote(9, 3) = 16 
Tnote(9, 4) = 14 
Tnote(10, 1) = 18 
Tnote(10, 2) = 11 
Tnote(10, 3) = 18 
Tnote(10, 4) = 14 
'Questions 
'1. calcul et stockage  de la moyenne par élève 

For i = 1 To 10 
som = 0 
   For j = 1 To 4 
   som = som + Tnote(i, j) 
   Next j 
   Tnote(i, 5) = som / 4 
Next i 
'2. calcul et stockage  de la moyenne par matière 
For j = 1 To 4 
som = 0 
   For i = 1 To 10 
   som = som + Tnote(i, j) 
   Next i 
   Tnote(11, j) = som / 10 
    moy = moy + Tnote(11, j) 
   moyg = moy / 4 
Next j 
'4. L'utilisateur saisit un nom d'élève, afficher la moyenne correspondant 
eleve = InputBox("Entrez le nom que vous chercher ") 
For i = 1 To 10 
   If Televe(i) = eleve Then 
       MsgBox "la moyenne de  l '" & eleve & " est de " & Tnote(i, 5) 

   End If 

Next i 

'5. L'utilisateur saisit le nom d'une matière, afficher la moyenne de la matière correspondant 
matiere = InputBox("Entrez le nom de la matière") 
For i = 1 To 4 
   If Tmatiere(i) = matiere Then 
       MsgBox "La moyenne de la matière " & matiere & " est " & Tnote(11, i) 
   End If 
Next i 

'6. Afficher le nom de l'élève ayant obtenue la meilleure moyenne de la classe toute matière confondue. 
Max = 0 
For i = 1 To 10 
If Tnote(i, 5) > Max Then 
Max = Tnote(i, 5) 
kj = i 
End If 
Next i 
MsgBox " le nom de l eleve qui as la meilleur note est " & Televe(kj) & " avec " & Max & " de moyenne" 

End Sub

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.