VB: Un código para realizar un bucle para encontrar una secuencia.
¿Privado? ¿Sub? Command1_Click()
¿Atenuar? ¿s? ¿Como? ¿Doble ración? ¿norte? ¿Como? ¿Entero
n? =?1
¿Qué hacer? ¿cuando? 1?/?n? ? 2?gt=?10?? -4
s? =?s? ?1?/?n? ? 2
n? =?n? ?2
Timbre
Texto1. ¿Palabra? =?s
¿Fin? Sub2,
¿Privado? ¿Sub? Command1_Click()
¿Atenuar? ¿s? ¿Como? ¿Doble ración? ¿norte? ¿Como? ¿Entero
n? =?1
¿Qué hacer? ¿hasta? 1?/?n? ? 2?lt? 10?? -4
s? =?s? ?1?/?n? ? 2
n? =?n? ?2
Timbre
Texto1. ¿Palabra? =?s
¿Fin? Sub3,
¿Privado? ¿Sub? Command1_Click()
¿Atenuar? ¿s? ¿Como? ¿Doble ración? ¿norte? ¿Como? ¿Entero
n? =?1
hacer
s? =?s? ?1?/?n? ? 2
n? =?n? ?2
¿Bucle? ¿cuando? 1?/?n? ? 2?gt=?10?? -4
Texto1. ¿Palabra? =?s
¿Fin? Sub4,
¿Privado? ¿Sub? Command1_Click()
¿Atenuar? ¿s? ¿Como? ¿Doble ración? ¿norte? ¿Como? ¿Entero
n? =?1
hacer
s? =?s? ?1?/?n? ? 2
n? =?n? ?2
¿Bucle? ¿hasta? 1?/?n? ? 2?lt? 10?? -4
Texto1. ¿Palabra? =?s
¿Fin? Submarino