Red de conocimiento informático - Problemas con los teléfonos móviles - Programación VB, diamante digital y diamante de caracteres

Programación VB, diamante digital y diamante de caracteres

Dim?n%,?st$?'st es una variable que controla los caracteres o números mostrados

n?=?InputBox("Ingrese el número de filas numéricas de diamantes , debe ser un número impar ",?"Número diamante")

m?=?(n?+?1)?/?2

Para?i?=? 1?A?m

st?=?Chr(Asc(i))

Imprimir?Tab(m?+?1?-?i);?String(2? *?i?-?1 ,?st),

Siguiente

Para?i?=?m?+?1?A?n

st ?=?Chr(Asc( i))

Imprimir?Tab(i?-?m?+?1);?String(2?*?(n?-?i)?+?1 ,?st),

Siguiente

n?=?InputBox("Ingrese el número de líneas de caracteres, debe ser un número impar",?"Diamante de caracteres")

m?=?(n ?+?1)?/?2

Para?i?=?1?A?m

Si?i? Mod?2?=?0?Entonces?st? =?"B"?Else:?st?=?"A"

Imprimir?Tab(m?+?1?-?i); ?String(2?*?i?-?1 ,?st),

Siguiente

For?i?=?m?+?1?To?n

Si?i?Mod?2? =?0?Entonces?st?=?"B"?Else:?st?=?"A"

Imprimir?Tab(i?- ?m?+?1);?String(2 ?*?(n?-?i)?+?1,?st),

Siguiente