用VB求两个最小正整数的最小公倍数的程序.

'很久没用vb了，如果有小错误，你提出来吧。
Private Sub Form_Load()
Command1.Caption = "运行"
End Sub

Private Sub Command1_Click()
Dim max As Integer, min As Integer, j As Integer
Dim a As Integer, b As Integer
a=val(inputbox("输入整数："))
b=val(inputbox("输入整数："))
max=iif(a>=b,a,b)
min=iif(a>=b,b,a)
i = 1
do while 1
if (max * i) mod min =0 then
MsgBox "最小公倍数:" & (max * i)
exit do
end if
i=i+1
loop
End Sub