请问最大公约数求完之后如何编写求最小公倍数的程序？请帮我完成下面程序，最终输出结果为最小公倍数。

Private Sub Command1_Click()
Dim m As Integer, n As Integer, s As Integer
m = Val(InputBox("请输入一个正整数M!!"))
n = Val(InputBox("请输入一个正整数N!!"))
Print m; "和"; n; "的最小公倍数为:";

If m < n Then
s = m: m = n: n = s
End If
Do
s = m Mod n
m = n
n = s
Loop While s <> 0
s = m
End Sub

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

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

START: MOV R0,#0 MOV DPTR,#TABLE LOOP: ACALL DISPLAY INC R0 CJNE R0,#100,LOOP JMP START DISPLAY: MOV A,R0 MOV B,#10 DIV AB MOV R1,A MOV R2,B MOV R3,#50 LOOP1: MOV A,R2 ACALL CHANG CLR P2.0 ACALL DLY10mS SETB P2.0 MOV A,R1 ACALL CHANG CLR P2.1 ACALL DLY10mS SETB P2.1 DJNZ R3,LOOP1 RET CHANG:MOVC A,@A+DPTR MOV P0,A RET DLY10mS: MOV R6,#20 D1: MOV R7,#248 DJNZ R7,$ DJNZ R6,D1 RET TABLE: DB 0C0H,0F9H,0A4H,0B0H DB 99H,92H,82H,0F8H DB 80H,90H,88H,83H DB 0C6H,0A1H,86H,8EH END

两个数的积除以最大公约数就得到最小公倍数了。