vb 题目:编写函数fun,函数的功能是:求1到m 之间的偶数之积.

第一题：PrivateSubCommand1_Click()Dima!,b!,c!,d!,x!a=Text1.Textb=Text2.Textc=Text3.Textd=Text4.Textx=Tex

在窗体上添加一个按钮,加入如下代码“PrivateSubCommand1_Click()DimN'因为你说的是任意正整数,所以没有给变量指定变量类型DimIAsIntegerDimLAsInteger

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

PrivateFunctionjo(ByValnAsInteger)n=InputBox("请输入一个数字")IfnMod20ThenMsgBoxn&"是奇数"ElseMsgBoxn&"是偶数"End

#includeusingnamespacestd;doublefun(intn,doubleh){if(n==1)returnh;elseif(n再问：usingnamespacestd;这句

#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

main{inti=2,n,s=0;printf("请输入n：")；scanf（“d%”,&n）；for（i

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

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

DimnAsIntegerPrivateSubForm_Click()Ifn/2=0ThenPrint"n是偶数"ElsePrint"n是奇数"EndIfEndSubPrivateSubForm_Lo

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

#include"stdio.h"#include"stdlib.h"voidfun(int*p,intn,intm){inttemp;int*q=(int*)malloc(n*sizeof(int)

Private Sub Command1_Click()    Dim x As Single, y

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

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

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

#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;

functionfun(d,h){if(d

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