'Beispiel: VB .Net - Palindrome - Vergleichen ob ein Wort von rechts gelesen das gleiche ergibt wie von links gelesen ' Option Explicit On Option Strict On Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Result As Boolean = Me.IsPalindrome(Me.ComboBox1.Text) Me.Text = Result.ToString() End Sub Private Function IsPalindrome(ByVal s As String) As Boolean If Not String.IsNullOrEmpty(s) Then Dim a As Integer Dim b As Integer a = 0 : b = s.Length - 1 While a < b If s.Substring(a, 1).ToLower = s.Substring(b, 1).ToLower Then a += 1 b -= 1 Else Return False End If End While Else Return False End If Return True End Function Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim palindrome As String() = { _ "Gag", _ "Kajak", _ "Neben", _ "Neffen", _ "nennen", _ "Pop", _ "Radar", _ "Reittier", _ "Retter", _ "Uhu", _ "Otto", _ "Lagerregal"} Me.ComboBox1.Items.AddRange(palindrome) If Me.ComboBox1.Items.Count > 0 Then Me.ComboBox1.SelectedIndex = 0 End Sub End Class