Почему Rnd() возвращает числа за пределами указанного диапазона? - VB

Формулировка задачи:

Примеров масса. Например, вот:

Dim MyValue
Randomize               ' Инициализирует генератор случайных чисел.
MyValue = Int((6 * Rnd) + 1)    ' Возвращает случайное число от 1 до 6.

Этот пример работает без ошибок. Всё отлично. Но стоит изменить числа на другие, и возвращаться будут числа выходящие за границу:

    Randomize
    RandomValue = Int((132 * Rnd) + 101)

Вот что выдаёт такая процедура:

134 186 192 112 115 223 127 153 109 108 111 208 145 229 129 200 153 197 161 199 132 102 131 115 162 154 140 230 161 203 193 125 160 101 155 186 210 103 125 199 107 215 134 183 203 176 152 174 176 172

Sub test()
Dim RandomValue As Integer, i As Long
    For i = 1 To 50
        Randomize
        RandomValue = Int((132 * Rnd) + 101)
        Debug.Print RandomValue
    Next i
End Sub

Для сравнения, эта же процедура, но с другими границами возвращает все результаты в пределах границ:

5 2 1 3 3 6 6 1 6 5 1 2 1 6 1 4 4 5 1 3 3 4 5 5 4 1 3 2 6 4 4 1 4 3 4 4 2 4 1 5 2 3 5 2 4 6 3 5 2 3

Sub test2()
Dim RandomValue As Integer, i As Long
    For i = 1 To 50
        Randomize
        RandomValue = Int((6 * Rnd) + 1)
        Debug.Print RandomValue
    Next i
End Sub

Решение задачи: «Почему Rnd() возвращает числа за пределами указанного диапазона?»

textual
                            Листинг программы 
                        
                            n = Int((max - min + 1) * Rnd + min)