|
Задаем случайное число от 1 до 100...
допустим, если это случайное число в диапазоне 1-10, то возврашаем 1, если в диапазоне 11-15 , то возвращаем 2 и т.п.
Function Randrom ()
Local test
test = Rnd(0,100)
If test>1 And test<15 Then Return 1
If test>16 And test<30 Then Return 2
If test>31 And test<40 Then Return 3
If test>41 And test<50 Then Return 4
If test>51 And test<70 Then Return 5
If test>71 And test<80 Then Return 6
If test>80 And test<99 Then Return 7
End Function
|