EBOB ve EKOK Hesaplama VB.Net

Public Class Form1

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
Dim a As Integer = Convert.ToInt32(textBox1.Text)
'EBOB'u bulmaya yarıyan kodlar
Dim b As Integer = Convert.ToInt32(textBox2.Text)
Dim enbüyük As Integer, kat As Integer = 1
enbüyük = If(a > b, a, b)
For i As Integer = enbüyük To a * b
If i Mod a = 0 And i Mod b = 0 Then
kat = i
Exit For
End If
Next
textBox3.Text = Convert.ToString(kat)
End Sub

Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click
Dim a As Integer = Convert.ToInt32(textBox1.Text)
Dim b As Integer = Convert.ToInt32(textBox2.Text)
'EKOK'u bulmaya yarıyan kodlar
Dim enküçük As Integer, bölen As Integer = 1
If a > b Then
enküçük = b
Else
enküçük = a
End If
For i As Integer = 1 To enküçük - 1
If a Mod i = 0 And b Mod i = 0 Then
bölen = i
End If
Next
textBox4.Text = Convert.ToString(bölen)
End Sub
End Class

Projeyi İNDİR

Rica: Sitemizin Google'da Ön Sıralarda Çıkması İçin Lütfen Alttaki Google+ Butonuna Tıklayınız , Sayfamızı Facebookta Beğeniniz veya yazıları Twitter,Facebookta paylaşınız.