Red de conocimiento informático - Problemas con los teléfonos móviles - ¿Cómo escribir código para mostrar una forma (diamante) en formato VB?

¿Cómo escribir código para mostrar una forma (diamante) en formato VB?

Private subform_Click()

Atenuar el ancho el mismo tiempo

Atenuar el tiempo a la izquierda

Atenuar el tiempo a la izquierda

Atenuar el tiempo superior

Atenuar el tiempo a la izquierda

Atenuar el tiempo arriba

p>

Atenuar iRow como número entero

Marcar I como número entero

Mostrar iColor como número entero

i. Fuente.Tamaño = 12

lAncho =i. TextWidth(" * ")

lAltura = i. Altura del Texto(" * ")

iColor = 1

i. Cls

I. AutoRedraw = Verdadero

Para iRow = 1 a 6

lArriba = altura LH * iRow+60

lIzquierda = lAncho * (6 - iRow) / 2 + 60

Para i = 1 a iRow

lIzquierda = lIzquierda + lAncho

i. ActualY = lTop

i. CurrentX = lLeft

iColor = iColor + 1

Si iColor & gt14 entonces iColor = 1

i. ForeColor = QBColor(iColor)

Imprimir "*"

Luego

Luego

Para iRow = 7 a 11

lArriba = altura LH * iRow+60

lIzquierda = lAncho * (iRow - 6) / 2 + 60

Para i = 1 a 12 - iRow

lIzquierda = lIzquierda + lAncho

i. ActualY = lTop

i. CurrentX = lLeft

iColor = iColor + 1

Si iColor & gt14 entonces iColor = 1

i. ForeColor = QBColor(iColor)

Imprimir "*"

Luego

Luego

Finalizar conector