本经验我将与大家分享如何在VB中利用“辗转相除“的方法求两个数的”最大公约数和最小公倍数！“
工具/原料
VB6.0编程软件
方法/步骤
1、打开vb6.0建立一个窗体工程。在窗口中利用文本，标签，按钮conmmand等控件制作出如图窗体。
2、双击command控件，进入代码编写窗口。
3、现螅岔出礤在，我们就开始来键入代码。PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,uAsInteger,惺绅寨瞀vAsInteger,rAsIntegera=Val(Text1(0))b=Val(Text1(1))Ifa>bThenu=a:v=bElseu=b:v=aEndIfEndSub输入a与b并且将最大值赋值给u，最小值赋给v
4、Dor=uModvu=v:v=rLoopUntilr=0
5、将下面代码输入代码窗口中。PrivateSubCommand1_Click猾诮沓靥()DimaAsInteger,bAsInteger,uAsInteger,即枢潋雳vAsInteger,rAsIntegera=Val(Text1(0))b=Val(Text1(1))Ifa>bThenu=a:v=bElseu=b:v=aEndIfDor=uModvu=v:v=rLoopUntilr=0Text1(2).Text=Str(u)Text1(3).Text=Str((a*b)/u)EndSub
6、输入完成后单击右侧的窗口，单击”form（1）“弹出窗口界面。单击启动按钮或者F5键，调试。
7、调试结果如下。
8、现在就可以生成可执行文件.exe具体操作如下。单击文件按钮。在弹出的下拉菜单中选择”生产工程1.EXE“
9、选择路径保存你可执行文件。
