La programación VB realiza la siguiente imagen y la resuelve,

¿Privado?Sub?Form_Click()

Dim?m?As?Integer,?n?As?Integer

Para ?i?=?1?A?10?/?2

m?=?64??i

n?=?m

¿Para? j?=?i?A?10?/?2?-?1

¿Imprimir?";

Siguiente?j

Para?j ?=?1?A?2?*?i?-?1

Imprimir?Chr(m);

Siguiente?j

Imprimir

¿Siguiente?i

Para?i?=?1?A?10?/?2

n?=?n?1

Para?j?=?1?Para?i

¿Imprimir?";

Siguiente?j

Para?j?=?1 ?A?2?*?(10?/?2?-?i)?-?1

Imprimir?Chr(n);

Siguiente?j

Imprimir

¿Siguiente?iEnd?Sub