在VB编写函数fun,函数的功能是:计算两个正整数的最大公约数,用do loop
来源:学生作业帮助网 编辑:作业帮 时间:2024/08/18 14:06:28
![在VB编写函数fun,函数的功能是:计算两个正整数的最大公约数,用do loop](/uploads/image/f/3194242-34-2.jpg?t=%E5%9C%A8VB%E7%BC%96%E5%86%99%E5%87%BD%E6%95%B0fun%2C%E5%87%BD%E6%95%B0%E7%9A%84%E5%8A%9F%E8%83%BD%E6%98%AF%3A%E8%AE%A1%E7%AE%97%E4%B8%A4%E4%B8%AA%E6%AD%A3%E6%95%B4%E6%95%B0%E7%9A%84%E6%9C%80%E5%A4%A7%E5%85%AC%E7%BA%A6%E6%95%B0%2C%E7%94%A8do+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