Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim sentence As String
' You can cage a swallow, can't you, but you can't swallow a cage, can you
sentence = TextBox1.Text
If ispalindrome(sentence) Then
TextBox2.Text = "This sentence is a word palindrome."
Else
TextBox2.Text = "This sentence is not a word palindrome."
End If
End Sub
Function ispalindrome(sentence As String) As Boolean
Dim words() As String
Dim revsentence As String
Dim oldsentence As String
words = sentence.Replace(",", "").Split(" "c)
For i As Integer = 0 To (words.Count - 1)
If
End If
If revsentence = oldsentence Then
Return True
Else
Return False
End If
End Function
this is kind of where im at atm. i know i want to have a loop pull the words out maybe like (words.count -1) to 0 and then join but unsure of what the code would look like
