ب م م

[majid_shabgard]

سلام اگه میشه سورس بدست آوردن ب . م . م در vb 6 رو برام واسه دانلود بزارید
مرسی ممنون

 

[30min]

آقا مجید اگر در جای مناسب تاپیک رو ایجاد کرده بودی شاید تا الان به جوابت میرسیدی !

 

[the_king]

لطفا قبل از ایجاد تاپیک، ببینید توی کدوم انجمن سوال تان را مطرح می کنید، انجمن "مسائل و مشکلات عمومی انجمن"
برای مطرج کردن مشکلات عمومی خود فروم است، نه مشکلات برنامه نویسی شما.

تاپیک منتقل گردید.

محاسبه ب.م.م (بزرگترین مقسوم علیه مشترک) در ویژوال بیسیک 6 :

Private Sub Form_Load()
    Dim m As Long, n As Long, i
    m = Val(InputBox("Please enter first number :"))
    n = Val(InputBox("Please enter second number :"))
    For i = m To 1 Step -1
        If (n Mod i = 0) And (m Mod i = 0) Then
            MsgBox "Greatest Common Divisor = " & i
            Exit For
        End If
    Next
    End
End Sub

Private Sub Form_Load()
    Dim m As Long, n As Long, i
    m = Val(InputBox("Please enter first number :"))
    n = Val(InputBox("Please enter second number :"))
    i = m
    Do While i >= 1
        If (n Mod i = 0) And (m Mod i = 0) Then
            MsgBox "Greatest Common Divisor = " & i
            Exit Do
        End If
        i = i - 1
    Loop
    End
End Sub

Private Sub Form_Load()
    Dim m As Long, n As Long, i
    m = Val(InputBox("Please enter first number :"))
    n = Val(InputBox("Please enter second number :"))
    i = m
    While i >= 1
        If (n Mod i = 0) And (m Mod i = 0) Then
            MsgBox "Greatest Common Divisor = " & i
            End
        End If
        i = i - 1
    Wend
    End
End Sub