% Dim intLowerBound Dim intUpperBound Dim intRangeSize Dim sngRandomValue Dim intRandomInteger intLowerBound = 1 intUpperBound = 3 Randomize() intRangeSize = intUpperBound - intLowerBound + 1 sngRandomValue = intRangeSize * Rnd() sngRandomValue = sngRandomValue + intLowerBound intRandomInteger = Int(sngRandomValue) %>
![]() |
|
| |
||||||||||
| |
||||||||||
|
|
||||||||
|