I. En un proyecto nuevo, crear la siguiente forma:

Guarde el proyecto con el nombre: Manejo de texto. Elimine el Caption Label2. En el código del comando escriba lo siguiente:

Private Sub Command1_Click()

Dim mensaje As String

Dim tamaño As Integer

mensaje = Text1.Text

tamaño = Len(mensaje)

Label2.Caption = "El tamaño es: " & tamaño

End Sub

Fijarse que se utiliza Dim para declarar las variables mensaje y tamaño. La variable mensaje se declara de tipo String, pues recibirá texto, mientras que la variable tamaño se declara de tipo Integer, pues recibirá un número entero. La variable mensaje recibe el valor escrito en Text1 con la instrucción mensaje = Text1.Text. Luego se utiliza la función Len para buscar la cantidad de caracteres que tiene el texto guardado en la variable mensaje. Esa cantidad de caracteres se guarda en la variable tamaño. Finalmente, en el Label2 se escribe el valor de la variable tamaño, añadiendo antes el texto El tamaño es.

II. Añadir un label (Label3) al proyecto, para buscar los primeros tres caracteres. Añadir lo siguiente en el código:

‘debajo de los Dim

Dim izq as String

‘debajo de tamaño = Len(mensaje)

izq = Left (mensaje,3)

‘debajo de Label2.Caption = "El tamaño es: " & tamaño

Label3.Caption = "Los primeros tres: " & izq

E Nota: Los comentarios (en itálica) son sólo para indicar dónde escribir la instrucción, no es necesario escribirlos.

Se añade el Label3 al proyecto; en el código se tiene que añadir una variable (que se llamará izq). Esta variable guardará los primeros tres caracteres del mensaje. Se utilizará la función Left para que el proyecto seleccione los primeros tres caracteres. Finalmente se escribirá el valor de izq en el Label3, junto al texto Los primeros tres.

III. Añadir un label (Label4) al proyecto, para buscar los últimos dos caracteres. Añadir lo siguiente en el código:

‘debajo de los Dim

Dim der as String

‘debajo de tamaño = Len(mensaje)

der = Right (mensaje,2)

‘debajo de Label3.Caption = "Los primeros tres: " & izq

Label4.Caption = "Los últimos dos: " & izq

E Nota: Los comentarios (en itálica) son sólo para indicar dónde escribir la instrucción, no es necesario escribirlos.

Se añade el Label4 al proyecto; en el código se tiene que añadir una variable (que se llamará der). Esta variable guardará los últimos dos caracteres del mensaje. Se utilizará la función Right para que el proyecto seleccione los últimos dos caracteres. Finalmente se escribirá el valor de der en el Label4, junto al texto Los últimos dos.

IV. Ejercicio: Siguiendo los ejemplos, añadir lo necesario para buscar los caracteres del “medio”. Recuerde añadir un Label, un Dim con la variable medio, usar la función Mid(mensaje,2,4) y escribir en el Caption del Label el resultado de la función guardado en medio.

V. Ejercicio: Siguiendo los ejemplos, añadir lo necesario para cambiar todo el mensaje a letra mayúscula. Recuerde añadir un Label, un Dim con la variable may, usar la función UCase(mensaje) y escribir en el Caption del Label el resultado de la función guardado en may.

V. Ejercicio: Siguiendo los ejemplos, añadir lo necesario para cambiar todo el mensaje a letra minúscula. Recuerde añadir un Label, un Dim con la variable min, usar la función LCase(mensaje) y escribir en el Caption del Label el resultado de la función guardado en min.