1 Static Function rand() 2 x = (x * 37 + 27) Mod 1000 3 rand = x 4 End Function VB代码 转载于:https://www.cnblogs.com/aoun/p/3813300.html