Número de programación Vb

¿Privado? ¿Sub? Command1_Click()

¿Atenuar? ¿respuesta? ¿Como? Entero

¿Atenuado? a1? ¿Como? Entero

¿Atenuado? a2? ¿Como? Entero

¿Respuesta? =?Val(Texto1.Texto)

¿Si? ¿respuesta? >? ¿99? ¿respuesta? <? 0?Entonces

¿MsgBox? "¡Ingrese un número de dos dígitos mayor que 0!")

Otro

¿Y si? ¿respuesta? <? 10? Luego

Texto 2. ¿Palabra? =?a

Otro

a1? =?Int(a?/?10#)

a2? =?¿Respuesta? -?a1? *?10

Texto 2. ¿Palabra? =?a1? +?El segundo tono de la aorta

¿Fin? Si

¿Finalizar? Si

¿Finalizar? Submarino