[VB6 ] 骰子問題
各位好我是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
推
06/05 23:41, , 1F
06/05 23:41, 1F
→
06/05 23:55, , 2F
06/05 23:55, 2F
順便請問一下
我加了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)
推
06/06 00:44, , 3F
06/06 00:44, 3F
→
06/06 00:45, , 4F
06/06 00:45, 4F
推
06/06 07:10, , 5F
06/06 07:10, 5F
→
06/06 07:10, , 6F
06/06 07:10, 6F
→
06/06 07:10, , 7F
06/06 07:10, 7F
我試著加入一個timer讓他自動骰
和一個次數統計表 結果如圖: http://ppt.cc/dIC;
應該是OK了 謝謝大家的幫忙~
※ 編輯: KCVO 來自: 219.70.159.245 (06/06 10:35)