📄 zztongx.prg
字号:
b(23)=b(23)+1
ENDIF
IF M="212"
b(24)=b(24)+1
ENDIF
IF M="220"
b(25)=b(25)+1
ENDIF
IF M="221"
b(26)=b(26)+1
ENDIF
IF M="222"
b(27)=b(27)+1
ENDIF
n=n+1
skip
IF n=zq
K=1
DO WHILE K<28
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
ENDIF
ENDDO
k=1
DO WHILE K<28
IF B(K)=0
b(k)=" "
ENDIF
K=K+1
ENDDO
SELECT J
APPEND BLANK
GATHER FROM B
SELECT A
*****************
CLOSE ALL
*************************************************************************************6////
******************************************
PROC ZH_7
SET TALK OFF
DIME B(19)
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
n=0
Select 1
USE 3ds2007
Select 10
Use hekuatong
dele all
pack
Select A
DO WHILE .NOT.EOF()
IF 和值=0.OR.和值=3.OR.和值=6.OR.和值=9.OR.和值=12.OR.和值=15.OR.和值=18.OR.和值=21.OR.和值=24.OR.和值=27
IF 跨度=0.OR.跨度=3.OR.跨度=6.OR.跨度=9
B(1)=B(1)+1
ENDIF
ENDIF
IF 和值=1.OR.和值=4.OR.和值=7.OR.和值=10.OR.和值=13.OR.和值=16.OR.和值=19.OR.和值=22.OR.和值=25
IF 跨度=1.OR.跨度=4.OR.跨度=7
B(2)=B(2)+1
ENDIF
ENDIF
IF 和值=2.OR.和值=5.OR.和值=8.OR.和值=11.OR.和值=14.OR.和值=17.OR.和值=20.OR.和值=23.OR.和值=26
IF 跨度=2.OR.跨度=5.OR.跨度=8
B(3)=B(3)+1
ENDIF
ENDIF
IF 和值=0.OR.和值=3.OR.和值=6.OR.和值=9.OR.和值=12.OR.和值=15.OR.和值=18.OR.和值=21.OR.和值=24.OR.和值=27
IF 跨度=1.OR.跨度=4.OR.跨度=7
B(4)=B(4)+1
ENDIF
ENDIF
IF 和值=0.OR.和值=3.OR.和值=6.OR.和值=9.OR.和值=12.OR.和值=15.OR.和值=18.OR.和值=21.OR.和值=24.OR.和值=27
IF 跨度=2.OR.跨度=5.OR.跨度=8
B(5)=B(5)+1
ENDIF
ENDIF
IF 和值=1.OR.和值=4.OR.和值=7.OR.和值=10.OR.和值=13.OR.和值=16.OR.和值=19.OR.和值=22.OR.和值=25
IF 跨度=0.OR.跨度=3.OR.跨度=6.OR.跨度=9
B(6)=B(6)+1
ENDIF
ENDIF
IF 和值=1.OR.和值=4.OR.和值=7.OR.和值=10.OR.和值=13.OR.和值=16.OR.和值=19.OR.和值=22.OR.和值=25
IF 跨度=2.OR.跨度=5.OR.跨度=8
B(7)=B(7)+1
ENDIF
ENDIF
IF 和值=2.OR.和值=5.OR.和值=8.OR.和值=11.OR.和值=14.OR.和值=17.OR.和值=20.OR.和值=23.OR.和值=26
IF 跨度=0.OR.跨度=3.OR.跨度=6.OR.跨度=9
B(8)=B(8)+1
ENDIF
ENDIF
IF 和值=2.OR.和值=5.OR.和值=8.OR.和值=11.OR.和值=14.OR.和值=17.OR.和值=20.OR.和值=23.OR.和值=26
IF 跨度=1.OR.跨度=4.OR.跨度=7
B(9)=B(9)+1
ENDIF
ENDIF
************************************************
IF 差1=0
b(10)=b(10)+1
ENDIF
IF 差1=1
b(11)=b(11)+1
ENDIF
IF 差1=2
b(12)=b(12)+1
ENDIF
IF 差1=3
b(13)=b(13)+1
ENDIF
IF 差1=4
b(14)=b(14)+1
ENDIF
IF 差1=5
b(15)=b(15)+1
ENDIF
IF 差1=6
b(16)=b(16)+1
ENDIF
IF 差1=7
b(17)=b(17)+1
ENDIF
IF 差1=8
b(18)=b(18)+1
ENDIF
IF 差1=9
b(19)=b(19)+1
ENDIF
n=n+1
skip
IF n=zq
K=1
DO WHILE K<20
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
ENDIF
ENDDO
K=1
DO WHILE K<20
IF B(K)=0
b(k)=" "
ENDIF
K=K+1
ENDDO
SELECT J
APPEND BLANK
GATHER FROM B
SELECT A
CLOSE ALL
***********************************************************************7////
******************************************
PROC ZH_8
SET TALK OFF
DIME B(32)
********************************
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
b(29)=0
b(30)=0
b(31)=0
b(32)=0
*******************************************
n=0
Select 1
USE 3ds2007
Select 10
Use 21tong
dele all
pack
Select A
DO WHILE .NOT.EOF()
M1=MAX(百位,十位)
M2=MIN(百位,十位)
M3=个位
IF M3>M1
M=str(m3,1)+str(m1,1)+str(m2,1)
else
IF M3<M2
M=str(m1,1)+str(m2,1)+str(m3,1)
else
M=str(m1,1)+str(m3,1)+str(m2,1)
ENDIF
ENDIF
IF M="980".OR.M="970".OR.M="870".OR.M="987".OR.M="960".OR.M="860".OR.M="986".OR.M="760".OR.M="976".OR.M="876"
B(1)=B(1)+1
ENDIF
IF M="950".OR.M="850".OR.M="985".OR.M="750".OR.M="975".OR.M="875".OR.M="650".OR.M="965".OR.M="865".OR.M="765"
B(2)=B(2)+1
ENDIF
IF M="940".OR.M="840".OR.M="984".OR.M="740".OR.M="974".OR.M="874".OR.M="640".OR.M="964".OR.M="864".OR.M="764"
B(3)=B(3)+1
ENDIF
IF M="540".OR.M="954".OR.M="854".OR.M="754".OR.M="654".OR.M="930".OR.M="830".OR.M="983".OR.M="730".OR.M="973"
B(4)=B(4)+1
ENDIF
IF M="873".OR.M="630".OR.M="963".OR.M="863".OR.M="763".OR.M="530".OR.M="953".OR.M="853".OR.M="753".OR.M="653"
B(5)=B(5)+1
ENDIF
IF M="430".OR.M="943".OR.M="843".OR.M="743".OR.M="643".OR.M="543".OR.M="920".OR.M="820".OR.M="982".OR.M="720"
B(6)=B(6)+1
ENDIF
IF M="972".OR.M="872".OR.M="620".OR.M="962".OR.M="862".OR.M="762".OR.M="520".OR.M="952".OR.M="852".OR.M="752"
B(7)=B(7)+1
ENDIF
IF M="652".OR.M="420".OR.M="942".OR.M="842".OR.M="742".OR.M="642".OR.M="542".OR.M="320".OR.M="932".OR.M="832"
B(8)=B(8)+1
ENDIF
IF M="732".or.M="632".or.M="532".or.M="432".or.M="910".or.M="810".or.M="981".or.M="710".or.M="971".or.M="871"
B(9)=B(9)+1
ENDIF
IF M="610".or.M="961".or.M="861".or.M="761".or.M="510".or.M="951".or.M="851".or.M="751".or.M="651".or.M="410"
B(10)=B(10)+1
ENDIF
IF M="941".or.M="841".or.M="741".or.M="641".or.M="541".or.M="310".or.M="931".or.M="831".or.M="731".or.M="631"
B(11)=B(11)+1
ENDIF
IF M="531".or.M="431".or.M="210".or.M="921".or.M="821".or.M="721".or.M="621".or.M="521".or.M="421".or.M="321"
B(12)=B(12)+1
ENDIF
IF M="900".or.M="990".or.M="800".or.M="880".or.M="998".or.M="988".or.M="700".or.M="770".or.M="997".or.M="977"
B(13)=B(13)+1
ENDIF
IF M="887".or.M="877".or.M="600".or.M="660".or.M="996".or.M="966".or.M="886".or.M="866".or.M="776".or.M="766"
B(14)=B(14)+1
ENDIF
IF M="500".or.M="550".or.M="995".or.M="955".or.M="885".or.M="855".or.M="775".or.M="755".or.M="665".or.M="655"
B(15)=B(15)+1
ENDIF
IF M="400".or.M="440".or.M="994".or.M="944".or.M="884".or.M="844".or.M="774".or.M="744".or.M="664".or.M="644"
B(16)=B(16)+1
ENDIF
IF M="554".or.M="544".or.M="300".or.M="330".or.M="993".or.M="933".or.M="883".or.M="833".or.M="773".or.M="733"
B(17)=B(17)+1
ENDIF
IF M="663".or.M="633".or.M="553".or.M="533".or.M="443".or.M="433".or.M="200".or.M="220".or.M="992".or.M="922"
B(18)=B(18)+1
ENDIF
IF M="882".or.M="822".or.M="772".or.M="722".or.M="662".or.M="622".or.M="552".or.M="522".or.M="442".or.M="422"
B(19)=B(19)+1
ENDIF
IF M="332".or.M="322".or.M="100".or.M="110".or.M="991".or.M="911".or.M="881".or.M="811".or.M="771".or.M="711"
B(20)=B(20)+1
ENDIF
IF M="661".or.M="611".or.M="551".or.M="511".or.M="441".or.M="411".or.M="331".or.M="311".or.M="221".or.M="211"
B(21)=B(21)+1
ENDIF
IF M="000".or.M="111".or.M="222".or.M="333".or.M="444".or.M="555".or.M="666".or.M="777".or.M="888".or.M="999"
B(22)=B(22)+1
ENDIF
*******************************************************
bw=百位
******************************************************
IF BW=1
B(23)=B(23)+1
ENDIF
IF BW=2
B(24)=B(24)+1
ENDIF
IF BW=3
B(25)=B(25)+1
ENDIF
IF BW=4
B(26)=B(26)+1
ENDIF
IF BW=5
B(27)=B(27)+1
ENDIF
IF BW=6
B(28)=B(28)+1
ENDIF
IF BW=7
B(29)=B(29)+1
ENDIF
IF BW=8
B(30)=B(30)+1
ENDIF
IF BW=9
B(31)=B(31)+1
ENDIF
IF BW=0
B(32)=B(32)+1
ENDIF
******************************************************
n=n+1
skip
IF n=zq
K=1
DO WHILE K<33
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
b(29)=0
b(30)=0
b(31)=0
b(32)=0
********************************
ENDIF
ENDDO
K=1
DO WHILE K<33
IF B(K)=0
b(k)=" "
ENDIF
K=K+1
ENDDO
SELECT J
APPEND BLANK
GATHER FROM B
SELECT A
CLOSE ALL
********************************************************************************8/////
******************************************
PROC ZH_9
SET TALK OFF
DIME B(10)
********************************
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
*******************************************
n=0
Select 1
USE 3ds2007
Select 10
Use 22tong2
dele all
pack
Select A
DO WHILE .NOT.EOF()
M1=MAX(百位,十位)
M2=MIN(百位,十位)
M3=个位
IF M3>M1
M=str(m3,1)+str(m1,1)+str(m2,1)
else
IF M3<M2
M=str(m1,1)+str(m2,1)+str(m3,1)
else
M=str(m1,1)+str(m3,1)+str(m2,1)
ENDIF
ENDIF
IF M="980".OR.M="810".OR.M="985".OR.M="930".OR.M="310".OR.M="851".OR.M="953".OR.M="531".OR.M="950".OR.M="510".OR.M="951".OR.M="910".OR.M="500".OR.M="000".OR.;
M="900".or.M="955".or.M="100".or.M="551".or.M="990".or.M="110".or.M="995".or.M="511"
B(1)=B(1)+1
ENDIF
IF M="970".OR.M="940".OR.M="710".OR.M="975".OR.M="410".OR.M="954".OR.M="751".OR.M="541".OR.M="862".OR.M="632".OR.M="863".OR.M="832".OR.M="333".OR.M="833".OR.;
M="886".or.M="882".or.M="633".or.M="332".or.M="866".or.M="663".or.M="822".or.M="322"
B(2)=B(2)+1
ENDIF
IF M="870".OR.M="840".OR.M="730".OR.M="875".OR.M="430".OR.M="854".OR.M="753".OR.M="543".OR.M="750".OR.M="540".OR.M="754".OR.M="740".OR.M="777".OR.M="774".OR.;
M="700".or.M="400".or.M="755".or.M="554".or.M="770".or.M="775".or.M="440".or.M="544"
B(3)=B(3)+1
ENDIF
IF M="987".OR.M="984".OR.M="973".OR.M="871".OR.M="943".OR.M="841".OR.M="731".OR.M="431".OR.M="850".OR.M="530".OR.M="853".OR.M="830".OR.M="555".OR.M="550".OR.;
M="855".or.M="553".or.M="880".or.M="885".or.M="330".or.M="533".or.M="800".or.M="300"
B(4)=B(4)+1
ENDIF
IF M="960".OR.M="920".OR.M="610".OR.M="965".OR.M="210".OR.M="952".OR.M="651".OR.M="521".OR.M="962".OR.M="621".OR.M="961".OR.M="921".OR.M="999".OR.M="991".OR.;
M="996".or.M="992".or.M="611".or.M="211".or.M="966".or.M="661".or.M="922".or.M="221"
B(5)=B(5)+1
ENDIF
IF M="860".OR.M="820".OR.M="630".OR.M="865".OR.M="320".OR.M="852".OR.M="653".OR.M="532".OR.M="650".OR.M="520".OR.M="652".OR.M="620".OR.M="666".OR.M="662".OR.;
M="600".or.M="200".or.M="655".or.M="552".or.M="660".or.M="665".or.M="220".or.M="522"
B(6)=B(6)+1
ENDIF
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -