代码统计程序.prg

这是一款非常实用的福彩3D彩票统计分析软件,实现各种代码走势图的查看,以及按照相应统计指标进行统计分析、浏览报表、打印报表

SET TALK OFF

DIME B(72)
v=1
********************************
do while v<73
    b(v)=0
    v=v+1
    enddo
*******************************************
n=0
Select 1
USE pfds2008
Select 10
Use 代码统计.dbf
dele all
pack
Select A

DO WHILE .NOT.EOF()
*********************************012路代码统计     
    do case
       case 百位012路=0
          b(1)=b(1)+1
       case 百位012路=1
          b(2)=b(2)+1  
       case 百位012路=2
          b(3)=b(3)+1
     endcase
     
    do case
       case 十位012路=0
          b(4)=b(4)+1
       case 十位012路=1
          b(5)=b(5)+1  
       case 十位012路=2
          b(6)=b(6)+1
     endcase    
     
     do case
       case 个位012路=0
          b(7)=b(7)+1
       case 个位012路=1
          b(8)=b(8)+1  
       case 个位012路=2
          b(9)=b(9)+1
     endcase  
 ********************************* 756代码统计   
     do case
       case 变11='0'
          b(10)=b(10)+1
       case 变11='1'
          b(11)=b(11)+1  
       case 变11='2'
         b(12)=b(12)+1
     endcase
     do case
       case 变12='0'
          b(13)=b(13)+1
       case 变12='1'
          b(14)=b(14)+1  
       case 变12='2'
         b(15)=b(15)+1
     endcase
     do case
       case 变13='0'
          b(16)=b(16)+1
       case 变13='1'
          b(17)=b(17)+1  
       case 变13='2'
         b(18)=b(18)+1
     endcase
****************************************986代码统计
 do case
       case 变21='0'
          b(19)=b(19)+1
       case 变21='1'
          b(20)=b(20)+1  
       case 变21='2'
         b(21)=b(21)+1
     endcase
     do case
       case 变22='0'
          b(22)=b(22)+1
       case 变22='1'
          b(23)=b(23)+1  
       case 变22='2'
         b(24)=b(24)+1
     endcase
     do case
       case 变23='0'
          b(25)=b(25)+1
       case 变23='1'
          b(26)=b(26)+1  
       case 变23='2'
         b(27)=b(27)+1
     endcase
****************************************147代码统计
 do case
       case 变31='0'
          b(28)=b(28)+1
       case 变31='1'
          b(29)=b(29)+1  
       case 变31='2'
         b(30)=b(30)+1
     endcase
     do case
       case 变32='0'
          b(31)=b(31)+1
       case 变32='1'
          b(32)=b(32)+1  
       case 变32='2'
         b(33)=b(33)+1
     endcase
     do case
       case 变33='0'
          b(34)=b(34)+1
       case 变33='1'
          b(35)=b(35)+1  
       case 变33='2'
         b(36)=b(36)+1
     endcase
****************************************518代码统计
  do case
       case 变41='0'
          b(37)=b(37)+1
       case 变41='1'
          b(38)=b(38)+1  
       case 变41='2'
         b(39)=b(39)+1
     endcase
     do case
       case 变42='0'
          b(40)=b(40)+1
       case 变42='1'
          b(41)=b(41)+1  
       case 变42='2'
         b(42)=b(42)+1
     endcase
     do case
       case 变43='0'
          b(43)=b(43)+1
       case 变43='1'
          b(44)=b(44)+1  
       case 变43='2'
         b(45)=b(45)+1
     endcase
****************************************301代码统计
 
    do case
       case 变51='0'
          b(46)=b(46)+1
       case 变51='1'
          b(47)=b(47)+1  
       case 变51='2'
         b(48)=b(48)+1
     endcase
     do case
       case 变52='0'
          b(49)=b(49)+1
       case 变52='1'
          b(50)=b(50)+1  
       case 变52='2'
         b(51)=b(51)+1
     endcase
     do case
       case 变53='0'
          b(52)=b(52)+1
       case 变53='1'
          b(53)=b(53)+1  
       case 变53='2'
         b(54)=b(54)+1
     endcase
***************************************质合统计
     if 百位=1.OR.百位=2.OR.百位=3.OR.百位=5.OR.百位=7 
        b(55)=b(55)+1
        else
        b(56)=b(56)+1
        endif
 
     if 十位=1.OR.十位=2.OR.十位=3.OR.十位=5.OR.十位=7 
        b(57)=b(57)+1
        else
        b(58)=b(58)+1
        endif       
      if 个位=1.OR.个位=2.OR.个位=3.OR.个位=5.OR.个位=7 
        b(59)=b(59)+1
        else
        b(60)=b(60)+1
        endif
        
***************************************大小统计
     if 百位>4
        b(61)=b(61)+1
        else
        b(62)=b(62)+1
        endif
 
     if 十位>4
        b(63)=b(63)+1
        else
        b(64)=b(64)+1
        endif       
      if 个位>4
        b(65)=b(65)+1
        else
        b(66)=b(66)+1
        endif

***************************************奇偶统计
     if mod(百位,2)=1
        b(67)=b(67)+1
        else
        b(68)=b(68)+1
        endif
 
     if mod(十位,2)=1
        b(69)=b(69)+1
        else
        b(70)=b(70)+1
        endif       
      if mod(个位,2)=1
        b(71)=b(71)+1
        else
        b(72)=b(72)+1
        endif
******************************************************
       
     n=n+1
     skip
    IF n=10
       K=1
       DO WHILE K<73
          
          IF B(K)=0
             B(K)=" "
             ENDIF
          K=K+1 
         enddo
         
    Select J
    Append Blank
    Gather From B
    Select A
    
    N=0
**********************************
v=1
********************************
do while v<67
    b(v)=0
    v=v+1
    enddo
********************************
        ENDIF
enddo
************************************************

    K=1
       DO WHILE K<73
         IF B(K)=0
            b(k)="  "
           
            ENDIF
          K=K+1 
         enddo
      SELECT J
      APPEND BLANK
      GATHER FROM B
      SELECT A
   
    CLOSE ALL
     *****************************************************************************16/////
 ******************************************