Programmation VbScript: Tableaux Fermé

Question

Bonjour, 

J'ai commencé il y a quelques jours la programmation en cours, on a commencé donc à programmer des petites choses simples en VbScript. Et notre professeur nous a donné un exercice à faire qui est le suivant:

"Ecrire un programme en Vb Script qui permet de gérer les notes de N étudiants
Le programme doit permettre de :
- lire le nom de tous les élèves
- lire la note d'informatique de chaque étudiant
- Afficher le nom de celui qui a la meilleure note
- Afficher le nom de celui qui a la plus mauvaise note
- Afficher la moyenne du groupe
- Afficher la liste des noms par ordre alphabétique
- Afficher la liste des noms et des notes par ordre alphabétique"

Pour le moment j'ai réussi à faire les deux premières consignes mais je suis bloquée sur le reste...
Ah oui, il faut que ça soit fait sous-forme de tableau!
Voilà ce que ça donne pour le moment:

N= InputBox("Entrez le nombre d'étudiant")
N=CInt(N)
Dim noms()
ReDim noms (N)
For i=0 to N-1
noms(i)=InputBox ("Entrez le nom de l'étudiant")
Next
For i=0 to N-1
msgbox noms(i)
Next
Dim notes()
ReDim notes (N)
For i=0 to N-1
notes(i)=InputBox ("Entrez la note de " & noms(i))
Next
For i=0 to N-1
msgbox notes(i)
Next


Configuration: Windows 7 / Chrome 39.0.2171.65

jordane45 · Answer

Bonjour,

Note min et note max
http://www.visualbasicscript.com/Minimum-and-Maximum-values-in-an-array-in-VB-script-m88232.aspx

Tri alphabétique :
https://dzone.com/articles/vbscript-array-sort

.. par contre, tu créés un tableau ( un ARRAY ) pour chaque chose .. NOMS .. NOTES ...
Ne serait -il pas mieux de faire un tableau à 2 Dimensions ?
http://www.w3schools.com/vbscript/vbscript_variables.asp

nb= InputBox("Entrez le nombre d'étudiant")
N=CInt(nb)
dim eleve()

redim eleve(N,2)

' REMPLISSAGE DU TABLEAU
for i=0 to N-1
 nom  = InputBox ("Entrez le nom de l'étudiant" & i)
 note = InputBox ("Entrez la note de " & nom )
 eleve(i,0) = nom
 eleve(i,1) = note
next

' LECTURE DU TABLEAU
for j = 0 to ubound(eleve)-1
 msgbox "Nom: " & eleve(j,0) &  " - Note:" & eleve(j,1)
next

Programmation VbScript: Tableaux

1 réponse

Discussions similaires