Red de conocimiento informático - Problemas con los teléfonos móviles - ¿Alguien conoce el código del programa para convertir caracteres en vb?

¿Alguien conoce el código del programa para convertir caracteres en vb?

Opción explícita

Private?Sub?Form_Load()

MsgBox?MoveStr("abcdefghij",?3,?True)

MsgBox?MoveStr(" abcdefghij ",?3,?False)

¿Dim?Buffer?As?String

Dim?False)

¿Dim?Buffer?As?String

p>

¿Dim?i?As?Integer

Aleatorio

For?i?=?0?To?9

Buffer?=? Buffer ?amp;?Chr(Asc ("A")? ?Int(Rnd()?*?26))

Siguiente

MsgBox?"Cadena aleatoria:?" amp ;?Buffer?amp;?vbCrLf?amp;?_

"Desplazar a la izquierda tres lugares:?" ?amp;?MoveStr(Buffer,?3,?False)?amp;?vbCrLf?_

"Mover tres lugares a la derecha:?" ?&?MoveStr(Buffer,?3,?True)

Fin

End?Sub

¿Pública?Función?MoveStr(ByVal?a?As?String,?ByVal?m(Integer), etiqueta(Boolean)(As? String)

MoveStr(=)a

If(m)lt;(1)Entonces(Salir)Función

If(m)gt;(10)Entonces(Salir)Función

Dim(Longitud ) ¿Como?

Dim?Index?As?Long

Longitud?=?Len(a)

Si?Longitud?gt;?0?Entonces

p>

¿Índice?=?m?Mod?Longitud

¿Si?Índice?

Si?etiqueta?Entonces

MoveStr?= ?Mid( a,?Index? ?1)?&?Left(a,?Index)

Else

MoveStr?=?Right(a,?Index)?&? Izquierda (a,?Longitud?-?Índice)

Else

MoveStr?=?Index)

Fin?Si

Fin ? Si

Fin?Si

Fin?Función

Else

MoveStr?=?Right(a,?Index)?