vb题：求两个整数的最大公约数和最小公倍数

来源：学生作业帮编辑：拍题作业网作业帮分类：数学作业时间：2024/04/29 03:08:28

Private Sub Command1_Click()
Dim S As Long
S = YueOrBei(24,32)
MsgBox "24 和 32 的最大公约数是：" & S,vbInformation
S = YueOrBei(24,32,True)
MsgBox "24 和 32 的最小公倍数是：" & S,vbInformation
End Sub
Private Function YueOrBei(J1 As Long,J2 As Long,Optional IsBei As Boolean) As Long
'IsBei=True 返回公倍数（最小）,否则返回公约数（最大）
Dim S As Long,S1 As Long,S2 As Long
S1 = J1:S2 = J2
Do
S = S1 Mod S2
If S = 0 Then YueOrBei = S2:Exit Do
S1 = S2:S2 = S
Loop
If IsBei Then YueOrBei = J1 * J2 / YueOrBei
End Function
另一种方法
Private Sub Form_Click()
m1 = InputBox("输入m")
n1 = InputBox("输入n")
If m1 > n1 Then '为了求最小公倍数,增加m,n变量
m = m1:n = n1
Else
m = n1:n = m1
End If 'm>n
r = m Mod n
Do While r 0
m = n
n = r
r = m Mod n
Loop
Print m1; ","; n1; "的最大约数为"; n
Print "最小公倍数=",m1 * n1 / n
End Su

vb题：求两个整数的最大公约数和最小公倍数求VB程序,利用Sub过程,计算两个整数的最大公约数和最小公倍数. 如何用VB求两个数的最大公约数和最小公倍数? VB求两个数的最大公约数和最小公倍数用VB设计：求两个整数的最大公约数、最小公倍数.（两个整数从键盘输入）. 编写函数,分别求两个整数的最大公约数和最小公倍数. 求四个整数的最大公约数和最小公倍数的VB程序语句请用VB程序编程求两个正整数m和n的最大公约数和最小公倍数. 编写一个vb程序,输入两个正整数,求他们的最大公约数和最小公倍数,谢谢! VB 最大公约数和最小公倍数用C语言定义两个函数,分别求两个整数的最大公约数和最小公倍数. C++编写两个程序,求两个整数的最大公约数和最小公倍数.