UC知道vb实现 几率百分
来源：百度知道 编辑：UC知道 时间：2024/09/22 11:24:32
例如 20%的几率 显示“你获得了幸运大奖”
50%几率显示“对不起！下次继续”
30%几率显示“奖励XX”
用VB怎么实现几率问题？请给出具体 的代码
RND 我记着好象有重复值啊 老是有规律的出现，我想的是实现 随即，不是单纯的控制1-10
请高手说下 谢谢
50%几率显示“对不起！下次继续”
30%几率显示“奖励XX”
用VB怎么实现几率问题？请给出具体 的代码
RND 我记着好象有重复值啊 老是有规律的出现，我想的是实现 随即，不是单纯的控制1-10
请高手说下 谢谢
randomize '初始化种子 这样就不会重复上一次运行结果了
Dim i as integer
i = int(rnd*9)+1 '1~10
select case i
case 1 to 2
msgbox "你获得了幸运大奖"
case 3 to 7
msgbox "对不起！下次继续"
case 8 to 10
msgbox "奖励XX"
end select
教你一个易理解的：
例：
把随机数设为1-10
抽中1、2设为：20%的几率 显示“你获得了幸运大奖”
抽中3.4.5.6.7设为：50%几率显示“对不起！下次继续”
抽中8、9、10设为：30%几率显示“奖励XX”