作者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)