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

Imágen de perfil
Val: 10
Ha aumentado su posición en 2 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Funcion recursiva para girar una cadenagráfica de visualizaciones


Visual Basic para Aplicaciones

Publicado el 11 de Febrero del 2020 por Info
474 visualizaciones desde el 11 de Febrero del 2020
Este código de ejemplo, muestra como girar una cadena de forma recursiva.

1

Publicado el 11 de Febrero del 2020gráfica de visualizaciones de la versión: 1
475 visualizaciones desde el 11 de Febrero del 2020
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
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



Comentarios sobre la versión: 1 (0)


No hay comentarios
 

Comentar la versión: 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s5895