funzione ricorsiva

[Umanista]

altrimenti prova così

function getRandIndex(vettore, elementi)
		indice = cint((rnd() * 10) mod 5)
		if vettore(indice) <> -1 then
			Call getRandIndex (vettore, elementi)'riga 46
		end if
		getRandIndex = indice
end function