Kodlar
Public Class Form1
Dim sayi, uz, sayi_kare, sagtaraf, soltaraf, basla, bitir,
sagtaraf_uzunluk, sayi_kare_uzunluk As Long
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
ListBox1.Items.Clear() 'Liste kutusu temizleniyor
basla = TextBox1.Text ' Bu sayı aralığın başlangıç sayısı ve en az 9
girilmeli. Sayının karesi 2 basamaklı olmalıdır.
bitir = TextBox2.Text
For sayi = basla To bitir
uz = Strings.Len(sayi.ToString)
sayi_kare = sayi * sayi
sagtaraf = Strings.Right(sayi_kare.ToString, uz)
sayi_kare_uzunluk = Strings.Len(sayi_kare.ToString)
sagtaraf_uzunluk = Strings.Len(sagtaraf.ToString)
soltaraf = Strings.Left(sayi_kare.ToString, sayi_kare_uzunluk -
sagtaraf_uzunluk)
If sagtaraf + soltaraf = sayi And sayi <> 10 Then
ListBox1.Items.Add(sayi)
End If
Next
End Sub
End Class
4.2. Do - Loop
Kuracağımız döngünün tekrarlama sayısı bilinmiyorsa ve döngü işlemi bir şartın ya da
durumun gerçekleşmesi hâlinde sonlanacak ise Do-Loop yapısı idealdir. Bu döngü yapısının
iki çeşidi vardır. Birincisi, önce blok içinde kalan kod grubunun çalıştırılması ve en sonda
şart ya da durumun sorgulanmasıdır. Şart ya da durum gerçekleşene kadar tekrarlama
yapılacaksa Until (kadar) takısı, şart ya da durumun sonucu bozulana kadar tekrarlama
yapılacak ise While (iken) takısı kullanılır.
27