как сгенерировать случайное число в пределах от Х1 до Х2 ???

[Daniil]

как сгенерировать случайное число в пределах от Х1 до Х2 ???
Например, от 12587 до 123658 ?

[A.A.Z.]

Код: Выделить всё

Randomize
X = Int(<Меньшее Число> + (Rnd * (<Большее Число> - <Меньшее Число>)))
'Если нужны не только целые, то Int убери

Например,

Код: Выделить всё

Randomize
X = Int(12587 + (Rnd * (123658 - 12587))

[Sur]

x = Int(12587 + (Rnd * (123658 - 12587 + 1)))
а то 123658 не дождешься.

[v@Mp!rO]

Код:

Код: Выделить всё

Function dRnd(num1, num2 As Integer) As Integer
'Initializes random number genarator
Randomize
   
    Select Case num1
'if second number > first number
        Case Is < num2
            dRnd = Round(Rnd(1) * (num2 - num1) + num1)
'if first number > second number
        Case Is > num2
            dRnd = Round(Rnd(1) * (num1 - num2) + num2)
'if first number = second number
        Case Is = num2
            dRnd = num1
    End Select
   
End Function

[Шурик]

x=round(rnd*123658)+12587