Функция, возвращающая три значения

[Slant-shadow]

Всем привет. Может кто-нибудь помочь с написанием функции VBA возвращающей случайным образом с равной вероятностью три
значения – 0, 1 или 2. 

[NatM]

Я бы попробовала, может замороченно,  но так: сложить все цифры текущего времени включая секунды до одной цифры. Затем разделить на 3 и оставшееся число после деления будет либо 0, либо 1, либо 2. Повтор будет через 3 секунды. 

Первое,  что пришло в голову.. .

[NatM]

Function N_012() As Byte
N_012 = Timer() Mod 3
End Function

Так это выглядит программно

[Slant-shadow]

А время-то тут причем?

[NatM]

Обеспечивает равную вероятность появления трех цифр. Псевдослучайно. 

Можно,  конечно так:

 

Randomize

Int(Rnd () * 10) mod 3

 

Но на самом деле,  это тоже псевдослучайное число. 

Edited December 8, 2016 by NatM

[AbraShwabraKadabra]

В 08.12.2016 в 06:38, NatM сказал:

Int(Rnd () * 10) mod 3

А ничего, что он тройки выдает?

Надо Int(rnd*3)

[NatM]

Не выдает. Проверила. И не может выдавать

 

Остаток деления на 3 уж никак не может быть 3.

Edited December 9, 2016 by NatM

[AbraShwabraKadabra]

Int(Rnd*10)  - результат

0-0
1-1
2-2
3-0
4-1
5-2
6-0
7-1
8-2
9-0

Итого 0 - 40% 1-30% 2 - 30%

 

[NatM]

А потому,  вначале я предлагала плясать от таймера - там повторение через 3 секунды

[AbraShwabraKadabra]

Timer вообще-то дает дробные части секунды. Можно сначала умножить на 1000, а уж потом mod 3. Тогда генерить будет довольно хорошо.

[NatM]

Таймер дает количество секунд с начала суток. Соответственно,  умножать ничего не надо. 

Я проверяла, что работает как надо,  прежде чем сюда писать. Ощущение,  что вы наобум пишете сообщения. Троллите? 

[Slant-shadow]

А так можно?

Dim lRundNum As Long, lMinNum As Long, lMaxNum As Long  
lMinNum = 0: lMaxNum = 2  
Randomize  
lRundNum = Int(lMinNum + (Rnd() * lMaxNum))  
MsgBox lRundNum  

 

[NatM]

Так вам может вернуть 3. Функция Rnd возвращает от 0 до 1.5 включительно,  как я поняла. 

И,  уже не об ошибке,  а программировании: не понимаю,  зачем делать лишнюю операцию. Сложение с нулем ничего не дает. 

[Slant-shadow]

9 часов назад, NatM сказал:

Так вам может вернуть 3. 

Не возвращает 3. Даже 2 не возвращает.

Чтобы возвращало два нужно изменить значение переменной  lMaxNum на 3.

И тогда

lRundNum = Int(Rnd() * lMaxNum) 

 

[NatM]

Прошу прощения. Я перепутала: Rnd возвращает до 1, а не до 1,5 включительно.