随机数脚本在Access VBA中生成非随机数

Question

我使用下面的代码生成随机数： -

Dim LRandomNumber   As Integer

LRandomNumber = Int((999 - 100 + 1) * Rnd + 100)

代码取自https://www.techonthenet.com/access/functions/numeric/rnd.php

但是每次我在MS Access中运行代码时，LRandomNumber = 734。

我是否错误地使用了代码，如果没有，是生成1到1000之间随机数的更好方法吗？

Answer 1

在它前面的行上调用Randomize。