时时彩胜率模拟器

本脚本使用按键精灵编写，模拟重庆时时彩开奖。设每次购买5球，即胜率为50%，56种出号可能性（抽取文本中的随机行），每次出1球（0~9随机数），测试各种期数下的中奖率。

设计本软件的初衷，是将结论输出到Excel中，行程中挂走势图，以此发掘旺打一口的契机。后延伸成了直接数据报表的方式，直接看失败的最大可能性。主要看连挂的峰值在哪里。

1.先看一下模拟器运行的界面

2.看一下得出结论的报表

奉上源码。需结合重庆时时彩10选5的排列计划表，链接如下:

当前连中次数 = 0
当前连挂次数 = 0
最大连中次数 = 0
最大连挂次数 = 0
TXT路径 = "C:\SSC.txt"
本金 = 10000
期数 = 1
模拟天数 = 30
Randomize
初始本金 = 本金
Function 随机计划
Text = Plugin.File.ReadFileEx(TXT路径)
随机行 = Split(Text, "|")
随机计划号 = 随机行(Int((UBound(随机行) * Rnd) + 0))
End Function
Function 分割数组
Dim 计划数组
TracePrint 随机计划号
计划数组 = Split(随机计划号, ",")
第一号 = Clng(计划数组(0))
第二号 = Clng(计划数组(1))
第三号 = Clng(计划数组(2))
第四号 = Clng(计划数组(3))
第五号 = Clng(计划数组(4))
End Function
Function 产生随机数
A = int(rnd() * 10)
TracePrint A
End Function
Function 判断中挂
If 第一号 = A Then 
结果 = "中"
ElseIf 第二号 = A Then 
结果 = "中"
ElseIf 第三号 = A Then 
结果 = "中"
ElseIf 第四号 = A Then 
结果 = "中"
ElseIf 第五号 = A Then 
结果 = "中"
ElseIf 次数 = 期数 Then
结果 = "挂"
Else 
结果 = "等待"
End If
TracePrint 结果	
End Function
Function 判断投资
If 次数 = 1 Then 
投资 = 1
Elseif 次数 = 2 Then
投资 = 3
ElseIf 次数 = 3 Then
投资 = 7
ElseIf 次数 = 4 Then
投资 = 15
ElseIf 次数 = 5 Then
投资 = 31
ElseIf 次数 = 6 Then
投资 = 63
ElseIf 次数 = 7 Then
投资 = 126
ElseIf 次数 = 8 Then
投资 = 255
End If
End Function
Function 输出结果
If 结果 <> "等待" Then 
If 结果 <> 上局结果 Then 
当前连中次数 = 0
当前连挂次数 = 0
End If
If 结果 = "中" Then 
当前连中次数 = 当前连中次数 + 1
ElseIf 结果 = "挂" Then
当前连挂次数 = 当前连挂次数 + 1
End If
End If
End Function
Function 资金验算
//如果结果不为等待，那么本局结果成立
If 结果 <> "等待" Then 
上局结果 = 结果
判断投资
If 结果 = "中" Then 
本金 = 本金 + 1
ElseIf 结果 = "挂" Then
本金 = 本金 - 投资
End If	
End If 
End Function
Function 峰值验算
If 当前连中次数 > 最大连中次数 Then 
最大连中次数 = 当前连中次数
End If
If 当前连挂次数 > 最大连挂次数 Then 
最大连挂次数 = 当前连挂次数
End If
End Function
//核心循环
随机计划 
For 120 * 模拟天数
If 结果 = "中" Then 
随机计划 
Delay 20
次数 = 1
ElseIf 次数 > 期数 Then
随机计划 
Delay 20
次数 = 1
End If
分割数组 
Delay 20
产生随机数 
Delay 20
判断中挂 
Delay 20
//--------
输出结果 
Delay 20
资金验算 
Delay 20
峰值验算 
Delay 20
//执行完毕之后次数+1
次数 = 次数 + 1
Next
TracePrint "当前连中次数：" & 当前连中次数
TracePrint "当前连挂次数：" & 当前连挂次数
TracePrint "卍卍卍卍卍卍卍卍卍卍卍卍卍卍卍卍卍卍卍 万 法 归 宗 卍卍卍卍卍卍卍卍卍卍卍卍卍卍卍卍卍卍卍"
TracePrint "-----------------------------------------------------------------------------------" 
TracePrint "本轮预设本金：" & 初始本金 & " 元"
TracePrint "本轮模拟天数：" & 模拟天数 & " 天"
TracePrint "本轮模拟期数：" & 期数 & " 期"
TracePrint "最大连中次数：" & 最大连中次数
TracePrint "最大连挂次数：" & 最大连挂次数
TracePrint "结余：" & 本金
TracePrint "盈利：" & 本金 - 初始本金
TracePrint "-----------------------------------------------------------------------------------"

文末另附一张昨天晚上通过验算出的结果进行模拟投注，得出的模拟投注报表。