在VB编写函数fun,函数的功能是:计算两个正整数的最大公约数,用do loop

假设文本框为TEXT1,标签为LABEL1,函数代码如下：publicsubtestnum()dimxaslongx=cint(text1.text)ifxmod2=1thenlabel1.capti

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

swap函数就是方法#include#include#includevoidswap(inta[][5],intn){inti,j,t;for(i=0;i

#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

#includeintfun(intn){\x09ints=1,i;\x09for(i=1;i

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

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

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(

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

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

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

以二维数组a[M][N]为例,只写了子函数：intfun(int*a){intsum=0,i,j;for(i=0;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