Programmation VbScript: Tableaux
ophedos
Messages postés
88
Statut
Membre
-
jordane45 Messages postés 30427 Date d'inscription Statut Modérateur Dernière intervention -
jordane45 Messages postés 30427 Date d'inscription Statut Modérateur Dernière intervention -
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:
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
1 réponse
-
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
