Montado para jogos como Bingo, Loteria e outros do generos, o script chama imagens aleatórias que formam os números, pode ser facilmente adaptado para outra funcionadade que necessitem de imagens geradas aleatóriamente.
0 For i = 0 To n1 If sorteado(i) > n2 Then n2 = sorteado(i): ll = i Next sorteado(ll) = sorteado(n1) sorteado(n1) = n2 n1 = n1 - 1 n2 = 0 Loop resim="imagens/" & sorteado(i) & ".gif" %>Loto
Resultado