You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
VB.Net Örnek Uygulamalar<br />
2 Kasım 2011<br />
basla = TxtBaslangic.Text ' Bu sayı aralığın başlangıç sayısı ve<br />
en az 9 girilmeli<br />
bitir = TxtBitis.Text<br />
For sayi = basla To bitir<br />
uz = Strings.Len(sayi.ToString)<br />
sayi_kare = sayi * sayi<br />
sagtaraf = Strings.Right(sayi_kare.ToString, uz)<br />
sayi_kare_uzunluk = Strings.Len(sayi_kare.ToString)<br />
sagtaraf_uzunluk = Strings.Len(sagtaraf.ToString)<br />
soltaraf = Strings.Left(sayi_kare.ToString, sayi_kare_uzunluk<br />
- sagtaraf_uzunluk)<br />
If sagtaraf + soltaraf = sayi And sayi 10 Then<br />
LstSayi.Items.Add(sayi)<br />
End If<br />
Next<br />
End Sub<br />
End Class<br />
Tolga GÜYER Sayfa 36
Change language