VBA程式探究雙色球——2017113期綜合資料

極限殺藍的魅力大家都已經知道了，在此不再囉嗦。上圖

從上圖中可看出每113期的殺藍資料是：1 2 4 6 7 9 11 12 14 16

附紅球陣列：

［F1］

號碼= 25 2 9 1 27 18 8 30 11 4 15

個數= 1 2 3 4

［F2］

號碼= 2 7 21 9 28 25 27 31 6 4 20

個數= 1 2 3 4

［F3］

號碼= 24 11 26 12 9 28 33 18 20 30 27

個數= 1 2 3 4

［F4］

號碼= 12 4 27 18 20 8 26 1 13 30 25

個數= 1 2 3 4

［F5］

號碼= 6 1 2 8 11 18 30 4 12 15 31

個數= 1 2 3 4

［F6］

號碼= 33 26 9 13 12 2 8 18 30 7 24

個數= 1 2 3 4

［F7］

號碼= 2 18 1 25 33 27 26 7 30 12 21

個數= 1 2 3 4

［F8］

號碼= 11 20 25 33 31 30 2 1 8 28 26

個數= 1 2 3 4

［F9］

號碼= 25 27 21 20 9 13 24 8 11 33 18

個數= 1 2 3 4

上面的陣列是經過vba程式統計的較為精確的資料，一般不會錯的。

說明：原創資料，程式設計不易，喜歡則贊，也是一種精神支援。