vb编写函数过程Gdc求两个数的最大公约数,多次调用计算a,b,c,d四个数

第一题：两个TextBox,一个Command.OptionExplicitPrivateFunctionMaxModNum_(ByValaAsLong,ByValbAsLong)_AsLongDim

FunctionMax(xAsInteger,yAsInteger,zAsInteger)AsIntegerMax=IIf(x>=y,x,y)Max=IIf(Max>=z,Max,z)EndFunct

intmin(intx,inty){if(x>y)returny;returnx;}再问：能把主函数也写一下么再答：#includevoidmain(){intx,y;printf("请输入两个整数:

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

哈慢慢想吧再问：为什么用function过程尼？为什么不用sub过程尼？求解再答：function是有返回值的你也可以用SUB但是最后的结果你得用一个外部变量来保存

#includeintadd(inta,intb){returna+b;}main(){inta,b;scanf("%d%d",&a,&b);printf("a+b=%s",add(a,b));}

PrivateFunctionSUM(Fir_LAsDouble,Fir_SAsDouble,Scend_LAsDouble,Scend_SAsDouble)AsDoubleSUM=Fir_L*Fir

DimmAsIntegerDimnAsIntegerDimrAsIntegerDimaAsInteger,bAsIntegerm=InputBox("请输入其中的一个正整数")n=InputBox("

publicintmax(inta,intb){returna>b?a:b;}publicdoublemax(doublea,doubleb,doublec){doublet=a>b?a:b;retu

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

调试过了,如果需要小数,把int换成float就行了#include"stdio.h"intSub(inta,intb){intc=a-b;returnc;}intmain(){inta,b;prin

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

doublefun(doublea,doubleb,intop){switch(op){case1:returna+b;break;case2:returna-b;break;case3:return

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

PrivateSubCommand1_Click()DimIAsIntegerDimN(15)AsInteger,MAsIntegerRandomizeForI=1To15N(I)=Int(Rnd*1

DimxAsLongPrivateSubCommand1_Click()DimaAsLong,bAsLonga=Val(InputBox("A="))b=Val(InputBox("B="))Call

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

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

#includeintmaxy(int&a,int&b){intn,i,j;for(i=1;i>x>>y;s=maxy(x,y);cout

很简单的~不过你问错地方了