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

题目

用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