Örnek 13:
Girilen metni tersine çeviren program.
Ekran Görüntüsü
Kodlar
Public Class Form1
Public metin() As Object
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim düz, ters, x As String
Dim i As Integer
düz = TextBox1.Text
x = Len(düz) 'Len komutu kelime veya cümlenin karakter sayısını
hesaplar. a=Len("merhaba") ise, a değeri 7 dir.
ReDim metin(x) '
For i = x To 1 Step -1
metin(i) = Mid(düz, i, 1) ' Mid(): Bir karakter dizisinin içinde
belli sayıda bir eleman grubunu kesip(alabilir). Mid("kelime", başlangıç,
adet)) başlangıç : soldan itibaren ilk harfin sıra numarası adet : alınacak
harf sayısı
ters = ters + metin(i)
Next i
Label1.Text = ters
End Sub
End Class
39