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

正整数使用输入函数输入，其中输入数据的按钮为command1,求最小公倍数的按钮为command2,结果显示在label1上。程序中不要求作任何出错处理，假定输入正常。

---

没太多的时间修改,给你个例子:
方法简述：最侍棚小公倍数等于两个正整数相乘再除以两个正整数液扒的最大公约数（即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分。。算了

---