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

[Whitecolor]

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

[kuklp]

Кросс:
http://www.programmersforum.ru/showthread.php?t=300868
http://forum.msexcel.ru/index.php/topic,11569.msg57464.html#msg57464
http://www.excelworld.ru/forum/10-31445-1
http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=85365&TITLE_SEO=85365-funktsiya-vozvrashchayushchaya-tri-znacheniya

[Дмитрий Щербаков(The_Prist)]

Если речь про VBA, то так можно:

Код (vb) Выделить Развернуть

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

[Whitecolor]

А у Вас возвращается 2? У меня почему-то только 0 или 1.

[A-Michael]

Так 2 никогда не будет, т.к RND никогда не даёт 1, лучше, по моему:

Код (vb) Выделить Развернуть

lMaxNum = 3и тогда:

Код (vb) Выделить Развернуть

lRundNum = Int(Rnd() * lMaxNum)

[RAN]

Лучше правильно

Код (vb) Выделить Развернуть

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

[A-Michael]

То есть, если перевести в числа, получится:

Код (vb) Выделить Развернуть

Int((2-0+1) * Rnd + 0)
И тогда:

Код (vb) Выделить Развернуть

Int((3) * Rnd)
По сути моя формула и получается, просто Вы, уважаемый RAN дали формулу в общем виде для любых значений границ.