<% SetCounter("ssqzst") %> <% Dim I,J,MaxQihao,MinQihao MinQihao = Request.Form("select") MaxQihao = Request.Form("select2") If MinQihao = "" Then MinQihao = CLng(ReturnMaxQi()) - 30 End If If MaxQihao = "" Then MaxQihao = CLng(ReturnMaxQi()) End If %>

【双色球奇偶分布图】双色球走势图

期到 期 
<% Dim ListQihaoArr,FirstNumArr ListQihaoArr= ListLast(MinQihao,MaxQihao,1) FirstNumArr = ListLast(MinQihao,MaxQihao,3) For I = 0 To Ubound(ListQihaoArr) -1 Response.Write "" Response.Write "" For J = 1 To 33 If InStr(FirstNumArr(I),FormatNum(J)) > 0 Then if J mod 2 <> 0 then Response.Write "" else Response.Write "" end if Else if J mod 2 <> 0 then Response.Write "" else Response.Write "" end if End If Next Response.Write "" Next Erase ListQihaoArr Erase FirstNumArr %>
期号 双色球走势图【奇偶分布图】奇偶分布走势图
01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 10 21 22 23 24 25 26 27 28 29 30 31 32 33
" & ListQihaoArr(I) & "" & FormatNum(J) & "" & FormatNum(J) & "
预选号→ 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
预选号→ 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
预选号→ 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
期号 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 10 21 22 23 24 25 26 27 28 29 30 31 32 33
双色球走势图【奇偶分布图】奇偶分布走势图