Palindroma

[Santiago Alvarez]

Private Sub Command1_Click()
Dim igual As Boolean
Dim c1, c2, mitad As Byte
Dim a1(100), a2(100), cad As String
Text2 = ""
For c1 = 1 To 100
a1(c1) = "": a2(c1) = ""
Next c1
If Text1 <> "" Then
cad = CStr(Len(Text1) / 2)
igual = True
If InStr(1, cad, ",") <> 0 Then 'Es Impar
mitad = Int(Len(Text1) / 2) + 1
c2 = 1
For c1 = mitad To 1 Step -1
cad = Mid(Text1, c1, 1)
a1(c2) = cad: c2 = c2 + 1
Next c1
c2 = 1
For c1 = mitad To Len(Text1)
cad = Mid(Text1, c1, 1)
a2(c2) = cad: c2 = c2 + 1
Next c1
For c1 = 1 To mitad
If a1(c1) <> a2(c1) Then
igual = False: Exit For
End If
Next c1
Else 'Es Par
mitad = Len(Text1) / 2
c2 = 1
For c1 = mitad To 1 Step -1
cad = Mid(Text1, c1, 1)
a1(c2) = cad: c2 = c2 + 1
Next c1
c2 = 1
For c1 = mitad + 1 To Len(Text1)
cad = Mid(Text1, c1, 1)
a2(c2) = cad: c2 = c2 + 1
Next c1
For c1 = 1 To mitad
If a1(c1) <> a2(c1) Then
igual = False: Exit For
End If
Next c1
End If
Text2 = igual: Text1.SetFocus
Else
MsgBox "Tienes que introducir un texto"
Text1.SetFocus
End If
End Sub
Private Sub Form_Load()
Text1 = "": Text2 = ""
End Sub

[jhon jairo sandoval ramirez]

eso de que pagina lo saco xD jajajaj

text2.text = strreverse(text1.text)
if strreverse(Ucase(text1.text)  = Ucase(text1.text) then
msgbox "palindroma"
else
msgbox " no es palindroma
end if
.... y ahi ta xD

> Date: Fri, 10 Jun 2011 11:04:23 -0700
> Subject: Palindroma
> From: heda...@hotmail.com
> To: 118010...@googlegroups.com