<% 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,SumArr,FirstNumArr FirstNumArr = ListLast(MinQihao,MaxQihao,3) ListQihaoArr= ListLast(MinQihao,MaxQihao,1) SumArr = ReturnSum(FirstNumArr) For I = 0 To Ubound(ListQihaoArr) -1 Response.write "" Response.Write "" If Cint(SumArr(I)) <= 40 then Response.Write "" else Response.Write "" end if For H = 41 to 166 If Cint(SumArr(I)) >= H and Cint(SumArr(I)) <= H+4 then Response.Write "" else if Cint(SumArr(I)) >= 166 then Response.Write "" else Response.Write "" end if end if H = H + 4 Next Response.write "" next Erase ListQihaoArr Erase SumArr Erase FirstNumArr %>
期号 双色球走势图【和值走势图】和值分布连线图
40及以下 41-45 46-50 51-55 56-60 61-65 66-70 71-75 76-80 81-85 86-90 91-95 96-100 101-105 106-110 111-115 116-120 121-125 126-130 131-135 136-140 141-145 146-150 151-155 156-160 161-165 166及以上
" & ListQihaoArr(I) & "" & SumArr(I) & "" & SumArr(I) & "" & SumArr(I) & "
预选号→
预选号→
预选号→
期号 40及以下 41-45 46-50 51-55 56-60 61-65 66-70 71-75 76-80 81-85 86-90 91-95 96-100 101-105 106-110 111-115 116-120 121-125 126-130 131-135 136-140 141-145 146-150 151-155 156-160 161-165 166及以上
双色球走势图【和值走势图】和值分布图