SUPERCAT.DEV

Imports System

Module Program

    Sub CheckNumeroElementi(arr As ArrayList)
        If arr.Count = 0 Then
            Console.WriteLine("- Nessun elemento presente -")
        End If
    End Sub

    Sub StampaElementiFor(arr As ArrayList)
        CheckNumeroElementi(arr)
        For i = 0 To arr.Count - 1
            Console.WriteLine("- " + arr(i).ToString)
        Next
    End Sub

    Sub StampaElementi(arr As ArrayList)
        CheckNumeroElementi(arr)
        For Each el In arr
            Console.WriteLine("- " + el.ToString)
        Next
    End Sub

    Sub Main(args As String())
        Dim lista As New ArrayList()

        lista.Add("Pere")
        lista.Add("Mele")
        lista.Add("Banane")
        lista.AddRange({"Uva", "Fichi"})

        lista.Add(250)

        Dim primo = lista(1)

        Console.WriteLine("Lista elementi:")
        StampaElementi(lista)

        Console.WriteLine("Rimozione elemento:")
        lista.Remove("Mele")
        lista.RemoveAt(lista.IndexOf("Banane"))
        StampaElementi(lista)

        Console.WriteLine("Numero elementi:")
        Console.WriteLine(lista.Count.ToString)

        Console.WriteLine("Contiene:")
        Console.WriteLine(lista.Contains("Uva"))

        Console.WriteLine("Indice elemento:")
        Console.WriteLine(lista.IndexOf("Uva"))
        Console.WriteLine(lista.IndexOf("UvA"))

        Console.WriteLine("Item:")
        Console.WriteLine(lista.Item(2))

        Console.WriteLine("Insert:")
        lista.Insert(0, "Avocado")
        StampaElementi(lista)

        Console.WriteLine("Cancellazione tutti elementi:")
        lista.Clear()
        StampaElementiFor(lista)

    End Sub
End Module