求出[1234,5678]内至少有1位数字是7的所有整数之和 (程序设计 vfp)

题目

求出[1234,5678]内至少有1位数字是7的所有整数之和 (程序设计 vfp)

答案

clear
s=0
for i=1234 to 5678
k=alltrim(str(i))
if "7"$k
s=s+i
endif
endfor
"1234-5678内至少有1位数字是7的所有整数之和是：",s