Например:
Public Function Random(Inf, Sup As Integer) As Integer
Random = Int((Sup - Inf + 1) * Rnd + Inf)
End Function
*******
Randomize: np = Random(0, 9) Mod 2
Выдает случайные числа от 0 до 9

------------------------------



http://www.prepody.ru/topic4169.html

2 пост