VF求200以内奇数的个数.
来源:学生作业帮助网 编辑:作业帮 时间:2024/09/26 02:13:58
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