会员
众包
新闻
博问
闪存
赞助商
HarmonyOS
Chat2DB
所有博客
当前博客
我的博客
我的园子
账号设置
会员中心
简洁模式
...
退出登录
注册
登录
aoun
博客园
首页
新随笔
联系
订阅
管理
伪随机数算法--线性同余法
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
)
收藏
举报
刷新页面
返回顶部