如何使用vb求两个数的最大公约数和最小公倍数

如何使用vb求两个数的最大公约数和最小公倍数

本经验我将与大家分享如何在VB中利用“辗转相除“的方法求两个数的”最大公约数和最小公倍数！“

打开vb6.0建立一个窗体工程。在窗口中利用文本，标签，按钮conmmand等控件制作出如图窗体。

双击command控件，进入代码编写窗口。

现在，我们就开始来键入代码。

Private Sub Command1_Click()

Dim a As Integer, b As Integer, u As Integer, v As Integer, r As Integer

a = Val(Text1(0))

b = Val(Text1(1))

If a > b Then

u = a: v = b

Else

u = b: v = a

End If

End Sub

输入a与b并且将最大值赋值给u，最小值赋给v

Do

r = u Mod v

u = v: v = r

Loop Until r = 0

将下面代码输入代码窗口中。

Private Sub Command1_Click()

Dim a As Integer, b As Integer, u As Integer, v As Integer, r As Integer

a = Val(Text1(0))

b = Val(Text1(1))

If a > b Then

u = a: v = b

Else

u = b: v = a

End If

Do

r = u Mod v

u = v: v = r

Loop Until r = 0

Text1(2).Text = Str(u)

Text1(3).Text = Str((a * b) / u)

End Sub

输入完成后单击右侧的窗口，单击”form（1）“弹出窗口界面。

单击启动按钮或者F5键，调试。

调试结果如下。

现在就可以生成可执行文件.exe

具体操作如下。单击文件按钮。在弹出的下拉菜单中选择”生产工程1.EXE“

选择路径保存你可执行文件。