Необходимо создать код с isPalendrome function, чтобы проверять является ли String palendrome или нет. Мой не работает.
Спасибо всем ответившим.
VB.Net
Function isPalendrome(ByVal Input As String, ByVal Reverse As String) As Boolean
isPalendrome = (Input = Reverse)
End Function
Private Sub btnCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheck.Click
Dim strInput As String
Dim StrReverse As String
Dim Outcome As String
strInput = txtString.Text
If Outcome = isPalendrome(strInput, StrReverse) Then
MsgBox(Outcome, "Is Palindrome!")
Else
MsgBox(Outcome, "Is Not Palindrome!")
End If
End Sub
Спасибо всем ответившим.
VB.Net
Function isPalendrome(ByVal Input As String, ByVal Reverse As String) As Boolean
isPalendrome = (Input = Reverse)
End Function
Private Sub btnCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheck.Click
Dim strInput As String
Dim StrReverse As String
Dim Outcome As String
strInput = txtString.Text
If Outcome = isPalendrome(strInput, StrReverse) Then
MsgBox(Outcome, "Is Palindrome!")
Else
MsgBox(Outcome, "Is Not Palindrome!")
End If
End Sub