Ⅰ 求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