用VB编程：求两个整数的最小公倍数。

没太多的时间修改,给你个例子:
方法简述：最小公倍数等于两个正整数相乘再除以两个正整数的最大公约数（即a*b/g）。说明求两个正整数最大公约数，自己查找。

vb程序代码如下：

Private Sub Command1_Click()
Dim m As Integer, n As Integer
Dim g As Integer
dim t1 as integer,t2 as integer
m = InputBox("第一个数")
n = InputBox("第二个数")
t1=m 't1,t2是临时变量
t2=n
g = IIf(m < n, m, n)
Do While g > 1
If m Mod g = 0 And n Mod g = 0 Then Exit Do
g = g - 1
Loop
Print m & "与" & n & "的最小公倍数为：" & (t1*t2)/g
End Sub

求出两个数的最小公倍数函数：
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

才5分。。算了