PCDVD數位科技討論區 - 瀏覽單個文章 - 能看出這個簡單程式有什麼問題的人絕對是個高手

引用:

作者山賊

整個運作邏輯乍看之下大致似乎沒問題, 但是 Rnd() 所得到的數必須小於 (38.5/39), 否則乘上 num 再加 1, 會超過數列末尾, 譬如:

1. 若第一次 rnd() 即得 0.9872 以上的數, 則 b1 = 0.9872*39 + 1=40

VB 裡的 Int() 指的是取整數部份。對大於零的數字來說，
Int() 的效果應該是捨去小數部份，而不是四捨五入。可能
不會有大哥您所說的疑慮。

參考
http://msdn.microsoft.com/en-us/library/xh29swte.aspx