求助~~~~~

wangkewei

VB代码如下：
-------------------------------------------------------------


MC = 45793603571386
MC = ALLTRIM(MC)
LL = LEN(MC)
I = 1
SQDW = ''
FOR I = 1 TO LL STEP 2
MM = CHR(ASC(SUBSTR(MC,I,2)) + 17)
SQDW = SQDW + MM
ENDFOR
GO 30
SZSZ = 参数名
SGF = RIGHT(ALLTRIM(SYS(2020)),5)
ZLP = LEFT(ALLTRIM(SYS(2020)),5)
IF ASC(SYS(0)) <= 127
SYL =  ;
      ALLTRIM(STR(ASC(LEFT(SYS(0),1)) + 147,3)) +  ;
ALLTRIM(STR(ASC(SUBSTR(SYS(0),2,1)) - 32,3))
ELSE
SYL = STR(ASC(SYS(0)),5)
ENDIF


能否告诉我SQDW&SYL分别应如何算出？？

pentacle

我想。只要QBase的基础学习好了~~
上面不是问题~~

surge

调试一下就知道了。