RandomNumber

'Si usa la funzione Rnd (Random)


Dim Num as integer
Dim Min=1
Dim Max=100
Num=int(rnd(Min)*Max)