VB 最大公约数和最小公倍数

来源：学生作业帮编辑：神马作文网作业帮分类：综合作业时间：2024/11/23 19:36:43

VB 最大公约数和最小公倍数
．编写2个函数,分别求两个正整数的最大公约数和最小公倍数,用户任意输入两个数,采用函数嵌套调用,该函数将它们在窗体显示.
注意：要采用函数嵌套调用

Private Sub Form_Click()
Dim A As Long, B As Long
A = Val(InputBox("请输入第一个数："))
B = Val(InputBox("请输入第二个数："))
Print "两个数为："; A; B
Print "最大公约数为："; MaxGYS(A, B)
Print "最小公倍数为："; MinGBS(A, B)
End Sub
Rem 求最大公约数
Private Function MaxGYS(A As Long, B As Long)
Dim X As Long, Y As Long, K As Long
X = IIf(A >= B, A, B)
Y = IIf(A

VB 最大公约数和最小公倍数如何用VB求两个数的最大公约数和最小公倍数? 用辗转相除法求两数的最小公倍数和最大公约数 VB vb题：求两个整数的最大公约数和最小公倍数 VB求两个数的最大公约数和最小公倍数最大公约数和最小公倍数最小公倍数和最大公约数求最大公约数和最小公倍数 C 最大公约数和最小公倍数最大公约数和最小公倍数关系求下组最大公约数和最小公倍数什么是最大公约数和最小公倍数