在VF中编写程序 求[1,500]既能被6整除又能被7整除的数之和.要求写出过程,

clear
s=0
for i=1 to 500
if i%6=0 and i%7=0
s=s+i
endif
endfor
"1-500既能被6整除又能被7整除的数之和是：",s