VBA统计多次随机事件怎么写啊

banana233

有4个关卡，前3关都是二选一（宝石和箭头），选中箭头则进入下一关，选中宝石则给相应宝石（第一关-蓝宝石，第二关-绿宝石，第三关-红宝石），游戏结束。
第四关为奖励关，奖励关内有9个箱子，箱子内为3种宝石，每种都是3个，翻出某种宝石后，该类宝石进度加1，直到玩家集齐某种宝石（蓝绿红都是3个集齐），则游戏结束。奖励关获得的金币奖励翻倍。收集的其他宝石进度不变，延续到下一局。
集齐3个蓝宝石奖励为1，集齐3个绿宝石奖励为2,，集齐3个红宝石奖励为3。统计1万次后奖励为多少。

banana233

这里还有人么？。。。。。

bet007

上传附件吧！

zopey

游戏结束 ，然后又回到第1关 开始？直到 10000局游戏结束。

流程是这样子？

zopey

game2.rar (139.38 KB, 下载次数: 6)

2018-5-25 17:03 上传

点击文件名下载附件

banana233

zopey 发表于 2018-5-25 15:52
游戏结束 ，然后又回到第1关 开始？直到 10000局游戏结束。

流程是这样子？

嗯，前三关没选到箭头就结束了，下一次触发就从第一关开始。

banana233

zopey 发表于 2018-5-25 17:03

请问一下，最后一关不重复抽取怎么写，比如第一次抽了一个蓝色的，第二次就在两个蓝色，三个绿色和三个红色中选。