作者KCVO (KCVO)
看板Visual_Basic
標題[VB6 ] 骰子問題
時間Sun Jun 5 23:25:14 2011
各位好我是VB新手(也是第一次在PTT發文
因為看到了上一篇關於骰子的文章 想試著寫寫看
但是遇到了一些問題 請教大家一下
下面是大概內容:
dim m as integer
m = int(6 * Rnd)
image2.picture = image1(m).picture
(image1分別是1到6的骰子圖片)
一開始以為成功了
結果每次骰出來 都是固定:5 4 4 2 2 5 1 5 5 5 1 3 6 5 3...
因為自己對RND不太熟悉
請問是哪邊出錯了嗎?
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 219.70.159.245
1F：推 sueadolph:rnd之前，加一段 randomize 06/05 23:41
2F：→ KCVO:成功了耶!! 謝謝樓上~ 06/05 23:55
順便請問一下
我加了randomize之後 試擲了5次:
1 1 2 5 5 5
2 4 5 5 3 1
6 3 5 4 4 1
5 5 4 2 1 5
1 5 4 5 1 1
雖然成功地不一樣了
但是為什麼5很多而6很少
還是純粹只是我樣本數太少的關係= =?
※ 編輯: KCVO 來自: 219.70.159.245 (06/06 00:00)
3F：推 lzu0125:沒試過VB不清楚，但如果是VBA的話，取Int是無條件捨去 06/06 00:44
4F：→ lzu0125:所以 m = int(6 * Rnd) 要多加 1 06/06 00:45
5F：推 LPH66:可是如果是上面的問題的話應該也會有一定量的 0 才對 06/06 07:10
6F：→ LPH66:原 PO 要不要多骰個幾百次之類的確定一下? 06/06 07:10
7F：→ LPH66:(話說如果不是沒有 0 的話我也會猜是這個問題) 06/06 07:10
我試著加入一個timer讓他自動骰
和一個次數統計表 結果如圖:
http://ppt.cc/dIC;
應該是OK了 謝謝大家的幫忙~
※ 編輯: KCVO 來自: 219.70.159.245 (06/06 10:35)