求助~~~~~
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分别应如何算出？？ 我想。只要QBase的基础学习好了~~
上面不是问题~~ 调试一下就知道了。
页:
[1]