Ⅰ 求VB程序设计 输入两个数，求最大公约数和最小公倍数
m=InputBox("输入第一个自然数")
n=InputBox("输入第二个自然数")
nm=n*m
Ifm<nThent=m:m=n:n=t
r=mModn
DoWhile(r<>0)
m=n
n=r
r=mModn
Loop
MsgBox("最小公倍数为"&nm/n)
Ⅱ vb最小公倍数的编程
m = InputBox("输入第一个自然数")
n = InputBox("输入第二个自然数")
nm = n * m
If m < n Then t = m: m = n: n = t
r = m Mod n
Do While (r <> 0)
m = n
n = r
r = m Mod n
Loop
MsgBox ("最小公倍数为" & nm / n)
Ⅲ 用VB编程：求两个整数的最小公倍数。
求出两个数的最小公倍数函数：
Function Min公倍数(A As Long, B As Long)
Dim X As Long, Y As Long, K As Long, 最大公约数 As Long
X = IIf(A >= B, A, B) 'x存入最大值
Y = IIf(A <= B, A, B) 'y 存入最小值
Do '辗转相除法
K = X Mod Y: If K = 0 Then Exit Do
X = Y: Y = K
Loop
最大公约数 = Y
Min公倍数 = A * B / 最大公约数
End Function
Ⅳ 利用vb教程来做一个求最小公倍数最大公约数
设a,b两个数
1,先求最大公约数:
去两个数的模,如果b能除尽a,则是这两个数的最大公约数(如6和3的最大公约数是3),否则,调用GCD(a,b)=GCD(b,a mod b).例如,求58和8的最大公约数:
GCD(58,8)=GCD(8, 58 mod 8)=GCD(8,2)=2.
2,最小公倍数为:
第一个数 * 第二个数 / 两数的最大公约数
Ⅳ VB编程 要求输入两个数，并求出它们的最大公约数和最小公倍数。
Function GYS(lNum1 As Long, lNum2 As Long) As Long
Dim i As Long
For i = lNum1 To 1 Step -1
If lNum1 Mod i = 0 And lNum2 Mod i = 0 Then
GYS = i
Exit For
End If
Next
End Function
Function GBS(lNum1 As Long, lNum2 As Long) As Long
Do While i = False
s = s + 1
i = s Mod lNum1 = 0 And s Mod lNum2 = 0
Loop
GBS = s
End Function
Private Sub Command1_Click()
Dim m As Long, n As Long
m = Val(InputBox("输入m"))
n = Val(InputBox("输入n"))
Print "输入的两个数是 " & m & "和" & n
Print "它们的最大公约数是";
If m > n Then
Print GYS(m, n)
Else
Print GYS(n, m)
End If
Print "它们的最小公倍数是";
Print GBS(m, n)
End Sub
Ⅵ VB编最小公倍数最少用两种方法
一个是辗转除法；另外就只能两数相乘，再从2~最小的那个数和他相除，找出能整除的最大数数，两数相乘再除以最大整除数即得最小公倍数。
Ⅶ VB求最小公倍数
PrivateFunctionGcd(ByValm%,ByValn%)AsInteger
DimtAsInteger
Ifm=0Orn=0ThenGcd=0:ExitFunction
Ifm<nThen
t=m
m=n
n=t
EndIf
IfmModn=0Then
Gcd=m
Else
Gcd=Gcd(m,mModn)*n
EndIf
EndFunction
PrivateSubCommand1_Click()
Text3.Text=CStr(Gcd(Val(Text1.Text),Val(Text2.Text)))
EndSub
Ⅷ 用VB编程三位数的最小公倍数怎么编
Option Explicit
Private Sub Command1_Click()
Dim A As Integer, B As Integer, C As Integer
Dim i As Integer
A = Val(Text1.Text)
B = Val(Text2.Text)
If A > B Then
C = A
A = B
B = C
Else
C = A
End If
Do While True
If C Mod A = 0 And C Mod B = 0 Then
Label1.Caption = C
Exit Do
Else
C = C + 1
End If
Loop
End Sub
Ⅸ vb编程求两个正整数的最小公倍数
方法简述：最小公倍数等于两个正整数相乘再除以两个正整数的最大公约数（即a*b/g）。说明求两个正整数最大公约数
Private Sub main()
m = Val(InputBox("m"))
n = Val(InputBox("n"))
a = m: b = n
Do
r = m Mod n
If r = 0 Then Exit Do
m = n
n = r
Loop
c = a / n
d = b / n
MsgBox c * d * n
End Sub
Ⅹ VB 最大公约数和最小公倍数
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 <= B, A, B)
Do
K = X Mod Y: If K = 0 Then Exit Do
X = Y: Y = K
Loop
MaxGYS = Y
End Function
Rem 求最小公倍数
Private Function MinGBS(A As Long, B As Long)
MinGBS = A * B / MaxGYS(A, B) '使用函数套用
End Function