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

1 Static Function rand()
2     x = (x * 37 + 27) Mod 1000
3     rand = x
4 End Function

VB代码

posted on 2014-06-28 14:03  aoun  阅读(817)  评论(0)    收藏  举报