Генерация случайного числа в последовательности с использованием VBscript

Question

Я новичок в vbscript.

У меня это до сих пор

Function random_number_generator (lowerLim, upperLim) 
    Randomize 
    randNumber = Int(((upperLim-lowerLim+1)* Rnd())+ lowerLim) 
    random_number_generator = randNumber 
End Function 

Но как мне сделать это, чтобы иметь последовательность для генерации скажем 9-значный номер социального страхования?

например, если первое социальное обеспечение - 200030886, следующее - 200030887 и так далее.

Answer 1

Я не уверен, почему у вас есть случайный элемент на ваш вопрос. Кажется, вам просто нужен счетчик?

Dim start, ends 
start = 200030886 
ends = 200040000 

for k = start to ends 
    MsgBox k 
next 

Если вам нужно случайное число, отформатированное как цифры выше, вы можете попробовать это.

MsgBox random_number_generator(1, 10000) 

Function random_number_generator (lowerLim, upperLim) 
    Randomize 
    randNumber = Int(((upperLim-lowerLim+1)* Rnd())+ lowerLim) 
    random_number_generator = "2" & RIGHT("000000000" & randNumber, 8) 
End Function 

Надежда, что помогает

Answer 2

Dim RandNumber 

RandNumber = RandomNumber(1,10000) 

Print RandNumber