用VFP 计算10000以内所有十位数为六,且该数能被七整除的数之和.求救高手

set talk off
clear
s=0
for i=1 to 100000
if int(i/10)%10=6 and i%7=0
s=s+i
endif
endfor
?s
set talk on

楼上,题意要求有"十位数",所以,可以直接从10开始,没有必要从1开始.从程序的优越性上考虑!
RIGHT(STR(n),2)????是指右边两位吧??右边两位怎么能="6"呢???
还有别人要10000以内,你弄10万!
建议改为:
CLEAR
s=0
FOR n= 10 TO 10000
IF LEFT(RIGHT(STR(n),2),1)="6" AND n%7=0
?? n
s=s+n
ENDIF
NEXT
?s

CLEAR
s=0
FOR n= 1 TO 100000
IF RIGHT(STR(n),2)="6" AND n/7=INT(n/7)
?? n
s=s+n
ENDIF
NEXT
?s