پروژه ای طراحی کنید که دو عدد را دریافت کرده و بزرگترین مقسوم علیه انها را نشان دهد

[Sajadmohebbi]

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

 

[the_king]

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

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