Exercice VB: Manipulation dans une ArrayListe
Ecrire le code VB qui permet de faire:
1- Ecriture d'un élément dans une Arrayliste
2- Lecture d'un élément dans une Arrayliste
3- Ajout d'un élément dans une Arrayliste
4- Suppression d'un élément dans une Arrayliste
5- Insertion d'un élément dans une Arrayliste
6- Tri dans une Arrayliste
7- Vider la collection par la méthode Clear
8- La supprision par la méthode Removeat
9- Quiter
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116 | Imports System.CollectionsModule Module1 Dim lst As New ArrayList Dim i As Integer 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.removeat") 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 Dim ele As Integer Console.WriteLine("entrez l'èlement à supprimer ") ele = Console.ReadLine If lst.Contains(ele) = True Then suppression(ele) Else Console.WriteLine("l'element n'existe pas") End If Case 5 insertion() Case 6 tri() Case 7 clear() Case 8 removeat(i) 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(86) 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(ByVal objet As Object) lst.Remove(objet) End Sub Sub removeat(ByVal i As Integer) Console.WriteLine("saisir la position de l'élément à supprimer") i = Console.ReadLine lst.RemoveAt(i) 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 |