Solicite la programación del enésimo bit.
¿privado? ¿Sub? Command1_Click()
¿Atenuar? ¿Dólar taiwanés? n%
t? =?InputBox("cadena de entrada")
n? =?InputBox("Entero de entrada")
MsgBox? ¿Medio(t,?n?+?1)?& amp? Izquierda(t,?n)
¿Fin? Submarino