Soyez le premier à donner votre avis sur cette source.
Snippet vu 10 809 fois - Téléchargée 29 fois
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
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.