Programalama > VISUAL BASIC

Private Sub Command1_Click()

Dim i 

i=0

do until i=len(Text1.text)  'Text1 deki karekter sayisi kadar Fonksiyonu calistir

i=i+1 

a=Right(Text1.Text,i) 'sagdan i ninci karekteri Al

b=Left(a,1) ' Aldigin Metinin ilk karekterden sonra sil

Text2.Seltext=b 'sirasiyla Yaz

loop 'Fonksiyon kapanisi

End Sub


magician
sevimli_9@hotmail.com