zppjk 发表于 2008-6-20 16:34

求助高手,请帮我分析分析这段程序的用法.谢了

IF val(skh1)>val(skh2)
                stmp=skh1
                skh1=skh2
                skh2=stmp
        ENDIF
        stmp='54158632'
        skha=str(evaluate(skh1)+evaluate(stmp),8)
        skha=strtran(skha,' ','0')
        stmp='48765213'
        skhb=str(evaluate(skh2)+evaluate(stmp),8)
        skhb=strtran(skhb,' ','0')
        stmp=''
        nmod=asc('9')
        FOR i=1 to 8
                ntmp=(asc(substr(skha,i,1)))
                FOR j=1 to 8
                        ntmp=ntmp+(asc(substr(skhb,j,1)))
                ENDFOR
                ntmp=asc('0')+mod(mod(ntmp,nmod),10)
                nmod=ntmp
                stmp=stmp+chr(ntmp)
        ENDFOR
        IF szch=stmp
                CREATE cursor registtmp(skh c(8),ekh c(8),zch c(8))
                sfile=home()+'sfsys.ini'
                IF file(sfile)
                        APPEND from (sfile) sdf
                ENDIF
                LOCAL zchtmp(1)
                SELECT zch from registtmp where skh==skh1 and ekh==skh2 into array zchtmp
                IF _tally>0
                        UPDATE registtmp set zch=stmp where skh==skh1 and ekh==skh2
                ELSE
                        INSERT into registtmp (skh,ekh,zch) values (skh1,skh2,stmp)
                ENDIF
                SELE registtmp
                COPY to (sfile) fields skh,ekh,zch sdf
                MESSAGEBOX('添加成功',48,'提示信息')
        ENDIF
ENDWITH

jxyga111 发表于 2008-6-20 17:03

你是大概那里不懂,不会全部吧

三断笛 发表于 2008-6-20 17:08

不是VB代码  不过很容易懂

multiple1902 发表于 2008-6-20 22:12

属于望文生义的代码。怎么会看不懂?

当然也有可能，就是你没有一点编程的基本概念。

页: [1]

编程论坛