lenguaje vb cómo escribir este espacio gráfico con código tab()
Private?Sub?Command2_Click() For?i?=?1?To?5
Imprimir?Tab(12?-?2?*?i? ?1);?CStr(1);
Para?j?=?2?A?2?*?i?-?1 Si?j??lt;=?i?Entonces
Imprimir?Espacio(1) ?CStr(j); ¿Else
Imprimir?Espacio(1)? ?CStr(2?*?i?-?j); ¿Fin?
Siguiente?j
ImprimirSiguiente?iFor?i?=?4?A?1?
Imprimir?Tab(12?-?2?*?i? ?1);?CStr(1) ; ¿Para?j?=?2?A?2?*?i?-?1 Si?j?lt;=?i?Entonces
¿Imprimir?Espacio(1)? ; De lo contrario
¿Imprimir?Espacio(1)? ?CStr(2?*?i?-?j?Si
Siguiente?j
ImprimirSiguiente?i
Fin?SubPrivate?Sub?Command1_Click()Para?i?=?1?A?
Imprimir?Tab(6?-?i);?CStr( 1);
Para?j?=?2?A?2?*?i?-?1 Si?j?lt;=?i?Entonces
Imprimir?CStr (j); Else
Imprimir?CStr(2?*?i?-?j); ¿Fin?Si
Siguiente?j
ImprimirSiguiente?iFor ?i?=?4?A?1?Paso?-1
Imprimir?Tab(6?-?i);?CStr(1);For?j?=?2?A?if j = i, entonces
Imprimir CStr(j); de lo contrario
Imprimir CStr(2?*?i?-?j); ?