vb编写函数fun求1到m之间的偶数之积-搜答案-搜搜做题作业网

floatfun(intm){ inti,j,count,iszishu; floatsum; &

intfun(intn){intm=1,sum=0,i,j;for(i=1;i

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

dimnum3asintegerfori=1to1000ifimod3=0thennum3=num3+iendifnext

dimiaslongdimsumaslongsum=0fori=1to100step2sum=sum+inextiprintsum

PrivateSubCommand1_Click()DimmAsInteger,nAsIntegerm=Int(InputBox("输入第一个整数"))n=Int(InputBox("输入第一个整数"

#include#includeintprime(inti){intk;for(k=2;k

#include#includedoublefun(intn){intm=3,i;doubles=0;while(m

PrivateFunctionSumA(ByValaAsInteger)AsLongDimiAsInteger,NAsIntegerFori=500To600IfiModa=0ThenN=N+iNex

上面的错了应该是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

#includeinta[50];intfun(intm){intn=0;for(inti=1;i

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

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

#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

用这肯定可以intfun(intm){for(inti=m-1;i>1;i--){intj;booleanisPrime=true;for(j=2;jif(i%j==0){isPrime=false;

functionfun(d,h){if(d

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

#includeusingnamespacestd;intmain(){intn,m,num=0,a,b,c;cin>>m>>n;while(m0){a=m%10;s=s+a;m=m/10;}m=c;

intfun(w){intsum=0;for(inti=1;i