پروژه،ای طراحی کنید دو عدد طبیعی دریافت کند و کوچکترین مضرب مشترک انها را نشان دهد

[Sajadmohebbi]

در ویژوال بیسیک 6 جوابو میخوام

 

[the_king]

در ویژوال بیسیک 6 جوابو میخوام

    Dim m As Integer, n As Integer, mn As Integer
    n = Val(InputBox("Please enter the first number:"))
    m = Val(InputBox("Please enter the second number:"))
    mn = Abs(n * m)
    Do While n > 0 And m > 0
        If n > m Then n = n Mod m Else m = m Mod n
    Loop
    MsgBox mn \ (m + n)