IBM Lotus Symphony
|
Кездейсоқ сан генераторын баптандырады.
Кездейсоқ тәртіпке келтіру [Number]
Сан: кездейсоқ сан генераторын баптандыратын кез келген бүтін мән. Сан қалып қойған болса, генератор жүйе таймерінің ағымдағы мәнін пайдаланады.
Қосымша ExampleRandomize
iVar ұяшығын бүтін сан ретінде, sText ұяшығын жол ретінде қайтару
iSpectral(10) ұяшығын бүтін сан ретінде қайтару
2^14-1 кездейсоқ тәртіпке келтіру
iCount = 1 мен 1000 аралығындағы
iVar = Int((10 * Rnd) ) REM 0 мен 9 арасындағы ауқым
iSpectral(iVar) = iSpectral(iVar) +1
Келесі iCount
sText = " | "
iCount үшін = 0 мен 9 аралығында
sText = sText & iSpectral(iCount) & " | "
Келесі iCount
MsgBox sText,0,"Спектірлік таратылым"
Аяқталу ішкі элементі