首页 > 代码库 > 伪随机数算法--线性同余法

伪随机数算法--线性同余法

1 Static Function rand()2     x = (x * 37 + 27) Mod 10003     rand = x4 End Function

VB代码