در ویژوال بیسیک 6 جواب میخوام .مرسی
the_king مدیرکل انجمن Mar 31, 2019 #2 Sajadmohebbi گفت: در ویژوال بیسیک 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
Sajadmohebbi گفت: در ویژوال بیسیک 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