1 Static Function rand() 2 x = (x * 37 + 27) Mod 1000 3 rand = x 4 End Function
VB代码
伪随机数算法--线性同余法,布布扣,bubuko.com
伪随机数算法--线性同余法
原文：http://www.cnblogs.com/aoun/p/3813300.html
