vb6.0 生成不重复的随机数

[复制链接]
查看11 | 回复2 | 2012-8-18 10:42:12 | 显示全部楼层 |阅读模式
dim a%,b%,c%,d%sub asdfrandomizea = Int(10 * Rnd) Do b = Int(10 * Rnd) Loop Until ba Do c = Int(10 * Rnd) Loop Until cb And ca Do d = Int(10 * Rnd) Loop Until db And da And dc End sub...
回复

使用道具 举报

千问 | 2012-8-18 10:42:12 | 显示全部楼层
不建议单纯的用RANDOMIZE...对于VB来说,伪随机还是有规律的.....可以考虑用时间的秒数做为随机因子.....
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行