Exercice VB: Travailler avec les Collections
Objectif :
Travailler avec les Collections ;
Travail à Faire :
Ecrire le programme qui permet de réaliser les opérations dans l’interface ci-dessus à l’aide d’une collection Arrayliste.
On initialisera la collection par les éléments suivants :
10, 20, 88, 88, 1, 60
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117 | Imports System.CollectionsModule Module1 Dim lst As New ArrayList Sub menu() Console.WriteLine("1.ecriture") Console.WriteLine("2.lecture") Console.WriteLine("3.ajout") Console.WriteLine("4.suppression") Console.WriteLine("5.insertion") Console.WriteLine("6.tri") Console.WriteLine("7.clear") Console.WriteLine("8.recherche") Console.WriteLine("9.quiter") End Sub Sub Main() Dim choix As String Dim rep As String Do menu() Console.WriteLine(" tapez votre choix") choix = Console.ReadLine Select Case choix Case 1 ecriture() Case 2 lecture() Case 3 ajout() Case 4 'Console.WriteLine("saisir l'élément supprimer") 'Dim elem = Console.ReadLine suppression() Case 5 insertion() Case 6 tri() Case 7 clear() Case 8 recherche() Case 9 Case Else Console.WriteLine("le choix que vous avez tapez est introuvable") End Select Console.WriteLine("voulez-vous contunier ?o/n") rep = Console.ReadLine Loop Until (rep = "n") End Sub Sub ecriture() lst.Add(10) lst.Add(20) lst.Add(88) lst.Add(88) lst.Add(1) lst.Add(60) End Sub Sub lecture() For i = 0 To lst.Count - 1 Console.WriteLine(lst(i)) Next End Sub Sub ajout() Dim i As Integer Dim rep As String Do Console.WriteLine("saisir l'élément", i + 1) lst.Add(Console.ReadLine) i += 1 Console.WriteLine("voulez vous ajouter un autre O/N") rep = Console.ReadLine.ToUpper Loop Until rep = "N" End Sub 'Sub suppression() ' Dim ele As Integer ' Console.WriteLine("entrez l'èlement à supprimer ") ' ele = Console.ReadLine ' If lst.Contains(ele) = True Then ' lst.Remove(ele) ' Else ' Console.WriteLine("l'element n'existe pas") ' End If 'End Sub Sub suppression() Dim i As Integer Console.WriteLine("saisir la position de l'élément à supprimer") i = Console.ReadLine lst.RemoveAt(i) End Sub Sub insertion() Dim ele As Integer Dim i As Integer Console.WriteLine("saisir l'élément à inserer ") ele = Console.ReadLine Console.WriteLine("saisir le position ou vous voulez inserer cette ele") i = Console.ReadLine lst.Insert(i, ele) End Sub Function recherche() Dim ele, i, k As Integer Console.WriteLine("saisir l'élément à rechercher") ele = Console.ReadLine If lst.Contains(ele) = True Then k = lst.IndexOf(ele) Return k Else End If Return -1 End Function Sub clear() lst.Clear() End Sub Sub tri() lst.Sort() End SubEnd Module |