Использование функции Rnd

Rnd([Min],[Max])

Вычисляет псевдо-случайное число с плавающей точкой, используя алгритм Lehmer.
- Если параметры не заданы, возвращает псевдо-случайное число в интервале [ 0 , 1 ].
- Если один из параметров задан, возвращает псевдо-случайное число в интервале [ 0 , Min ].
- Если оба параметра заданы, возвращает псевдо-случайное число в интервале [ Min , Max ].

Примеры:

' между 0 и 1
PRINT Rnd --> 0.019539254718
' между 0 и 2
PRINT Rnd(2) --> 0.040205506608
' между Pi и Pi*2
PRINT Rnd(Pi, Pi(2)) --> 3.204108046818
' или
PRINT Rnd(Pi, Pi*2) --> 3.464108046818

STATIC PUBLIC SUB Main()
DIM Dice AS Integer
Randomize
Dice = Int(Rnd(1,7))
'значение переменной dice будет между 1 и 6
PRINT "Случайное число между 1 и 6 =" & dice
END