vb编写1到m之间的偶数之积-搜答案-搜搜考试网

求奇偶数:Fori=1to100Ifi/2i\2Thenmsg=msg&i&"是奇数"Elsemsg=msg&i&"是偶数"NextiPrintmsg能被3和5同时整除:Fori=1to100Ifi/

PrivateSubfun()ifimod2=0thenforx=itoastep2s=s*xnextxelseforx=(i+1)toastep2thens=s*xnextxendif试试看行不行吧

dimnum3asintegerfori=1to1000ifimod3=0thennum3=num3+iendifnext

dimiaslongdimsumaslongsum=0fori=1to100step2sum=sum+inextiprintsum

functiony=myfunction(m,n)%m

intjishuhe=0;intoushuhe=0;for(inti=1;i

语句自己找给思路.第一种：暴力运算1.申请2个变量jsum,osum分别放奇数和、偶数和.赋初值0.2.做个循环从1到100,变量用i2.1判断i是否为奇数,是的话jsum=jsum+i,否则osum

PrivateSubCommand1_Click()Dim奇数和AsLongDim偶数和AsLongDim你输入的数AsIntegerDimiAsLong你输入的数=InputBox("请输入一个整数

解法1:#includeintF1(){return50*(1+99)/2;}intF2(){return50*(2+100)/2;}voidmain(){printf("Oddnumbersum=%

PrivateSubCommand1_Click()Fori=0ToList1.ListCount-1j=j+1Ifj=11ThenExitForIfList1.List(i)NextEndSubPr

上面的错了应该是intfun(){inti,sum=1;for(i=1;i

#include#includevoidswap(intc[],intlen){inti=0;inttmp;for(;i{tmp=c[i];c[i]=c[len];c[len]=tmp;}}intmu

第1个是i

你交作业啊,这么简单的问题,还好意思来这问.自己稍微动动脑子好不好,懒成这样,有没有点血性?!

inti=2;do{if(i%2==0)/*各种不同的语言输出i,*/}while(i

在此创建一个文本框,按钮,标签都是原先默认名不要改PrivateFunctiona(cAsInteger)Ifc>=0AndcMod2=0ThenLabel1.Caption=Text1.Text&"

Functionsum(n)AsDoublesum=0Fori=1TonIfiMod2=0Thensum=sum+i*iNextEndFunction

要填空吗?但你的结果好像是错的,1+2+.+100=5050,但你的结果两个加起来只有5000啊(1)i

clears=0fori=0to5000step2ifi%5=0s=s+iendififs>500exitendifendfo

（一）#includeintmain(){inti=1;printf("1-100之间的偶数有：\n");for(;i