胜率

程序说明 作为一个扫雷爱好者，今天突然想做一个脚本，看看自己还剩下多少局才能让胜率增长1个百分点 脚本通过已玩游戏数和已胜游戏数，推算还需要连胜多少局游戏才能让自己的获胜率增长一个百分点 获胜率是已胜游戏除以已玩游戏的商精确到小数点后两位后乘以百分之百，小数点后两位以后的数字全部舍去 比如72/359=0.20055710306407，因此当前的获胜率是20% 赢一局，胜率为73/360 = 0.20277777777778→胜率20% 赢两局，胜率为74/361 = 0.20498614958449→胜率20% 赢三局，胜率为75/362 = 0.20718232044199→胜率20% 赢四局，胜率为76/363 = 0.20936639118457→胜率20% 赢五局，胜率为77/364 = 0.21153846153846→胜率21% 因此，以当前状态再连胜5局，就可以让胜率增长到21% 在两个InputBox中输入359和72后，脚本会提示这样一个MsgBox 需要注意的是 1）如果不是全胜，那么胜率是无法达到100%的，也就是如果有失败场次，99%就是最高胜率了 2）VBS脚本通过InputBox输入的数字，要先经过IsNumeric判断，再经过CInt转换为数字，才能放心使用 脚本代码 Option Explicit 'On Error Resume Next Dim

2014年的12月29日，写了个VBS脚本，计算还需要连胜多少把才能让自己的胜率提升1%： 这个脚本的地址在： http://my.oschina.net/Tsybius2014/blog/362078 结果后来连着输了几把，胜率掉了1%（汗）。正好昨天看了下QBasic，就用QBasic写段代码计算一下吧 我的编码环境为：编译器为Win32下的FreeBasic（版本1.00.0），IDE为FBIde（版本0.4.6r4） 这段代码计算了还需要连胜多少把才能把自己的胜率提升1%，也计算了还需要连败多少把就会让胜率降低1% 计算规则： 1）以当前玩了426局，获胜86局为例，当前的胜率是0.201878，截去小数后是20%。 2）在这个基础上，连胜4局后，玩了430局，获胜90局，胜率为0.209302，截去小数后还是20%；但在连胜5局后，玩了431局，获胜91局，胜率到达0.211137，截去小数后胜率到达21%！这个时候，就认为是连胜5局后，就可以让胜率增加1个百分点。 3）同理，计算负场时，连负4局后，玩了430局，获胜86局，胜率为0.2，即20%；连负5局后，玩了431局，获胜86局，胜率为0.199536，截去小数后，是19%，视为胜率下降一个百分点。 需要注意的几点是： 1）胜率100%的时候，再连胜多少局胜率都是100% 2）胜率99%的时候