ايران ويج

نسخه‌ی کامل: ک . م .م و ب. م . م
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
سلام کسی می تونه ک . م .م رو بنویسه ؟ خیلی فوری نیاز دارمش
من خودم ب . م .م رو نوشتم هر کی می تونه ک . م .م رو بنویسه
ک . م . م = کوچکترین مقسوم علیه مشترک
ب . م .م = بزرگترین مقسوم علیه مشترک
این ب . م . م است
کد:
a = InputBox(" Enter First number ")
    b = InputBox(" Enter secound number ")
    Do While b <> 0
       R = a Mod b
       a = b
       b = R
    Loop
    Print "B.M.M is ==> " & a
سلام
برای بدست آوردن ک م م اول a رو ضربدر b کن بعد حاصل رو تقسیم بر ب م م
کد:
Kmm = (a*b) / bmm
موفق باشی