Como se muestra en la figura, tarea de programación Vb, usando declaraciones de bucle

Subcomando privado1_Click() a = Texto1.Texto para i = 1 a Len(a)

c = Mid(a, i, 1)

Si c >= "a" y c <= "z" Entonces

? c = Chr(Asc("z") - Asc(c) + Asc("a"))

Fin si

b = b + c Siguiente i Texto2.Text = b

Fin Sub