La programación VB edita e imprime el siguiente contenido *1 ***222 *****33333 *******4444444

El código es el siguiente: For?i?=?1?To?4

Print?String(1? ?((i?-?1)?*?2 ),? "*")?amp;?String(1?? ((i?-?1)?*?2),?CStr(i))

Siguiente?i

Efecto de ejecución: