Ciao allora ti spiego subito la lista sono dei risultati calcistici cioe: 1,2,x,gol,no gol,under,over,1-2,1-x,x-2,pari,dispari,e proprio quest'ulimo cioe il dispari
al posto esce null.Ho controllato durante il ciclo escono tutti tranne il dispari che è all'ultimo posto della lista.
Sub Globals
Dim risultato As Map
Dim scegli As Int
Dim nomi As String
Sub Button1gioca_Click
risultato.Put(1,"1")
risultato.Put(2,"2")
risultato.Put(3,"x")
risultato.Put(4,"1-x")
risultato.Put(5,"1-2")
risultato.Put(6,"x-2")
risultato.Put(7,"Gol")
risultato.Put(8,"No gol")
risultato.Put(9,"Over")
risultato.Put(10,"Under")
risultato.Put(11,"Pari")
risultato.Put(13,"Dispari")
scegli= Rnd(1,13)
nomi=risultato.get(scegli)
Label3.Text=nomi