Kullanıcı tarafından girilen kelimeyi listbox’ta teker teker sıralayan ve harflari değişik şekilde alt alta yazan programı yapalışını görelim..

Programda Kullanıcı dışarıdan  kelime girşi yapacak program onu listboxta harfleri tek tek yazdıracak..

İkinci buttonda girilen kelimenin önce 1 harfi sonra 2,3.. sırasıyla yazacak.Üçüncü Buttonda ise Tam tersini yapacak ve önce kelimenin tamamını sonra kelimeyi 1 harf eksilterek listbox’ta alt alta yazdıracak..

Program 3 button ve 1 listbox’tan oluşuyor..

1 button’a yazılacaklar;

Dim ad As String
ad = InputBox("adınız?")
Dim i
For i = 0 To ad.Length - 1
ListBox1.Items.Add(i + 1 & " .harf " & ad.Chars(i))

Next

2 button’a  yazılacaklar;

Dim ad As String
ad = InputBox("adınız?")

Dim dizi(ad.Length) As String
For a = 0 To ad.Length - 1
For b = 0 To a
dizi(a) = dizi(a) + ad.Chars(b)

Next
Next
For a = 0 To ad.Length - 1

ListBox1.Items.Add(dizi(a))
Next

3 Button’a yazılacaklar;

Dim ad As String
ad = InputBox("adınız?")

Dim dizi(ad.Length) As String
For a = ad.Length - 1 To 0 Step -1
For b = 0 To a
dizi(b) = ad.Chars(a) + dizi(b)

Next
Next
For a = 0 To ad.Length - 1

ListBox1.Items.Add(dizi(a))
Next

Projeyi indir

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.