[VB6 ] 骰子問題

[KCVO (KCVO)]

各位好我是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
推 sueadolph:rnd之前，加一段 randomize
→ KCVO:成功了耶!!   謝謝樓上~
順便請問一下

我加了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)
推 lzu0125:沒試過VB不清楚，但如果是VBA的話，取Int是無條件捨去
→ lzu0125:所以 m = int(6 * Rnd) 要多加 1
推 LPH66:可是如果是上面的問題的話應該也會有一定量的 0 才對
→ LPH66:原 PO 要不要多骰個幾百次之類的確定一下?
→ LPH66:(話說如果不是沒有 0 的話我也會猜是這個問題)
我試著加入一個timer讓他自動骰

和一個次數統計表  結果如圖: http://ppt.cc/dIC;

應該是OK了  謝謝大家的幫忙~
※ 編輯: KCVO            來自: 219.70.159.245       (06/06 10:35)