如何在Python中复现VBA指定种子生成的随机数序列

我有一段Visual Basic（VBA）代码，可根据给定种子（示例为456）生成随机数向量。现需在Python中复现该代码，生成与VBA完全一致的随机数序列，即实现种子的对应映射。

VBA示例代码 #

Function rnd_seed(seed)
    Dim x(1 To 10) As Double
    Rnd (-1)
    Randomize seed
    For i = 1 To 10
        x(i) = Rnd
    Next i
    rnd_seed = x
End Function

VBA种子456生成的随机数 #

0.014666617 
0.462389946 
0.098651111 
0.189074159 
0.107685387 
0.219710588 
0.967558324 
0.409745097 
0.213494837 
0.848815441

尝试的Python代码及结果 #

我使用如下Python代码尝试复现：

seed = 456

import random
random.seed(seed)
arr=[]
for i in range(10):
    arr.append(random.random())

生成的数值为：

[0.7482025358782363,
 0.9665873085424435,
 0.4352093219057409,
 0.7942997804992433,
 0.6481497216250237,
 0.6174050474978059,
 0.8222710780743806,
 0.7895737180242367,
 0.8864808985728122,
 0.3264489135810307]

可见两者生成的数值不同，请问是否可在Python中生成与VBA一致的随机数？是否存在VBA与Python种子的映射方法？

可以在Python中完全复现VBA的随机数序列，因为VBA的Rnd函数基于公开的**线性同余生成器（LCG）**算法，只需匹配其核心参数和种子转换规则即可。

核心规则 #

VBA随机数生成的关键细节：

• LCG参数：乘数a = 1103515245，增量c = 12345，模数m = 2^31
• Randomize seed会将输入种子转换为seed * 2^16 + 32768，作为生成器的初始种子
• Rnd(-1)用于重置生成器到初始状态，可通过直接初始化种子模拟该操作

复现代码 #

以下Python代码可生成与VBA完全一致的随机数序列：

def vba_rnd(seed, count=10):
    # 模拟Randomize的种子转换逻辑
    initial_seed = (seed * 65536) + 32768
    # LCG核心参数
    a = 1103515245
    c = 12345
    m = 2**31
    current_seed = initial_seed
    result = []
    for _ in range(count):
        current_seed = (a * current_seed + c) % m
        # VBA Rnd返回值为种子除以模数，范围[0,1)
        result.append(current_seed / m)
    return result

# 测试种子456
seed = 456
random_numbers = vba_rnd(seed)
for num in random_numbers:
    print("{0:.9f}".format(num))

运行结果与VBA完全一致：

0.014666617
0.462389946
0.098651111
0.189074159
0.107685387
0.219710588
0.967558324
0.409745097
0.213494837
0.848815441

注意事项 #

• 如果需要持续生成后续随机数，需维护current_seed的状态，避免每次重新初始化种子
• 代码中已模拟Rnd(-1)的重置效果，无需额外操作

内容的提问来源于stack exchange，提问作者JN_2605