VB 用相减法求x和y的最大公约数

Dimax,yAsIntegerPrivateSubCommand1_Click()x=Text1.TextIfx>0Theny=4*x+1Else:y=3*x+1EndIfText2.Text=yE

如果在代码中写问号的话会转成print,逗号为标准格式,分号为紧凑格式.

求几重根用求导没有任何帮助.如果知道根x1,用多项式g(x)不停除以(x-x1)直到不能除尽就可以了.

Int(x)=xAndInt(y)=yAndx*y代码已在XPSP3+VB6.0SP6环境下测试通过.春风学园计算机研究社的小柊很高兴为您解答.

http://www.gdhzepb.gov.cn/hbzw/dqhj/flfg/200705/t20070524_2235.htm

原式=（y-x）+（m+n）=-5+7=-2

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

整理的y=(6x-3x平方)/2x平方+y平方=x平方+（6x-3x平方)/2的平方故f(x)=1/4[9x^4-36x^3+40x^2]f'(x)=1/4[4*9x^3-3*36x^2+2*40x]

假设矩阵为一个数组a(1tom,1ton)SubMax()Dimb()AsSingle,maxxAsSingleFori=1Tomb(i)=a(i,1)Forj=1TonIfb(i)

PrivateSubCommand1_Click()m=InputBox("输入第一个自然数")n=InputBox("输入第二个自然数")Ifmr=mModnDoWhile(r0)m=nn=rr=m

#includevoidmain(){inthcf(int,int);intlcd(int,int,int);intu,v,h,l;scanf("%d,%d",&u,&v);h=hcf(u,v);pr

分段部分：Ifx>20Thens=x*x+3*x+2ElseIfx=10Thens=Sqr(3)-2ElseIfx0Thens=1/x+Abs(x)EndIf

本人没学过只是编程爱好者献丑了问题1PrivateSubCommand1_Click()Text3=""DimA1AsIntegerDimA2AsIntegerDimA3AsIntegerA1=Tex

最大公约数32最小公倍数192

先设最大公约数与最小公倍数分别是X、Y,则：X+Y=91.①12X=Y.②解①②,X=7；Y=84.根据最大公约数与最小公倍数的性质,求出这两个数有下面三组：（1）7和64（2）14和42（3）28和

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

'最大PublicFunctionmax(aAsInteger,bAsInteger,cAsInteger)AsIntegermax=IIf(a>b,IIf(a>c,a,c),IIf(b>c,b,c)

2537－2183＝3543481－2537＝944354＝2×3×59944＝2×2×2×2×59所以2183,2537,3481的最大公约数是59

x>yandy>z这个正确

Subform_click()Dimi(10)Forn=1To10i(n)=Int(Rnd*30+20)Nextmaxnum=20Forn=1To10Ifi(n)>maxnumThenmaxnum=i