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

使用VBscript生成序列中的随机数

2 个答案: