vb作业,输入两个正整数,求它们的最大公约数.图片

main(){inta,b,num1,num2,temp;printf("请输入两个正整数:\n");scanf("%d,%d",&num1,&num2);if(num1

在VS2010上测试通过：#includeusingnamespacestd;boolis_prime(intx){\x09inttmp=x/2;\x09for(inti=2;i>n;\x09for(

PrivateSubCommand1_Click()DimmAsInteger,nAsIntegerDimcAsDoublem=Val(InputBox("m="))n=Val(InputBox("n

下面用到了递归解决,不知楼主能否看懂.不懂用百度hi和我私聊我也很乐意.递归只是求最大公约数,通过最大公约数求最小公倍数.#include"stdio.h"voidmain(){intm,n,d,e;

#include <stdio.h>int main() { int m, n; int m_cup,&nb

先辗转相除法求最大公约数,再将两数之积除以最大公约数,即得到最小公倍数#includeintgetGCD(inta,intb){intr;while((r=a%b)!=0){a=b;b=r;}retu

'最大公约数FunctiongetGcd(num1AsLong,num2AsLong)AsLongDimiAsLongFori=IIf(num1Ifnum1Modi=0Andnum2Modi=0The

privatesubcommand1_click()dimi,j,nn=val(inputbox("n="))ifIsPrime(n)thenprintn&"是素数."elsefori=n+1ton+

DimnAsInteger,iAsIntegerDimflgAsBooleann=Val(Text1.Text)n=n+1Fori=2ToSqr(n)IfnModi=0ThenExitForNexti

应该是：与C语言中unsignedint类型取值范围是0---65535有关吧.

PrivateSubCommand1_Click()DimaAsLongDimiAsLongDimsAsBooleans=Truea=InputBox("请输入一个自然数","输入")'-------

Dimn%,cs,i%n=Text1cs="1":i=2DoIfnModi=0Thenn=n/i:cs=cs&"×"&iElsei=i+1EndIfLoopWhileiOptionExplicitPr

#includevoidmain(){intn,m=1,i,j;printf("请输入一个正整数：");scanf("%d",&n);i=n,j=n;while(i>0){m*=i;

#includevoidmov(int*x,intn,intm);intmain(void){inti,m,n;inta[80];scanf("%d%d",&n,&m);for(i=0;iscanf(

programab;varA,B,i,s:integer;beginwrite('请输入两个自然数’）；readln(A,B);i:=1;s:=m*i;whilesmodBOdobegini:=i+1

DimmAsInteger,nAsIntegerPrivateSubCommand1_Click()m=Val(InputBox("输入正整数"))n=Val(InputBox("输入正整数"))If

需要2个文本框text和2个按钮command（一个计算一个清除）Dimx,a,b,kAsStringPrivateSubCommand1_Click()a=Val(Text1.Text)x=2Ifa

PrivateSubCommand1_Click()Dima,ba=Val(InputBox("请输入第一个数"))b=Val(InputBox("请输入第二个数"))IfNota=0AndNotb=

Modulemodule3SubMain()DimnumAsIntegerDimiAsIntegerConsole.Write("请输入一个正整数：")num=Integer.Parse(Consol

PrivateSubCommand1_Click()DimmAsLong,nAsLong,rAsLong,xAsLong,yAsLongm=Val(InputBox("M=")):x=mn=Val(I