VF求200以内奇数的个数.

store0tosume,sumofori=100to1000ifi%2=0sume=sume+i&&偶数累加elsesumo=sumo+i&&奇数累加endifnext"100~1000偶数累加和=

store0tosume,sumofori=1to100ifi%2=0sume=sume+i&&偶数累加elsesumo=sumo+i&&奇数累加endifnext"1~100偶数累加和=",sume

sum=0do10i=1,1000if(mod(i,3).ne.0)thensum=sum+iendif10continueend

1、计算50—100之间数的和.clears=0fori=50to100s=s+iendfor?"50—100之间数的和：",s2、计算200以内自然数奇数与偶数的平方和之差.cleara=0b=0f

clears=0m=0fori=200to300x=0forj=2toi-1ifi/j=int(i/j)x=1endifendforifx=0s=s+im=m+1endifendfor"它们的和：",

thisform.combo1.clearfori=1to100ifi%20loopendifthisform.combo1.additem(str(i))endfor其中combo1是你的列表框的名

一百以内的奇数：1,3,5,7,9,11,13,15,17,19,21,23,25,27,29,31,33,35,37,39,41,43,45,47,49,51,53,55,57,59,61,63,6

CLEARSETTALKOFFs=0input"输入一个自然数:"ton"5的倍数有:"FORi=1TOnIFi%5=0s=s+1ENDIFNEXT"5的倍数有",s,"个"SETtalkon

s=0fori=1to1000step2s=s+i^2endfo

*利用VFP编写程序计算100~500以内的所有奇数的个数及所有奇数之和.CLEARSTORE0TOjsh,jslFORi=100TO500&&如果不包含100,则将100改为101\x05IFMOD

clears=0fori=1to200step2s=s+iendfor"200以内所有奇数的和:",s

s=0FORn=1TO1000STEP2s=s+nendf或者说**或者s=0FORn=1TO1000IFINT(n/2)n/2s=s+nENDIFendf很多方法都可以嘛

clears=0fori=1to100ifi%3=0s=s+iendifendfor"100以内所有能被3整除的整数的和是：",s

13579111315171921232527293133353739414345474951535557596163656769717375777981838587899193959799

1357911131517192123252729313335373941434547495153555759616365676971

13579111315171921..199再问：用0125里用3个写奇数

clears=0fori=1to100ifi%30ifi%2=1s=s+iendifendifendfor"1至100之间非3的倍数的所有奇数之和为：",s

cleardimensiona(3)cstr=""cstrmax=""cstrmin=""cstraverage=""fori=1to3accept"请输入第"+alltrim(str(i))+"个数

100以内所有的奇数有50个,它们的和是25×100=2500,则其平均数是50

clears=0fori=1to100step2s=s+iendfor"100以内奇数之和是：",s