12.169 cursos gratis
8.789.270 alumnos
Facebook Twitter YouTube
Busca cursos gratis:

Manual de Visual Basic Intermedio

Autor: Jorge Alvarez
Curso:
9,45/10 (20 opiniones) |22740 alumnos|Fecha publicación: 17/03/2006
Envía un mensaje al autor

Capítulo 9:

 Ejerciocio 9: Palíndromos

                         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

Nuestras novedades en tu e-mail

Escribe tu e-mail:



MailxMail tratará tus datos para realizar acciones promocionales (vía email y/o teléfono).
En la política de privacidad conocerás tu derechos y gestionarás la baja.

Cursos similares a Manual de Visual Basic Intermedio



  • Vídeo
  • Alumnos
  • Valoración
  • Cursos
1. Manual de Visual Basic Principiante
En el título de este curso, Manual de Visual Basic para Principiantes ,... [17/03/06]
155.711  
2. Visual Basic Express. Crear alarma (1/4)
Alarma en Visual Basic 2008. Sigue nuestro curso de informática y aprende a... [13/04/11]
884
Curso con video
3. Visual Basic Express. Crear una alarma (2/4)
Crear una alarma en Visual Basic 2008 Express . Te presentamos la continuación del... [13/04/11]
352
Curso con video

¿Qué es mailxmail.com?|ISSN: 1699-4914|Ayuda
Publicidad|Condiciones legales de mailxmail