VB题目求解 题目:给出两个正整数,求他们的最大公约数和最小公倍数. 这个怎么做的

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/28 06:37:03
VB题目求解 题目:给出两个正整数,求他们的最大公约数和最小公倍数. 这个怎么做的
x) szhmlz|~Ϭg>mdǒ';V=[-Ϧnz{ړkjy6O[<ߵ (tRHdC?PiC/PDO }OvvI9@1%p JrIph_\gJSx

VB题目求解 题目:给出两个正整数,求他们的最大公约数和最小公倍数. 这个怎么做的
VB题目求解 题目:给出两个正整数,求他们的最大公约数和最小公倍数. 这个怎么做的

VB题目求解 题目:给出两个正整数,求他们的最大公约数和最小公倍数. 这个怎么做的
Private Sub Command1_Click()
Dim k%,a%,b%,c%
a = Val(Text1)
b = Val(Text2)
If (a Mod 2 = 0) And (b Mod 2 = 0) Then
a = a \ 2
b = b \ 2
k = 2
Else
k = 1
End If
If a < b Then
t = a
a = b
b = t
End If
Do
c = a - b
If c > b Then
t = a
a = b
b = t
End If
a = b
b = c
Loop Until a = b
b = b * k
If b = 1 Then
Label1 = "这两个数"
Label1 = b
End Sub