作业帮 > 数学 > 作业

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

来源:学生作业帮 编辑:拍题作业网作业帮 分类:数学作业 时间:2024/03/29 16:27:50
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 Su