UC知道VB中求最大公约数最小公倍数
来源：百度知道 编辑：UC知道 时间：2024/06/01 22:39:59
用辗转相减法求求最大公约数最小公倍数，下面的程序错在哪里？正确的编写方法是？
Private Sub Form_click()
Dim m%, n%, r%, m1%, n1%, dys%, xbs%, k%
m = InputBox("请输入第一个自然数")
n = InputBox("请输入第二个自然数")
m1 = m: n1 = n
If n1 > m1 Then
k = n1: n1 = m1: m1 = k
End If
Do Until r = 0
m1 = n1
n1 = r
r = m1 - n1
Loop
dys = n1
xbs = m * n / dys
Print "最大公约数是："; dys
Print "最小公倍数是："; xbs
End Sub
Private Sub Form_click()
Dim m%, n%, r%, m1%, n1%, dys%, xbs%, k%
m = InputBox("请输入第一个自然数")
n = InputBox("请输入第二个自然数")
m1 = m: n1 = n
If n1 > m1 Then
k = n1: n1 = m1: m1 = k
End If
Do Until r = 0
m1 = n1
n1 = r
r = m1 - n1
Loop
dys = n1
xbs = m * n / dys
Print "最大公约数是："; dys
Print "最小公倍数是："; xbs
End Sub
r没有初值，程序开始后
Do Until r = 0
m1 = n1
n1 = r
r = m1 - n1
Loop
这一段没什么用。。。直接就r=0了
unction zdgys(ByVal m As Long, ByVal n As Long) As Long '最大公约数
Dim min As Long, i As Long
min = IIf(m >= n, n, m)
zdgys = 1
For i = 1 To min
If m Mod i = 0 And n Mod i = 0 Then zdgys = i
Next
End Function
Function zxgbs(ByVal m As Long, ByVal n As Long) As Long '最小公倍数
Dim max As Long, i As Long
max = IIf(m >= n, m, n)
zxgbs = max
For i = m * n To max Step -1
If i Mod m = 0 And i Mod n = 0 Then zxgbs = i
Next
End Function
这个或许好一些