allora: per ciò che riguarda l'estrazione casuale dei numeri puoi usare il seguente codice:
dove num_max è il numero massimo che vuoi che venga estratto...
per farli fare 3 estrazioni crei 3 variabili
dim num1 as integer
dim num2 as integer
dim num3 as integer
poi crei l'estrazione per il primo numero
num1 = Int(Rnd() * num_max) + 1
poi per il secondo
num2 = Int(Rnd() * num_max) + 1
IF num2 = num1 then Int(Rnd() * num_max) + 1
come vedi ho fatto in mod che se il secondo numero estratto sia uguale al primo l'estrazione viene ripetuta così da non ottenere mai due numerio uguali....
e con il terzo numero farai la stessa cosa....
Mi dispiace ma per ora posso essertio d'aiuto solo così...
Passo 1) ecco il codice per l'estrazione di tre numeri casuali
PUBLIC SUB Main()
DIM x AS Integer
DIM y AS Integer
DIM z AS Integer
x = Rnd(1, 30)
y = Rnd(1, 30)
IF y = x THEN
y = Rnd(1, 30)
END IF
z = Rnd(1, 30)
IF z = y OR z = x THEN
z = Rnd(1, 30)
END IF
PRINT x
PRINT y
PRINT z
END
dovresti provare, per l'appunto, a convertire il tuo codice per visual basic.....i comandi non si differienziano di molto..ma nn tutti sono tali e quali...
comunque devi aggiustare il tuo codice....dovrebbe essere così:
iFrase1 = Int(Rnd(1, 51))
iFrase2 = Int(Rnd(52, 102))
iFrase3 = Int(Rnd(103, 153))
infatti col codice che hai scritto tu potrbbe succedere (raro ma può accadere e quindi sarebbe un bug) che esca 2 volte il numero 51 ad esempio e quindi frase1 e frase2 sarebbero uguali..
infatti dall'help di gambas:
STATIC PUBLIC SUB Main()
DIM Dice AS Integer
Randomize
Dice = Int(Rnd(1, 7))
'Throws the dice between 1 and 6
PRINT "You threw a " & dice
END
i numeri andavano bene. ciao.