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

ExerciceVB-id2086


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
Imports System.Collections
Module 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 Sub
End Module