红兰球的序号还原红兰球组合计算_方法技巧|乐彩网

◆ 微信扫描二维码分享
◆ 手机QQ扫描二维码，点击右上角···分享到QQ好友或QQ空间

请拨打电话：4008017500

返回

方法技巧

记事本

联系我们(8:30-22:00)

在线客服 4008017500 4008017500

红兰球的序号还原红兰球组合计算: duy3 4466 2016-04-25 13:52

红兰球组合共计17721088注

Private Sub CommandButton1_Click() '红兰球的序号转红兰球组合

For i = 2 To Range("A1") '统计需要计算红兰球的序的数量

C1 = Cells(i, 2) '填写红兰球的序号

Dim J1 As Integer, J2 As Integer, J3 As Integer, J4 As Integer, J5 As Integer, J6 As Integer, L7 As Integer

Dim count As Long

count = 0

For J1 = 1 To 28

For J2 = J1 + 1 To 29

For J3 = J2 + 1 To 30

For J4 = J3 + 1 To 31

For J5 = J4 + 1 To 32

For J6 = J5 + 1 To 33

For L7 = 1 To 16

count = count + 1

If (count = C1) Then

GoTo jmp

End If

Next: Next: Next: Next: Next: Next

jmp:

Cells(i, 3) = J1 '这个就是当前序号的第一个红球

Cells(i, 4) = J2

Cells(i, 5) = J3

Cells(i, 6) = J4

Cells(i, 7) = J5

Cells(i, 8) = J6

Cells(i, 9) = L7 '这个就是当前序号的兰球

Next

End Sub

【许启】用javascript随机数原理实现的一个彩票预测程序 【pl2014】无规矩不成方圆：重申很有必要

方法技巧推荐 更多

福彩3D实战技巧:重叠码与边码的判断: 又见嫦娥
382025-07-02 11:44

福彩3D实战技巧：举“纲”张“目” 弃热逐冷: 又见嫦娥
422025-07-02 11:26

福彩3D技巧：巧用“回马枪”操作的基本要诀: 又见嫦娥
522025-07-02 11:17

福彩3D定胆技巧之：跨度分析定胆法: 3d最准一注
3982025-07-01 23:22

福彩3D定胆技巧之：号码冷热分析定胆法: 3d最准一注
1822025-07-01 22:58

福彩3D定胆技巧之：和值分析定胆法: 3d最准一注
2562025-07-01 22:27

征文：我买彩的3个实操心得: 三界之主
5552025-07-01 20:36

3D选号秘笈——二连定胆实用方法: 乐彩牛百岁
5792025-07-01 15:25

福彩 3D 实战技巧——四种实用的选号方法: 乐彩牛百岁
4752025-07-01 15:17

福彩3D直选定位术语解释以及运用定位图表: 陈贝贝
2882025-07-01 13:47

福彩3d选号方法之和数值的选择技巧: 蓝瘦香菇
3022025-07-01 09:02

谈谈大底攻略任务600到700注大底方法交流: 小王弟
5182025-07-01 06:58

福彩3D直选定位术语解释及定位图选号表（一）: 陈贝贝
8632025-06-30 12:56

福彩3D和值计算方法: 陈贝贝
21692025-06-29 18:34

福彩3D各种断组方法大集合: 陈贝贝
16192025-06-29 16:03

福彩3D选号技巧之“号码冷热与复式”结合法: 3d最准一注
4802025-06-29 13:26

福彩3D选号技巧之“号码和值尾数”分析法: 3d最准一注
5092025-06-29 13:24

福彩3D选号技巧之“同号”分析法: 3d最准一注
3382025-06-29 11:22

昨天看到一个贴子 5组四码 =23 奖号都包含在里面了: 小玉婷
11092025-06-29 10:30

偶合=1得两组对码万四必出其一: xin-ru
11082025-06-29 08:12