VB中编写函数fun,函数功能是求1到m之间的偶数之积

intfun(char*s){char*p1,*p2;p1=s;p2=s;while(*p2++);p2--;while(p1p2)return1;elsereturn0;}

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

doublefun(doublex)｛{doublei,t=1.0,m=1.0,s=1;for(i=1;fabs(m/t)>=0.000001;i++){s=s+m/t;m*=(0.5+1-i)*x;

#include#includeintfun(intx){intr=1,d,c;while(1){d=x%10;r=r*d;x=(x-d)/10;if(x==0)break;}returnr;}mai

#include#defineN10voidmain(){inta[N];inti,j=0;printf("输入原数组：\n");for(i=0;i

voidfun(intp,intn,inta[]){inti,t=0,j,x=0;for(i=p+1;t

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

总觉得楼上的回答有的好像有问题.fun(int*a,intn,int*odd,int*even){inti;*odd=0;*even=0;for(i=0;i

fun(2*a,b)->fun((a+2),fun(2*a,b))

#include#defineN10floatfun(intnum[N[N]){inti,j,k=0,sum=0;floataverage;//下面求数组周边元素的平均值for(i=0;i再问：顶角的

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

intfun(intlim,intaa[100]){inti,k,j=0,m=0;for(k=2;k

Private Sub Command1_Click()    Dim x As Single, y

intfun(intscore[],intbelow[]){inti,k=0,sum=0;floataverage;for(i=0;i再问：.m个人的成绩存放在score数组中，编写函数intfun(

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

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

1.intf1=0,f2=1,f3;2.returnf3;继续写：f3=f1+f2;f2=f3;f1=f2;

#include#includedoublefun(intn)//计算1!+2!+3!+.+n!,并赋值给fun{inti;doubles=0,t=1;for(i=1;i

#include#includefloatfun(inta,intb){floatc;c=sqrt(a)+sqrt(b);returnc;}intmain(){inta=12,b=20;floatc;

这个题目应当有原来的程序,让人填空.如果自己写程序,很简单：#include#includevoidfun(int*x,int*y){intz;z=*x;*x=*y;*y=z;}main(){inta