Visual Basic 6伪随机数生成算法及Rnd/Randomize函数实现问询

核心伪随机数算法 #

VB6的Rnd函数采用线性同余生成器（LCG），具体参数为：

• 模数 m = 2^24
• 乘数 a = 1103515245
• 增量 c = 12345

生成序列遵循公式：
next_seed = (a * current_seed + c) mod m
最终返回的随机数为 next_seed / m，取值范围是 [0, 1)。

rtcRandomize（对应VB6的Randomize函数）实现 #

Randomize 用于初始化伪随机数生成器的种子：

• 若调用时传入参数（如Randomize n），会将参数转换为32位整数后，取其低24位作为初始种子
• 若未传入参数，读取系统计时器的低24位值作为初始种子
• 内部将处理后的种子赋值给LCG的全局种子变量，确保后续Rnd调用从该种子开始生成序列

rtcRandomNext（对应VB6的Rnd函数）实现 #

Rnd函数的逻辑分三种情况：

• 传入正数或无参数：用当前种子计算下一个种子，返回seed/m，同时更新全局种子
• 传入0：返回当前种子对应的seed/m，不更新种子
• 传入负数：将该负数的低24位作为新种子，计算并返回对应的seed/m，同时更新全局种子

VB6的随机数生成器是全局状态的，所有Rnd调用共享同一个种子变量，仅能通过Randomize或带负参数的Rnd重置。

内容的提问来源于stack exchange，提问作者Kuba hasn't forgotten Monica