Código de Visual Basic para Aplicaciones - Funcion recursiva para girar una cadena

Filtrado por el tag: longitud

Val: 8

Funcion recursiva para girar una cadena

Publicado el 11 de Febrero del 2020 por Info (100 códigos)

1.298 visualizaciones desde el 11 de Febrero del 2020

Este código de ejemplo, muestra como girar una cadena de forma recursiva.

Publicado el 11 de Febrero del 2020

1.299 visualizaciones desde el 11 de Febrero del 2020

Public Function RReverse(aString As String) As String

	Dim L As Integer    'longitud de la cadena

	Dim M As Integer    'punto de corte

	L = Len(aString)

	If L <= 1 Then   'Final... ya no es necesario utilizar la recursividad

		RReverse = aString

	Else

		M = Int(L / 2)

		RReverse = RReverse(Right$(aString, L - M)) & RReverse(Left$(aString, M))

	End If

End Function

No hay comentarios


Nombre

Correo (no se visualiza en la web)

Valoración

Comentarios...

CerrarCerrar

Es necesario revisar y aceptar las políticas de privacidad

Acepto las políticas de privacidad

http://lwp-l.com/s5895

Validar coordenadas geográficas

Conversor de longitudes