📄 datazh2008.prg
字号:
EndIf
***************************************************插入和值012路指标 s(44)
s(44)=Mod(S(8),3)
*************************************************
IF s(8)=0.or.s(8)=3.or.s(8)=6.or.s(8)=9.or.s(8)=12.or.s(8)=15.or.s(8)=18.or.s(8)=21.or.s(8)=24.or. s(8)=27
IF s(7)=0.or.s(7)=3.or.s(7)=6.or.s(7)=9
S(27)="A00"
ENDIF
IF s(7)=1.or.s(7)=4.or.s(7)=7
S(27)="A01"
ENDIF
IF s(7)=2.or.s(7)=5.or.s(7)=8
S(27)="A02"
ENDIF
ENDIF
IF s(8)=1.or.s(8)=4.or.s(8)=7.or.s(8)=10.or.s(8)=13.or.s(8)=16.or.s(8)=19.or.s(8)=22.or.s(8)=25
IF s(7)=0.or.s(7)=3.or.s(7)=6.or.s(7)=9
S(27)="B10"
ENDIF
IF s(7)=1.or.s(7)=4.or.s(7)=7
S(27)="B11"
ENDIF
IF s(7)=2.or.s(7)=5.or.s(7)=8
S(27)="B12"
ENDIF
ENDIF
IF s(8)=2.or.s(8)=5.or.s(8)=8.or.s(8)=11.or.s(8)=14.or.s(8)=17.or.s(8)=20.or.s(8)=23.or.s(8)=26
IF s(7)=0.or.s(7)=3.or.s(7)=6.or.s(7)=9
S(27)="C20"
ENDIF
IF s(7)=1.or.s(7)=4.or.s(7)=7
S(27)="C21"
ENDIF
IF s(7)=2.or.s(7)=5.or.s(7)=8
S(27)="C22"
ENDIF
ENDIF
*********************************************
****************************************
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"
s(28)="①"
s(45)="1" &&&&&&&&&&插入区位1 s(45)
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"
s(28)="②"
s(45)="2" &&&&&&&&&&插入区位1 s(45)
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"
s(28)="③"
s(45)="3" &&&&&&&&&&插入区位1 s(45)
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"
s(28)="④"
s(45)="4" &&&&&&&&&&插入区位1 s(45)
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"
s(28)="⑤"
s(45)="5" &&&&&&&&&&插入区位1 s(45)
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"
s(28)="⑥"
s(45)="6" &&&&&&&&&&插入区位1 s(45)
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"
s(28)="⑦"
s(45)="7" &&&&&&&&&&插入区位1 s(45)
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"
s(28)="⑧"
s(45)="8" &&&&&&&&&&插入区位1 s(45)
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"
s(28)="⑨"
s(45)="9" &&&&&&&&&&插入区位1 s(45)
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"
s(28)="⑩"
s(45)="10" &&&&&&&&&&插入区位1 s(45)
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"
s(28)="11"
s(45)="11" &&&&&&&&&&插入区位1 s(45)
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"
s(28)="12"
s(45)="12" &&&&&&&&&&插入区位1 s(45)
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"
s(28)="13"
s(45)="13" &&&&&&&&&&插入区位1 s(45)
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"
s(28)="14"
s(45)="14" &&&&&&&&&&插入区位1 s(45)
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"
s(28)="15"
s(45)="15" &&&&&&&&&&插入区位1 s(45)
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"
s(28)="16"
s(45)="16" &&&&&&&&&&插入区位1 s(45)
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"
s(28)="17"
s(45)="17" &&&&&&&&&&插入区位1 s(45)
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"
s(28)="18"
s(45)="18" &&&&&&&&&&插入区位1 s(45)
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"
s(28)="19"
s(45)="19" &&&&&&&&&&插入区位1 s(45)
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"
s(28)="20"
s(45)="20" &&&&&&&&&&插入区位1 s(45)
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"
s(28)="21"
s(45)="21" &&&&&&&&&&插入区位1 s(45)
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"
s(28)="22"
s(45)="22" &&&&&&&&&&插入区位1 s(45)
ENDIF
*************************************插入区位1 s(45)
*****************************************
IF M="910".OR.M="920".OR.M="930".OR.M="210".OR.M="310".OR.M="410".OR.M="510".OR.M="610".OR.M="710".OR.M="810"
s(29)="①"
s(46)="1" &&&&&&&&&&插入区位2 s(46)
ENDIF
IF M="820".or.M="830".or.M="840".or.M="950".or.M="320".or.M="420".or.M="520".or.M="620".or.M="720".or.M="940"
s(29)="①"
s(46)="1" &&&&&&&&&&插入区位2 s(46)
ENDIF
IF M="730".OR.M="740".OR.M="750".OR.M="850".OR.M="860".OR.M="960".OR.M="970".OR.M="430".OR.M="530".OR.M="630"
s(29)="②"
s(46)="2" &&&&&&&&&&插入区位2 s(46)
ENDIF
IF M="000".or.M="100".or.M="200".or.M="300".or.M="400".or.M="500".or.M="600".or.M="700".or.M="800".or.M="900"
s(29)="②"
s(46)="2" &&&&&&&&&&插入区位2 s(46)
ENDIF
IF M="640".OR.M="650".OR.M="921".OR.M="760".OR.M="941".OR.M="870".OR.M="321".OR.M="980".OR.M="521".OR.M="540"
s(29)="③"
s(46)="3" &&&&&&&&&&插入区位2 s(46)
ENDIF
IF M="811".or.M="911".or.M="110".or.M="111".or.M="211".or.M="311".or.M="411".or.M="511".or.M="611".or.M="711"
s(29)="③"
s(46)="3" &&&&&&&&&&插入区位2 s(46)
ENDIF
IF M="721".OR.M="821".OR.M="831".OR.M="931".OR.M="851".OR.M="951".OR.M="961".OR.M="421".OR.M="431".OR.M="621"
s(29)="④"
s(46)="4" &&&&&&&&&&插入区位2 s(46)
ENDIF
IF M="622".or.M="722".or.M="822".or.M="922".or.M="220".or.M="221".or.M="222".or.M="322".or.M="422".or.M="522"
s(29)="④"
s(46)="4" &&&&&&&&&&插入区位2 s(46)
ENDIF
IF M="631".OR.M="731".OR.M="741".OR.M="841".OR.M="761".OR.M="861".OR.M="871".OR.M="971".OR.M="981".OR.M="531"
s(29)="⑤"
s(46)="5" &&&&&&&&&&插入区位2 s(46)
ENDIF
IF M="433".or.M="533".or.M="633".or.M="733".or.M="833".or.M="933".or.M="330".or.M="331".or.M="332".or.M="333"
s(29)="⑤"
s(46)="5" &&&&&&&&&&插入区位2 s(46)
ENDIF
IF M="541".OR.M="641".OR.M="651".OR.M="751".OR.M="932".OR.M="942".OR.M="952".OR.M="962".OR.M="972".OR.M="432"
s(29)="⑥"
s(46)="6" &&&&&&&&&&插入区位2 s(46)
ENDIF
IF M="442".or.M="443".or.M="444".or.M="544".or.M="644".or.M="744".or.M="844".or.M="944".or.M="440".or.M="441"
s(29)="⑥"
s(46)="6" &&&&&&&&&&插入区位2 s(46)
ENDIF
IF M="532".OR.M="632".OR.M="732".OR.M="832".OR.M="842".OR.M="852".OR.M="862".OR.M="872".OR.M="963".OR.M="982"
s(29)="⑦"
s(46)="7" &&&&&&&&&&插入区位2 s(46)
ENDIF
IF M="550".or.M="551".or.M="552".or.M="553".or.M="554".or.M="555".or.M="655".or.M="755".or.M="855".or.M="955"
s(29)="⑦"
s(46)="7" &&&&&&&&&&插入区位2 s(46)
ENDIF
IF M="983".OR.M="542".OR.M="642".OR.M="742".OR.M="752".OR.M="762".OR.M="943".OR.M="953".OR.M="873".OR.M="973"
s(29)="⑧"
s(46)="8" &&&&&&&&&&插入区位2 s(46)
ENDIF
IF M="866".or.M="966".or.M="660".or.M="661".or.M="662".or.M="663".or.M="664".or.M="665".or.M="666".or.M="667"
s(29)="⑧"
s(46)="8" &&&&&&&&&&插入区位2 s(46)
ENDIF
IF M="974".or.M="984".or.M="543".or.M="652".or.M="743".or.M="843".or.M="853".or.M="863".or.M="864".or.M="964"
s(29)="⑨"
s(46)="9" &&&&&&&&&&插入区位2 s(46)
ENDIF
IF M="776".or.M="777".or.M="877".or.M="770".or.M="771".or.M="772".or.M="773".or.M="774".or.M="775".or.M="977"
s(29)="⑨"
s(46)="9" &&&&&&&&&&插入区位2 s(46)
ENDIF
IF M="965".or.M="975".or.M="976".or.M="643".or.M="653".or.M="753".or.M="763".or.M="854".or.M="765".or.M="874"
s(29)="⑩"
s(46)="10" &&&&&&&&&&插入区位2 s(46)
ENDIF
IF M="884".or.M="885".or.M="886".or.M="887".or.M="888".or.M="988".or.M="880".or.M="881".or.M="882".or.M="883"
s(29)="⑩"
s(46)="10" &&&&&&&&&&插入区位2 s(46)
ENDIF
IF M="875".or.M="876".or.M="985".or.M="986".or.M="987".or.M="654".or.M="754".or.M="764".or.M="954".or.M="865"
s(29)="11"
s(46)="11" &&&&&&&&&&插入区位2 s(46)
ENDIF
IF M="992".or.M="993".or.M="994".or.M="995".or.M="996".or.M="997".or.M="998".or.M="999".or.M="990".or.M="991"
s(29)="11"
s(46)="11" &&&&&&&&&&插入区位2 s(46)
ENDIF
*********************************************
S(30)=MAX(百位,十位)-MIN(百位,十位)
s(49)=s(30) &&&&插入百十位差 s(49)
S(31)=MAX(十位,个位)-MIN(十位,个位)
s(50)=s(31) &&&插入十个位差 s(50)
s(51)=MAX(百位,个位)-MIN(百位,个位)&&&&插入百个位差s(51)
***********************位差012路
s(71)=str(mod(s(49),3),1)+str(mod(s(50),3),1)+str(mod(s(51),3),1)
*************************************s(32)
IF M="100".OR.M="900".OR.M="221".OR.M="322".OR.M="443".OR.M="110".OR.M="211".OR.M="332".OR.M="433".OR.M="554"
s(32)="①"
ENDIF
IF M="544".OR.M="665".OR.M="766".OR.M="887".OR.M="988".OR.M="655".OR.M="776".OR.M="877".OR.M="990".OR.M="998"
s(32)="②"
ENDIF
IF M="210".OR.M="410".OR.M="610".OR.M="810".OR.M="320".OR.M="310".OR.M="510".OR.M="710".OR.M="910".OR.M="930"
s(32)="③"
ENDIF
IF M="920".OR.M="430".OR.M="540".OR.M="940".OR.M="650".OR.M="950".OR.M="970".OR.M="321".OR.M="521".OR.M="721"
s(32)="④"
ENDIF
IF M="760".OR.M="960".OR.M="870".OR.M="980".OR.M="421".OR.M="921".OR.M="431".OR.M="541".OR.M="651".OR.M="761"
s(32)="⑤"
ENDIF
IF M="621".OR.M="821".OR.M="432".OR.M="632".OR.M="832".OR.M="871".OR.M="981".OR.M="532".OR.M="732".OR.M="932"
s(32)="⑥"
ENDIF
IF M="542".OR.M="652".OR.M="762".OR.M="872".OR.M="982".OR.M="543".OR.M="743".OR.M="943".OR.M="653".OR.M="763"
s(32)="⑦"
ENDIF
IF M="643".OR.M="843".OR.M="654".OR.M="854".OR.M="764".OR.M="873".OR.M="983".OR.M="754".OR.M="954".OR.M="765"
s(32)="⑧"
ENDIF
IF M="874".or.M="984".or.M="865".or.M="876".or.M="986".or.M="965".or.M="875".or.M="985".or.M="976".or.M="987"
s(32)="⑨"
ENDIF
IF M="111".or.M="333".or.M="555".or.M="777".or.M="999".or.M="000".or.M="222".or.M="444".or.M="666".or.M="888"
s(32)="⑩"
ENDIF
IF M="300".or.M="500".or.M="700".or.M="311".or.M="511".or.M="200".or.M="400".or.M="600".or.M="800".or.M="411"
s(32)="11"
ENDIF
IF M="711".or.M="911".or.M="522".or.M="722".or.M="922".or.M="611".or.M="811".or.M="220".or.M="422".or.M="622"
s(32)="12"
ENDIF
IF M="331".or.M="533".or.M="733".or.M="933".or.M="441".or.M="822".or.M="330".or.M="633".or.M="833".or.M="440"
s(32)="13"
ENDIF
IF M="744".or.M="944".or.M="551".or.M="553".or.M="755".or.M="442".or.M="644".or.M="844".or.M="550".or.M="552"
s(32)="14"
ENDIF
IF M="955".or.M="661".or.M="663".or.M="966".or.M="771".or.M="855".or.M="660".or.M="662".or.M="664".or.M="866"
s(32)="15"
ENDIF
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -