Manual de Visual Basic Intermedio

Autor: Jorge Alvarez
Curso:

4,79/5 (19 opiniones) |12831 alumnos|Fecha publicación: 17/03/2006

Capítulos del curso

Capítulo 9:

Ejerciocio 9: Palíndromos

Crea un formulario con tres etiquetas, dos cajas de texto, tres botones y escribe el siguiente código:

Function cadinvertida(cadena As String) As String

Dim invertida() As String * 1

Dim i As Integer

Dim j As Integer

n = Len(cadena)

ReDim invertida(n)

For i = 1 To n

invertida(i - 1) = Mid(cadena, i, 1)

Next i

For j = (n - 1) To 0 Step -1

cadinvertida = cadinvertida & invertida(j)

Next j

End Function

El botón Invertir

Private Sub Command1_Click()

Text2 = cadinvertida(Text1)

End Sub

El botón Limpiar

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

Text1.SetFocus

End Sub

El botón Salir

Private Sub Command3_Click()

Unload Me

End

End Sub

	Cursos	Valoración	Alumnos	Vídeo
Autocad. Dibujo en 2d y 3d (1/4) Autocad. Este curso está diseñado, para que cualquier persona sin ningún conocimiento de Autocad pueda seguirlo y pueda divertirse dibujando[09/06/09]			3.476
Diseño de páginas web con FrontPage FrontPage es uno de los programas más tradicionales para la creación de páginas web atractivas. En los tiempos en los que estamos, en los que todas las empresas se hacen ... [18/09/02]			96.781
Corel Draw 11 Básico Corel Draw es una potente herramienta que utilizan los diseñadores profesionales para crear, logotipos, esquemas, ilustraciones, dibujos, etc. No se asuste, para usted am... [10/05/05]			11.796