📄 zztong.prg
字号:
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=10
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
***************************************
******************************************************************
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
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
ENDDO
*******************************************
K=1
DO WHILE K<33
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
********************************************************************************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="950".OR.M="940".OR.M="540".OR.M="873".OR.M="430".OR.M="972".OR.M="652".OR.M="732".or.M="610".or.M="941".or.M="531".or.M="900".or.M="887".or.M="500".or.M="400".or.M="554".or.M="663".or.M="882".or.M="332".or.M="661".or.M="000"
B(1)=B(1)+1
ENDIF
IF M="970".OR.M="850".OR.M="840".OR.M="954".OR.M="630".OR.M="943".OR.M="872".OR.M="420".OR.M="632".or.M="961".or.M="841".or.M="431".or.M="990".or.M="877".or.M="550".or.M="440".or.M="544".or.M="633".or.M="822".or.M="322".or.M="611".or.M="111"
B(2)=B(2)+1
ENDIF
IF M="870".OR.M="985".OR.M="984".OR.M="854".OR.M="963".OR.M="843".OR.M="620".OR.M="942".OR.M="532".or.M="861".or.M="741".or.M="210".or.M="800".or.M="600".or.M="995".or.M="994".or.M="300".or.M="553".or.M="772".or.M="100".or.M="551".or.M="222"
B(3)=B(3)+1
ENDIF
IF M="987".OR.M="750".OR.M="740".OR.M="754".OR.M="863".OR.M="743".OR.M="962".OR.M="842".OR.M="432".or.M="761".or.M="641".or.M="921".or.M="880".or.M="660".or.M="955".or.M="944".or.M="330".or.M="533".or.M="722".or.M="110".or.M="511".or.M="333"
B(4)=B(4)+1
ENDIF
IF M="960".OR.M="975".OR.M="974".OR.M="654".OR.M="763".OR.M="643".OR.M="862".OR.M="742".OR.M="910".or.M="510".or.M="541".or.M="821".or.M="998".or.M="996".or.M="885".or.M="884".or.M="993".or.M="443".or.M="662".or.M="991".or.M="441".or.M="444"
B(5)=B(5)+1
ENDIF
IF M="860".OR.M="875".OR.M="874".OR.M="930".OR.M="530".OR.M="543".OR.M="762".OR.M="642".OR.M="810".or.M="951".or.M="310".or.M="721".or.M="988".or.M="966".or.M="855".or.M="844".or.M="933".or.M="433".or.M="622".or.M="911".or.M="411".or.M="555"
B(6)=B(6)+1
ENDIF
IF M="986".OR.M="650".OR.M="640".OR.M="830".OR.M="953".OR.M="920".OR.M="520".OR.M="542".OR.M="981".or.M="851".or.M="931".or.M="621".or.M="700".or.M="886".or.M="775".or.M="774".or.M="883".or.M="200".or.M="552".or.M="881".or.M="331".or.M="666"
B(7)=B(7)+1
ENDIF
IF M="760".OR.M="965".OR.M="964".OR.M="983".OR.M="853".OR.M="820".OR.M="952".OR.M="320".OR.M="710".or.M="751".or.M="831".or.M="521".or.M="770".or.M="866".or.M="755".or.M="744".or.M="833".or.M="220".or.M="522".or.M="811".or.M="311".or.M="777"
B(8)=B(8)+1
ENDIF
IF M="976".OR.M="865".OR.M="864".OR.M="730".OR.M="753".OR.M="982".OR.M="852".OR.M="932".OR.M="971".or.M="651".or.M="731".or.M="421".or.M="997".or.M="776".or.M="665".or.M="664".or.M="773".or.M="992".or.M="442".or.M="771".or.M="221".or.M="888"
B(9)=B(9)+1
ENDIF
IF M="876".or.M="765".or.M="764".or.M="973".or.M="653".or.M="720".or.M="752".or.M="832".or.M="871".or.M="410".or.M="631".or.M="321".or.M="977".or.M="766".or.M="655".or.M="644".or.M="733".or.M="922".or.M="422".or.M="711".or.M="211".or.M="999"
B(10)=B(10)+1
ENDIF
******************************************************
n=n+1
skip
IF N=10
K=1
DO WHILE K<11
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
********************************
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
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="950".OR.M="940".OR.M="540".OR.M="873".OR.M="430".OR.M="972".OR.M="652".OR.M="732".or.M="610".or.M="941".or.M="531".or.M="900".or.M="887".or.M="500".or.M="400".or.M="554".or.M="663".or.M="882".or.M="332".or.M="661".or.M="000"
B(1)=B(1)+1
ENDIF
IF M="970".OR.M="850".OR.M="840".OR.M="954".OR.M="630".OR.M="943".OR.M="872".OR.M="420".OR.M="632".or.M="961".or.M="841".or.M="431".or.M="990".or.M="877".or.M="550".or.M="440".or.M="544".or.M="633".or.M="822".or.M="322".or.M="611".or.M="111"
B(2)=B(2)+1
ENDIF
IF M="870".OR.M="985".OR.M="984".OR.M="854".OR.M="963".OR.M="843".OR.M="620".OR.M="942".OR.M="532".or.M="861".or.M="741".or.M="210".or.M="800".or.M="600".or.M="995".or.M="994".or.M="300".or.M="553".or.M="772".or.M="100".or.M="551".or.M="222"
B(3)=B(3)+1
ENDIF
IF M="987".OR.M="750".OR.M="740".OR.M="754".OR.M="863".OR.M="743".OR.M="962".OR.M="842".OR.M="432".or.M="761".or.M="641".or.M="921".or.M="880".or.M="660".or.M="955".or.M="944".or.M="330".or.M="533".or.M="722".or.M="110".or.M="511".or.M="333"
B(4)=B(4)+1
ENDIF
IF M="960".OR.M="975".OR.M="974".OR.M="654".OR.M="763".OR.M="643".OR.M="862".OR.M="742".OR.M="910".or.M="510".or.M="541".or.M="821".or.M="998".or.M="996".or.M="885".or.M="884".or.M="993".or.M="443".or.M="662".or.M="991".or.M="441".or.M="444"
B(5)=B(5)+1
ENDIF
IF M="860".OR.M="875".OR.M="874".OR.M="930".OR.M="530".OR.M="543".OR.M="762".OR.M="642".OR.M="810".or.M="951".or.M="310".or.M="721".or.M="988".or.M="966".or.M="855".or.M="844".or.M="933".or.M="433".or.M="622".or.M="911".or.M="411".or.M="555"
B(6)=B(6)+1
ENDIF
IF M="986".OR.M="650".OR.M="640".OR.M="830".OR.M="953".OR.M="920".OR.M="520".OR.M="542".OR.M="981".or.M="851".or.M="931".or.M="621".or.M="700".or.M="886".or.M="775".or.M="774".or.M="883".or.M="200".or.M="552".or.M="881".or.M="331".or.M="666"
B(7)=B(7)+1
ENDIF
IF M="760".OR.M="965".OR.M="964".OR.M="983".OR.M="853".OR.M="820".OR.M="952".OR.M="320".OR.M="710".or.M="751".or.M="831".or.M="521".or.M="770".or.M="866".or.M="755".or.M="744".or.M="833".or.M="220".or.M="522".or.M="811".or.M="311".or.M="777"
B(8)=B(8)+1
ENDIF
IF M="976".OR.M="865".OR.M="864".OR.M="730".OR.M="753".OR.M="982".OR.M="852".OR.M="932".OR.M="971".or.M="651".or.M="731".or.M="421".or.M="997".or.M="776".or.M="665".or.M="664".or.M="773".or.M="992".or.M="442".or.M="771".or.M="221".or.M="888"
B(9)=B(9)+1
ENDIF
IF M="876".or.M="765".or.M="764".or.M="973".or.M="653".or.M="720".or.M="752".or.M="832".or.M="871".or.M="410".or.M="631".or.M="321".or.M="977".or.M="766".or.M="655".or.M="644".or.M="733".or.M="922".or.M="422".or.M="711".or.M="211".or.M="999"
B(10)=B(10)+1
ENDIF
***********************************
ENDDO
*******************************************
K=1
DO WHILE K<11
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
*******************************************************************************9////
******************************************
PROC ZH_10
SET TALK OFF
DIME B(64)
************************************************
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
b(33)=0
b(34)=0
b(35)=0
b(36)=0
b(37)=0
b(38)=0
b(39)=0
b(40)=0
b(41)=0
b(42)=0
b(43)=0
b(44)=0
b(45)=0
b(46)=0
b(47)=0
b(48)=0
b(49)=0
b(50)=0
b(51)=0
B(52)=0
B(53)=0
B(54)=0
b(55)=0
b(56)=0
b(57)=0
b(58)=0
b(59)=0
b(60)=0
b(61)=0
B(62)=0
b(63)=0
B(64)=0
********************************************************
N=0
SELECT 1
USE 3DS2007.DBF
SELECT 10
USE 3DDADANTONG.DBF
DELE ALL
PACK
SELECT A
DO WHILE .NOT.EOF()
IF 百位>4.and.十位>4.and.个位>4
IF (百位=5.or.百位=7.or.百位=9).and.(十位=5.or.十位=7.or.十位=9).and.(个位=5.or.个位=7.or.个位=9)
b(1)=b(1)+1
ENDIF
IF (百位=5.or.百位=7.or.百位=9).and.(十位=5.or.十位=7.or.十位=9).and.(个位=6.or.个位=8)
b(2)=b(2)+1
ENDIF
IF (百位=5.or.百位=7.or.百位=9).and.(十位=6.or.十位=8).and.(个位=5.or.个位=7.or.个位=9)
b(3)=b(3)+1
ENDIF
IF (百位=5.or.百位=7.or.百位=9).and.(十位=6.or⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -