Ekran Görüntüsü
Kodlar
Public Class Form1
Dim sayi, sayac, enbuyuk As Long
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
sayi = TextBox1.Text
ListBox1.Items.Clear()
sayac = 0
enbuyuk = 0
Do
ListBox1.Items.Add(sayi)
If sayi Mod 2 = 0 Then 'Sayı çift ise.
sayi = sayi / 2
Else
'Sayı tek ise.
sayi = sayi * 3 + 1
End If
sayac = sayac + 1
If sayi > enbuyuk Then enbuyuk = sayi 'sayi enbuyuk’ten daha büyük
ise yeni enbuyuk değeri sayi olsun.
Loop Until sayi = 1
ListBox1.Items.Add(1)
TextBox2.Text = sayac + 1
TextBox3.Text = enbuyuk
End Sub
End Class
30