clear
dime x46 (46),y46(46),s46(46)
for i=1 to 46
x46(i)=0
y46(i)=0
s46(i)=0
endfor
accept'请输入加数：'to x
accept'请输入被加数：'to y
for i=1 to int(len(x)/5)+1
x46(i)=val(right(x,5))
x=subst(x,1,len(x)-5)

endfor
for i=1 to int(len(y)/5)+1
y46(i)=val(right(y,5))
y=subst(y,1,len(y)-5)

endfor
for i=1to 46
s46(i)=x46(i)+y46(i)                                          
if s46(i)>=460000
s46(i+1)=val(subst(allt(str(s46(i))),1,len(allt(str(s46(i))))-5))
s46(i+1)=val(right(allt(str(s46(i))),1,5))
endif
endfor
wait
y=''
for i=46 to 1 step-1
if s46(i)>0
y=y+str(s46(i),5)
endif
endfor
? y

加数：12345678901234567890
被加数：12345678901234567890
结果：24690****24690****

VFP中好像有一个规定，数值型数据，正常只能显示16位整数。
可以将最后的结果转换为字符型，就能正常显示了。

超出有效位数

问题出在上面这段代码内，为了便于测试，将上面代码改为如何代码
for i=46 to 1 step-1
    if s46(i)>0
       y=y+str(s46(i),5)
       ?Y,S(46)
    endif
endfor
显示结果如下：

测试开始：
?STR(24690.00,5)
结果：24690
?STR(135780.00,5)
结果：***** [该数据整数位为6位，现在只取5位，所以出现左边的错误]
后面的星号原因同上。
因此：最后的结果为：结果：24690****24690****

自始至終用字符串運算，不要使用數值類型。

CLEAR
ACCEPT'请输入加数：'TO x
ACCEPT'请输入被加数：'TO Y
nNum=MAX(LEN(ALLTRIM(x)),LEN(ALLTRIM(y)))
DIMENSION cSum(nNum)
cX=PADL(ALLTRIM(x),nNum,' ')
cY=PADL(ALLTRIM(y),nNum,' ')
FOR i=1 TO nNum
  cSum(i)=VAL(SUBSTR(cX,i,1))+VAL(SUBSTR(cY,i,1))
ENDFOR
cRes=STR(MOD(cSum(nNum),10),1)
FOR i=nNum-1 TO 1 STEP -1
  cRes=STR(MOD(cSum(i)+INT(cSum(i+1)/10),10),1)+cRes
ENDFOR
cRes=IIF(cSum(1)+INT(cSum(2)/10)>9,'1','')+cRes
?cRes