¿Alguien conoce el código del programa para convertir caracteres en vb?
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 >
¿Pública?Función?MoveStr(ByVal?a?As?String,?ByVal?m(Integer), etiqueta(Boolean)(As? String)
MoveStr(=)a p >
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)?