' Notare che sono 2 uomini e 8 donne ma solo per caso :)
Dim mapNomi As Map
mapNomi.Initialize
mapNomi.Put(1, "Tony")
mapNomi.Put(2, "Luca")
mapNomi.Put(3, "Anna")
mapNomi.Put(4, "Maria")
mapNomi.Put(5, "Luisa")
mapNomi.Put(6, "Gianna")
mapNomi.Put(7, "Alessia")
mapNomi.Put(8, "Susanna")
mapNomi.Put(9, "Francesca")
mapNomi.Put(10, "Sonia")