local lcVol as string, lnSerial as interger
         lnSerial=7328823499
         lcVol=""
         newserial=bitxor(lnserial,12994069)
         newstr=alltrim(str(newserial))
         for js_k=1 to len(newstr) step 2
            lcVol=lcVol+chr(val(substr(newstr,js_k,2)))
         ENDFOR

这是程序的一小段，我昨天在两个机器上试了试，本来一样的代码结果不一样，后来逐条测试，原来是这个地方出问题，确切说是lcVol=lcVol+chr(val(substr(newstr,js_k,2)))这个语句之后，lcVol的值相差很远,老师们有遇到的吗？能帮我看一下吗
 

[ 本帖最后由 scilent 于 2013-8-15 12:09 编辑 ]

大家看到了运行一下，把结果贴出来，看看一样不一样。是不是我在其他地方弄错了

str()字符串超宽了

不知道你想测试什么，这是玩语言的代码。

两台机器的代码页环境是一样的么？，用CPCURRENT()查一下。

我看了一下你的代码，感觉问题可能不是出在你说的那句，你说的那句是表象。我估计问题出在第二行：lnSerial=7328823499。为什么呢？你把lnSerial设置成了整型，而整型的上限值是2的32次方，也就是4,294,967,296。你在第二行对变量lnSerial赋的值显然已经超过整型的上限值，虽然运行时不会出错，但不同的机器硬件对溢出值的处理方式可能不同，于是造成了你看到的结果。

出错在第5行，for前面那一行！

一看用了位异或运算，这代码就没什么意思。位运算之后，那个序列号是负数，加上负号，是11位字符，而str()函数默认是10位字符，到后面的newstr字符串只有4个字符，但他又在循环中每次提取2个字符作chr()字符——显然当汉字用——最后都不知道想干什么。整个运算绕来绕去，把简单的事情搞复杂。

我觉得，非常有道理，以前没有注意这个问题，谢谢指点

我又长见识了，看来还得修炼内功才行，谢谢指点