Palindrome visual basic script

Hola,, quisiera alguien me ayudara a realizar un palindrome en visul basic script... Por fa,,,,
Felipe

1 Respuesta

Respuesta
1
En Visual Basic Script no sé cómo sería, deberías haber preguntado en ese tablón, pero en Visual Basic se hace así:
Nota(tienes que tener 2 textboxs y un botón)
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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas