SUPERCAT.DEV

Imports System

Module Program

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

    Sub StampaChiavi(arr As Hashtable)
        CheckNumeroElementi(arr)
        For Each k In arr.Keys ' idem per Values
            Console.WriteLine("- " + k.ToString)
        Next
    End Sub

    Sub Stampa(arr As Hashtable)
        CheckNumeroElementi(arr)
        For Each el As DictionaryEntry In arr
            Console.WriteLine("- " + el.Key.ToString + " : " + el.Value.ToString)
        Next
    End Sub

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

        lista.Add("Pere", 5)
        lista.Add("Mele", 4)
        lista.Add("Banane", 3)

        Dim primo = lista(1)

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

        Console.WriteLine("Rimozione elemento:")
        lista.Remove("Mele")
        StampaChiavi(lista)

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

        Console.WriteLine("Contiene:")
        Console.WriteLine(lista.Contains("Uva")) 
        Console.WriteLine(lista.Contains("Banane")) 
        Console.WriteLine(lista.ContainsValue(3)) 

        Console.WriteLine("Item:")
        Console.WriteLine(lista.Item("Pere")?.ToString)

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

    End Sub
End Module