Exercices en Visual Basic
Transféré par
ScribdTranslationsExercices en Visual Basic
Transféré par
ScribdTranslationsExercice 1
Une agence de voyages doit préparer un brouillon de catalogue avec N voyages d'occasion. Pour chaque voyage, on connaît :
destination
capable d'exécuter les demandes suivantes :
1. Charger et afficher les données dans des listes appropriées
2. Entrez au clavier le montant que vous avez à disposition et que vous souhaitez dépenser, puis visualisez les destinations qui ont un coût.
inférieur ou égal (recherche avec boucle for)
3. En entrant une destination au clavier, afficher le coût et le nombre de places disponibles, en envoyant un message.
s'il n'est pas présent dans la liste (recherche avec trouvé)
4. Classer les voyages par destination par ordre alphabétique et afficher la liste obtenue avec le coût correspondant.
les postes disponibles dans les listes déroulantes.
Exercice 2
Une petite commune de province s'est équipée de quelques radars de vitesse et souhaite automatiser certaines opérations.
Deux vecteurs parallèles contenant respectivement le numéro de plaque et la vitesse enregistrée du véhicule doivent être fournis en entrée.
Ces données se réfèrent à N véhicules circulant sur un tronçon de route de la commune, un jour déterminé. Écrire un
programme qui, donné N en entrée, après avoir chargé et affiché les vecteurs dans deux listes, permet de gérer les suivants
demandes
1. Compte : compter et montrer combien de véhicules ont dépassé la limite de vitesse, fournie en entrée.
2. Infractions : afficher la plaque d'immatriculation du véhicule avec la vitesse maximale
3. Plaque-véhicules : étant donné la plaque d'un véhicule, afficher sa vitesse, en envoyant un message si elle n'est pas trouvée.
Exercice 3
Les produits traités dans une herboristerie sont stockés dans deux vecteurs parallèles : nom du médicament, prix de vente.
Après avoir chargé les N produits dans les vecteurs, écrivez un programme qui permet de gérer les demandes suivantes :
1. Nom-prix minimum : trier les vecteurs (tri à bulles) en maintenant le parallélisme des données, puis montrer le
nom du médicament avec le prix le plus bas
2. Économiques : compter et visualiser combien de médicaments ont un prix inférieur à un montant donné en entrée
3. Classe-prodotti : donné le nom d'un produit, afficher son prix, en envoyant un message si le produit n'existe pas.
il se trouve
4. Médias : calculer et afficher le prix des médicaments.
Exercice 4
Donnez 3 vecteurs avec les noms d'enfants d'une école, l'âge et le sexe
1. Le nom de l'enfant âgé de maximum
L'âge moyen des femelles
3. Ordonner les vecteurs en fonction de l'âge des enfants (du plus grand au plus petit)
4. Étant donné le nom d'un enfant, afficher son âge et son sexe, en envoyant un message si le nom n'est pas trouvé.
Classe Publique Form1
DimNAs Integer
DimiEn entier
DimImpEnTantQu'Entier
DimD(50)Comme Chaîne
DimP(50) En tant qu'Integer
DimC(50)En Integer
DimTrovatoComme Boolean
DimChiaveEnChaine
Sous Privé BtnCarica_Click(expéditeur As Objet, e En EventArgs) Gère [Link]
N = [Link]
Pour i = 0 à N - 1
InputBox("Écrivez la destination du " + Str(i + 1) + "° voyage",
Destination
P(i) = Val(InputBox("Combien de places sont disponibles pour " + D(i) + "?", "Places
disponibles
C(i) = Val(InputBox("Combien coûte le voyage pour " + D(i) + "?", "Coût du voyage"))
[Link](D(i))
[Link](P(i))
[Link](C(i))
Suivant
Fin de procédure
Private Sub BtnTrova_Click(sender As Object, e As EventArgs) Handles [Link]
Imp = [Link]
Pour i = 0 à N - 1
SiImp >= C(i)Alors
[Link](D(i))
Fin Si
Suivant
Fin de la procédure
Sous-Privé BtnTrovaD_Click(sender As Object, e As EventArgs) Gère [Link]
[Link]
Trovato =False
i=0
Fais
Si Chiave = D(i) Alors
Trouvé
[Link] = P(i)
C(i)
Sinon
i=i+1
Fin Si
Boucle Jusqu'à Trovato = Vrai Ori = N
Si Trovato = Faux Alors
MsgBox("La destination n'est pas disponible", "Rechercher une destination")
Fin Si
Fin de la procédure
Fin de classe
Classe Publique Form1
DimNAs Integer
DimV(50)En Integer
DimT(50)En tant que chaîne
DimLVAs Integer
DimChiaveComme String
DimTrovatoAs Boolean
DimVMAs Integer
DimiEn Entier
DimContEn tant qu'Integer
DimMaxEnEntier
Private Sub BtnCarica_Click(sender As Object, e As EventArgs) Handles [Link]
N = Val([Link])
LV = Val([Link])
Pour i = 0 à N - 1
T(i) = InputBox("Écrivez le numéro de plaque du " + Str(i + 1) + "° véhicule", "Plaque")
V(i) = Val(InputBox("Insérez la vitesse du véhicule " + T(i), "Vitesse"))
[Link](T(i))
[Link](V(i))
Suivant
Cont = 0
i=0
Pour i = 0 à N - 1
Si V(i) > LV Alors
[Link](T(i))
Cont = Cont + 1
Fin Si
Suivant
[Link] = Cont
Max = -32678
i=0
Pour i = 0 à N - 1
Si V(i) > Max Alors
Max = V(i)
Fin Si
Suivant
[Link] = Max
Fin de sous
Private Sub BtnTrova_Click(sender As Object, e As EventArgs) Handles [Link]
[Link]
i=0
Faux
Fais
Si Chiave = T(i) Alors
Véritable
[Link] = V(i)
Sinon
i=i+1
Fin Si
Boucle TantQue Trovato = Vrai Ori = N
Si Trovato = Faux Alors
MsgBox("La plaque d'immatriculation n'est pas présente")
Fin Si
Fin de sous
Fin de classe
Classe Publique Form1
DimNAs Integer
Entier
DimNom(50)En Chaîne
DimEtà(50)As Integer
DimSesso(50)Comme Chaîne
DimContComme Integer
DimEFAs Integer
DimEMAs Integer
DimChiaveEnChaîne
DimTrovatoAs Booléen
DimOrdinatoComme Boolean
DimSupEn Tant Qu'Entier
DimComodoNAs String
DimComodoEAs Integer
DimComodoSEn Chaine
Private Sub BtnCarica_Click(sender As Object, e As EventArgs) Handles [Link]
N = [Link]
Pour i = 0 à N - 1
Boîte de saisie("Entrez le nom de l'" + Str(i + 1) + "° élève","Nom de l'élève")
Âge(i) = Val(InputBox("Entrez l'âge de " + Nom(i), "Âge de l'élève"))
InputBox("insérez le sexe de " + Nom(i) + " (F/M)", "Sexe de l'élève")
[Link](Nome(i))
ListaEtà.[Link](Età(i))
[Link](Sesso(i))
Suivant
Cont = 0
EF = 0
i=0
Pour i = 0 à N - 1
Si Sesso(i) = "F" Alors
Cont = Cont + 1
EF = EF + Âge(i)
Fin Si
Suivant
EM = EF / Cont
[Link] = EM
Fin de sous
Bouton Privé SubBtnOrdina_Cliquer(expéditeur En Tant Que Objet, e En Tant Qu'Événements) Manipule [Link]
Sup = N
Ordinato =False
i=0
Faire Tant Que(Sup > 1EtOrdinato =Faux)
Ordinato =True
Pour i = 0 À Sup - 1
SiEtà(i) > Età(i + 1)Alors
Età(i)
Âge(i) = Âge(i + 1)
Âge(i + 1) = ComodoE
ComodoN = Nom(i)
Nom(i) = Nom(i + 1)
Nome(i + 1) = ComodoN
Sesso(i)
Sesso(i) = Sesso(i + 1)
Sesso(i + 1) = ComodoS
Fin Si
Suivant
Sup = Sup - 1
Boucle
Fin de la sous-routine
Private Sub BtnTrova_Click(envoyeur As Object, e As EventArgs) Handles [Link]
i=0
[Link]
Faux
Fais
Si Chiave = Nome(i) Alors
Trouvé
[Link] = Âge(i)
[Link] = Sexe(i)
Sinon
i=i+1
Fin Si
Boucle Untiltrovato
Si Trovato = Faux Alors
MsgBox("L'élève n'est pas présent")
Fin Si
Fin de sous
SubBtnCancella_Click(sender As Object, e As EventArgs) Handles [Link]
[Link]()
ListaEtà.[Link]()
[Link]()
Fin de la sous-procédure
Fin de classe
