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 p>
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), p>
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