code:Function get红球万能24码(kg)
Dim wN24M(29)
wN24M(1) = "01 02 03 05 07 09 10 11 12 14 15 16 17 20 21 22 23 24 25 26 28 30 32 33"
wN24M(2) = "01 02 04 05 07 08 09 10 12 13 14 15 16 17 18 22 23 25 26 27 28 29 30 32"
wN24M(3) = "01 02 04 05 08 09 10 11 12 13 14 15 16 18 21 22 23 24 25 26 27 28 29 30"
wN24M(4) = "03 04 05 07 08 09 10 11 12 13 15 17 18 20 21 22 23 24 26 27 29 30 32 33"
wN24M(5) = "01 03 04 06 07 08 09 11 13 14 17 18 19 20 21 22 23 24 27 28 29 31 32 33"
wN24M(6) = "01 02 03 04 05 08 09 10 12 13 14 15 16 18 20 22 23 25 26 27 28 29 30 33"
wN24M(7) = "01 02 03 04 07 09 10 11 12 13 14 16 17 20 21 22 23 24 25 26 27 28 32 33"
wN24M(8) = "01 02 03 04 05 07 08 11 13 14 15 16 17 18 20 21 24 25 27 28 29 30 32 33"
wN24M(9) = "01 02 03 04 06 08 10 11 12 13 14 16 18 19 20 21 24 25 26 27 28 29 31 33"
wN24M(10) = "02 05 06 07 08 09 10 11 12 15 16 17 18 19 21 22 23 24 25 26 29 30 31 32"
wN24M(11) = "01 03 04 05 06 09 10 11 12 13 14 15 19 20 21 22 23 24 26 27 28 30 31 33"
wN24M(12) = "02 03 05 06 07 08 09 10 12 15 16 17 18 19 20 22 23 25 26 29 30 31 32 33"
wN24M(13) = "01 03 04 05 06 07 08 10 12 13 14 15 17 18 19 20 26 27 28 29 30 31 32 33"
wN24M(14) = "01 02 03 06 07 08 10 11 12 14 16 17 18 19 20 21 24 25 26 28 29 31 32 33"
wN24M(15) = "01 02 03 05 06 08 10 11 12 14 15 16 18 19 20 21 24 25 26 28 29 30 31 33"
wN24M(16) = "01 02 03 06 07 08 09 11 14 16 17 18 19 20 21 22 23 24 25 28 29 31 32 33"
wN24M(17) = "01 03 05 06 07 08 09 11 14 15 17 18 19 20 21 22 23 24 28 29 30 31 32 33"
wN24M(18) = "01 03 06 07 08 09 10 11 12 14 17 18 19 20 21 22 23 24 26 28 29 31 32 33"
wN24M(19) = "01 02 03 06 08 09 10 11 12 14 16 18 19 20 21 22 23 24 25 26 28 29 31 33"
wN24M(20) = "02 04 06 07 08 09 10 11 12 13 16 17 18 19 21 22 23 24 25 26 27 29 31 32"
wN24M(21) = "01 02 04 05 06 07 09 10 12 13 14 15 16 17 19 22 23 25 26 27 28 30 31 32"
wN24M(22) = "01 02 04 05 06 07 08 09 13 14 15 16 17 18 19 22 23 25 27 28 29 30 31 32"
wN24M(23) = "01 02 04 05 06 08 09 10 12 13 14 15 16 18 19 22 23 25 26 27 28 29 30 31"
wN24M(24) = "01 02 04 05 06 07 09 11 13 14 15 16 17 19 21 22 23 24 25 27 28 30 31 32"
wN24M(25) = "01 04 05 06 07 08 10 11 12 13 14 15 17 18 19 21 24 26 27 28 29 30 31 32"
wN24M(26) = "01 02 03 04 05 06 07 09 13 14 15 16 17 19 20 22 23 25 27 28 30 31 32 33"
wN24M(27) = "02 03 04 06 07 08 09 10 12 13 16 17 18 19 20 22 23 25 26 27 29 31 32 33"
wN24M(28) = "02 03 04 05 06 07 10 11 12 13 15 16 17 19 20 21 24 25 26 27 30 31 32 33"
wN24M(29) = "02 03 04 05 06 08 09 11 13 15 16 18 19 20 21 22 23 24 25 27 29 30 31 33"
' 上面的29组万能码可以说是能够涵盖双色球每期开奖号码6红,特别具有实用价值。
' 运用心得
' 第一:每期只能选择一组来进行运用,毕竟29组同时运用不科学也不切实际。
' 第二:某一阶段内守住一组就好,等到中了6红后再换组继续守。按照概率来讲,基本上8期就会出现一次。
' 第三:在运用中我们也可以几组一起用,若同时3组一起用,我们就可以将三组号码进行对比,去掉三组当中不同的号码,留下重复号进行投注,这样就能大大精简号码。
' 当然万能码在实际的运用中还需要一些条件,比如当期双色球确定胆码后就能运用万能码进行查看奖号,选择胆拖的方式进行投注;又如当期双色球能够稳杀的号码,我们也能运用万能码进行查看奖号。这都是运用万能码的方法,大家可以去尝试。
If kg < 1 Or kg > 29 Then MsgBox "参数必须是 1...29 ": Exit Function
get红球万能24码 = wN24M(kg)
End Function