📄 zztong.prg
字号:
*******************************************
****MAIN PROGRAM
****功能：完成开奖数据的数据分析统计
******************************************
DO ZH_1
DO ZH_2
DO ZH_3
DO ZH_4
DO ZH_5
DO ZH_6
DO ZH_7
DO ZH_8
DO ZH_9
DO ZH_10
DO ZH_11
DO ZH_12
DO ZH_13
DO ZH_14
DO ZH_15
DO ZH_16
*****************************************
*****
*****过程共16个
****************************************
PROC ZH_1
SET TALK OFF
DIME B(21)
b(1)=0
b(2)=0
b(3)=0
b(4)=0
b(5)=0
b(6)=0
b(7)=0
b(8)=0
b(9)=0
b(10)=0
b(11)=0
b(12)=0
b(13)=0
b(14)=0
b(15)=0
b(16)=0
b(17)=0
b(18)=0
b(19)=0
b(20)=0
b(21)=0
N=0
SELECT 1
USE 3DS2007.DBF
SELECT 10
USE SUMTONG
DELE ALL
PACK
*************************************************
*******************************************************
SELECT A
DO WHILE .NOT.EOF()
IF 跨度=0
b(1)=b(1)+1
ENDIF
IF 跨度=1
b(2)=b(2)+1
ENDIF
IF 跨度=2
b(3)=b(3)+1
ENDIF
IF 跨度=3
b(4)=b(4)+1
ENDIF
IF 跨度=4
b(5)=b(5)+1
ENDIF
IF 跨度=5
b(6)=b(6)+1
ENDIF
IF 跨度=6
b(7)=b(7)+1
ENDIF
IF 跨度=7
b(8)=b(8)+1
ENDIF
IF 跨度=8
b(9)=b(9)+1
ENDIF
IF 跨度=9
b(10)=b(10)+1
ENDIF
IF 和值>=4.AND.和值<=8
b(11)=b(11)+1
ENDIF
IF 和值>=9.AND.和值<=11
b(12)=b(12)+1
ENDIF
IF 和值>=12.AND.和值<=13
b(13)=b(13)+1
ENDIF
IF 和值>=14.AND.和值<=15
b(14)=b(14)+1
ENDIF
IF 和值>=16.AND.和值<=18
b(15)=b(15)+1
ENDIF
IF 和值>=19.AND.和值<=23
b(16)=b(16)+1
ENDIF
IF 和值>=0.AND.和值<=3
b(17)=b(17)+1
ENDIF
IF 和值>=24.AND.和值<=27
b(18)=b(18)+1
ENDIF
IF 和除3余0="0"
b(19)=b(19)+1
ENDIF
IF 和除3余1="1"
b(20)=b(20)+1
ENDIF
IF 和除3余2="2"
b(21)=b(21)+1
ENDIF
N=N+1
SKIP
IF N=10
K=1
DO WHILE K<22
IF B(K)=0
b(k)=" "
ENDIF
K=K+1
ENDDO
SELECT J
APPEND BLANK
GATHER FROM B
SELECT A
N=0
b(1)=0
b(2)=0
b(3)=0
b(4)=0
b(5)=0
b(6)=0
b(7)=0
b(8)=0
b(9)=0
b(10)=0
b(11)=0
b(12)=0
b(13)=0
b(14)=0
b(15)=0
b(16)=0
b(17)=0
b(18)=0
b(19)=0
b(20)=0
b(21)=0
ENDIF
ENDDO
**********************************************************
******************************************************************
SELE A
GO BOTTOM
TM=RECNO()
PM=RIGHT(STR(TM),1)
PM2=VAL(PM)
IF PM2<>0
DO WHILE PM2<>0
GO TM
TM=TM-1
PM2=PM2-1
IF 跨度=0
b(1)=b(1)+1
ENDIF
IF 跨度=1
b(2)=b(2)+1
ENDIF
IF 跨度=2
b(3)=b(3)+1
ENDIF
IF 跨度=3
b(4)=b(4)+1
ENDIF
IF 跨度=4
b(5)=b(5)+1
ENDIF
IF 跨度=5
b(6)=b(6)+1
ENDIF
IF 跨度=6
b(7)=b(7)+1
ENDIF
IF 跨度=7
b(8)=b(8)+1
ENDIF
IF 跨度=8
b(9)=b(9)+1
ENDIF
IF 跨度=9
b(10)=b(10)+1
ENDIF
IF 和值>=4.AND.和值<=8
b(11)=b(11)+1
ENDIF
IF 和值>=9.AND.和值<=11
b(12)=b(12)+1
ENDIF
IF 和值>=12.AND.和值<=13
b(13)=b(13)+1
ENDIF
IF 和值>=14.AND.和值<=15
b(14)=b(14)+1
ENDIF
IF 和值>=16.AND.和值<=18
b(15)=b(15)+1
ENDIF
IF 和值>=19.AND.和值<=23
b(16)=b(16)+1
ENDIF
IF 和值>=0.AND.和值<=3
b(17)=b(17)+1
ENDIF
IF 和值>=24.AND.和值<=27
b(18)=b(18)+1
ENDIF
IF 和除3余0="0"
b(19)=b(19)+1
ENDIF
IF 和除3余1="1"
b(20)=b(20)+1
ENDIF
IF 和除3余2="2"
b(21)=b(21)+1
ENDIF
ENDDO
******************************************
K=1
DO WHILE K<22
IF B(K)=0
b(k)=" "
ELSE
B(K)=B(K)/2
ENDIF
K=K+1
ENDDO
SELECT J
APPEND BLANK
GATHER FROM B
SELECT A
ENDIF
close all
********************************************************************************************************1///
******************************************
PROC ZH_2
SET TALK OFF
DIME B(28)
b(1)=0
b(2)=0
b(3)=0
b(4)=0
b(5)=0
b(6)=0
b(7)=0
b(8)=0
b(9)=0
b(10)=0
b(11)=0
b(12)=0
b(13)=0
b(14)=0
b(15)=0
b(16)=0
b(17)=0
b(18)=0
b(19)=0
b(20)=0
b(21)=0
B(22)=0
B(23)=0
B(24)=0
b(25)=0
b(26)=0
b(27)=0
b(28)=0
n=0
Select 1
USE 3ds2007
Select 10
Use hetong
dele all
pack
Select A
DO WHILE .NOT.EOF()
IF 和值=4
b(1)=b(1)+1
ENDIF
IF 和值=5
b(2)=b(2)+1
ENDIF
IF 和值=6
b(3)=b(3)+1
ENDIF
IF 和值=7
b(4)=b(4)+1
ENDIF
IF 和值=8
b(5)=b(5)+1
ENDIF
IF 和值=9
b(6)=b(6)+1
ENDIF
IF 和值=10
b(7)=b(7)+1
ENDIF
IF 和值=11
b(8)=b(8)+1
ENDIF
IF 和值=12
b(9)=b(9)+1
ENDIF
IF 和值=13
b(10)=b(10)+1
ENDIF
IF 和值=14
b(11)=b(11)+1
ENDIF
IF 和值=15
b(12)=b(12)+1
ENDIF
IF 和值=16
b(13)=b(13)+1
ENDIF
IF 和值=17
b(14)=b(14)+1
ENDIF
IF 和值=18
b(15)=b(15)+1
ENDIF
IF 和值=19
b(16)=b(16)+1
ENDIF
IF 和值=20
b(17)=b(17)+1
ENDIF
IF 和值=21
b(18)=b(18)+1
ENDIF
IF 和值=22
b(19)=b(19)+1
ENDIF
IF 和值=23
b(20)=b(20)+1
ENDIF
IF 和值=0
b(21)=b(21)+1
ENDIF
IF 和值=1
b(22)=b(22)+1
ENDIF
IF 和值=2
b(23)=b(23)+1
ENDIF
IF 和值=3
b(24)=b(24)+1
ENDIF
IF 和值=24
b(25)=b(25)+1
ENDIF
IF 和值=25
b(26)=b(26)+1
ENDIF
IF 和值=26
b(27)=b(27)+1
ENDIF
IF 和值=27
b(28)=b(28)+1
ENDIF
n=n+1
skip
IF N=10
K=1
DO WHILE K<29
IF B(K)=0
B(K)=" "
ENDIF
K=K+1
ENDDO
Select J
Append Blank
Gather From B
Select A
N=0
b(1)=0
b(2)=0
b(3)=0
b(4)=0
b(5)=0
b(6)=0
b(7)=0
b(8)=0
b(9)=0
b(10)=0
b(11)=0
b(12)=0
b(13)=0
b(14)=0
b(15)=0
b(16)=0
b(17)=0
b(18)=0
b(19)=0
b(20)=0
b(21)=0
B(22)=0
B(23)=0
B(24)=0
b(25)=0
b(26)=0
b(27)=0
b(28)=0
ENDIF
ENDDO
******************************************
SELE A
GO BOTTOM
TM=RECNO()
PM=RIGHT(STR(TM),1)
PM2=VAL(PM)
IF PM2<>0
DO WHILE PM2<>0
GO TM
TM=TM-1
PM2=PM2-1
IF 和值=4
b(1)=b(1)+1
ENDIF
IF 和值=5
b(2)=b(2)+1
ENDIF
IF 和值=6
b(3)=b(3)+1
ENDIF
IF 和值=7
b(4)=b(4)+1
ENDIF
IF 和值=8
b(5)=b(5)+1
ENDIF
IF 和值=9
b(6)=b(6)+1
ENDIF
IF 和值=10
b(7)=b(7)+1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -