随机数不随机，如何产生真正的随机数

sunsoncheng

看看这个图片,

就是立即窗口中写入  ？int(rnd*108+1)  之后就是几个确认就会如图出现的如图的数字

之后关闭所有的EXCEL再重复上面的动作，发现得到的数字，顺序是一样的！！！！！

这样算是随机数吗？

请各位讨论下，

如果要一个程序，定期打开，想要一个随机的数字来找一个文件或什么的吧，
则完全不能达到这个效果的了！
它会按原的顺序来处理！

有没有更易的产生每次不同的随机数！每次打开程序，第一个产生的随机数，也不同的随机数！

谢谢参与

zhaozyuan

这种几率很小吧

Flush

下不同的种子就行了。

zhaozyuan

Sub test()
Randomize
Columns(1).Select
Selection.Insert
For i = 1 To 10
    Cells(i, 1) = Int(Rnd * 108 + 2)
Next
End Sub

Private Sub Workbook_Open()
test
ThisWorkbook.Save
End Sub

zhaozyuan

17        20        51        36        17
103        12        77        35        74
17        107        90        47        88
23        88        40        27        78
82        67        77        109        90
103        38        83        7        102
9        101        63        13        49
105        31        70        80        89
18        69        62        24        75
101        27        44        69        9

ccwan

重要在这句
Randomize

sunsoncheng

我本来是在VB 中做了，试了几次一样，再到VBA中测试还是一样才发的贴

Randomize
倒是没用过，明天再试试看吧

谢谢各位

赵国辉

http://club.excelhome.net/viewth ... 5406&highlight=
刚好我也小小学习过

sunsoncheng

赵先生的贴子讲了更我的所以然
虽然还不完全明白，
但总算有个概念及知道如何改变了
再谢各位了

gjj136138139

原来只知道要加这个randomize,还真不知道其所以然， ，学习了。