vb编写fun,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

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

解法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

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

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

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

Functions(ByValaAsInteger,ByValbAsInteger)AsIntegerDimiAsIntegerFori=1To1000IfiModa=0AndiModb=0Thens

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

#include"stdio.h"intgetsum(inta,intb)//要声明a,b为int型{inti;intsum=0;for(a%2==0?i=a:i=a+1;sum=sum+i;i+=2

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

/*Note:YourchoiceisCIDE*/#include"stdio.h"voidmain(){intfun(inta[50][50],intm,intn);intm,n,i,j,a[50]

#includeintfun(intM,inta[]){intn=0;inti;for(i=1;i{if(i%7==0||i%11==0){a[n]=i;n++;}}returnn;}intmain(