各位高手请问一下怎么做一个双色球分析表,可以通过输入一期到另一期来确认某一号出现的次数。
我是刚刚学的不知道怎么做希望高手帮个忙啊,谢谢了
怎么没人帮我啊 ???????????????
哈哈,本人刚好做了一个,不过是比较原始的,但也能统计出来。
大体如下:
Set talk off
clear
Sele ball
*****统计红球
Count for r1=1 or r2=1 or r3=1 or r4=1 or r5=1 or r6=1 to red1
Count for r1=2 or r2=2 or r3=2 or r4=2 or r5=2 or r6=2 to red2
Count for r1=3 or r2=3 or r3=3 or r4=3 or r5=3 or r6=3 to red3
Count for r1=4 or r2=4 or r3=4 or r4=4 or r5=4 or r6=4 to red4
Count for r1=5 or r2=5 or r3=5 or r4=5 or r5=5 or r6=5 to red5
Count for r1=6 or r2=6 or r3=6 or r4=6 or r5=6 or r6=6 to red6
Count for r1=7 or r2=7 or r3=7 or r4=7 or r5=7 or r6=7 to red7
Count for r1=8 or r2=8 or r3=8 or r4=8 or r5=8 or r6=8 to red8
Count for r1=9 or r2=9 or r3=9 or r4=9 or r5=9 or r6=9 to red9
Count for r1=10 or r2=10 or r3=10 or r4=10 or r5=10 or r6=10 to red10
Count for r1=11 or r2=11 or r3=11 or r4=11 or r5=11 or r6=11 to red11
Count for r1=12 or r2=12 or r3=12 or r4=12 or r5=12 or r6=12 to red12
Count for r1=13 or r2=13 or r3=13 or r4=13 or r5=13 or r6=13 to red13
Count for r1=14 or r2=14 or r3=14 or r4=14 or r5=14 or r6=14 to red14
Count for r1=15 or r2=15 or r3=15 or r4=15 or r5=15 or r6=15 to red15
Count for r1=16 or r2=16 or r3=16 or r4=16 or r5=16 or r6=16 to red16
Count for r1=17 or r2=17 or r3=17 or r4=17 or r5=17 or r6=17 to red17
Count for r1=18 or r2=18 or r3=18 or r4=18 or r5=18 or r6=18 to red18
Count for r1=19 or r2=19 or r3=19 or r4=19 or r5=19 or r6=19 to red19
Count for r1=20 or r2=20 or r3=20 or r4=20 or r5=20 or r6=20 to red20
Count for r1=21 or r2=21 or r3=21 or r4=21 or r5=21 or r6=21 to red21
Count for r1=22 or r2=22 or r3=22 or r4=22 or r5=22 or r6=22 to red22
Count for r1=23 or r2=23 or r3=23 or r4=23 or r5=23 or r6=23 to red23
Count for r1=24 or r2=24 or r3=24 or r4=24 or r5=24 or r6=24 to red24
Count for r1=25 or r2=25 or r3=25 or r4=25 or r5=25 or r6=25 to red25
Count for r1=26 or r2=26 or r3=26 or r4=26 or r5=26 or r6=26 to red26
Count for r1=27 or r2=27 or r3=27 or r4=27 or r5=27 or r6=27 to red27
Count for r1=28 or r2=28 or r3=28 or r4=28 or r5=28 or r6=28 to red28
Count for r1=29 or r2=29 or r3=29 or r4=29 or r5=29 or r6=29 to red29
Count for r1=30 or r2=30 or r3=30 or r4=30 or r5=30 or r6=30 to red30
Count for r1=31 or r2=31 or r3=31 or r4=31 or r5=31 or r6=31 to red31
Count for r1=32 or r2=32 or r3=32 or r4=32 or r5=32 or r6=32 to red32
Count for r1=33 or r2=33 or r3=33 or r4=33 or r5=33 or r6=33 to red33
****统计蓝球
Count for r7=1 to blue1
Count for r7=2 to blue2
Count for r7=3 to blue3
Count for r7=4 to blue4
Count for r7=5 to blue5
Count for r7=6 to blue6
Count for r7=7 to blue7
Count for r7=8 to blue8
Count for r7=9 to blue9
Count for r7=10 to blue10
Count for r7=11 to blue11
Count for r7=12 to blue12
Count for r7=13 to blue13
Count for r7=14 to blue14
Count for r7=15 to blue15
Count for r7=16 to blue16
T=Reccount()
For I=1 to 16
A=alltrim(str(66+I,2,0))
C=alltrim(str(I,2,0))
D=alltrim(str(82+I,2,0))
ThisForm.Text&A..value=str(blue&C,3,0)
ThisForm.Text&D..value=str((blue&C/T)*100,6,3)-'%'
Endfor
For I=1 to 33
B=alltrim(str(I,2,0))
C=alltrim(str(33+I,2,0))
ThisForm.Text&B..value=str(red&B,3,0)
ThisForm.Text&C..value=str((red&B/(T*6))*100,6,3)-'%'
Endfor
ThisForm.Refresh