标题:Rndmize()
只看楼主
aliceabcd
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2017-6-16
 问题点数:0 回复次数:2 
Rndmize()
为什么加了Rndmize()函数,产生的随机数还是不变化?
还是加的方法不对?
 Dim d As Integer, i As Short
        For i = 1 To 50
            Randomize()
            d = Int(Rnd() * 100)
            b_write.Write(d)
        Next
搜索更多相关主题的帖子: Integer Short For Write Next 
2017-06-17 08:37
aliceabcd
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2017-6-16
得分:0 
2017-06-17 08:37
zhangcanwei
Rank: 3Rank: 3
等 级:论坛游侠
威 望:5
帖 子:63
专家分:135
注 册:2010-7-4
得分:0 
把Randomize()移到循环体外面
2017-07-06 07:54



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-478672-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.628619 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved