visual foxpro6.0中程序设计中有这样一道题,编写程序,计算并显示1-100以内的奇数平方和、偶数立方和.

问题描述:

visual foxpro6.0中程序设计中有这样一道题,编写程序,计算并显示1-100以内的奇数平方和、偶数立方和.

clear
s1=0
s2=0
for i=1 to 100
if i%2=0
s1=s1+i^3
else
s2=s2+i^2
endif
endfor
"1-100以内的奇数平方和:",s2
"1-100以内的偶数立方和:",s1