¡Urgente! ! Buscando consejo sobre la tarea final de VB

Dim R es un número entero, G es un número entero y B es un número entero

Dim X significa único, Y significa único y L significa único

Dim N es un número entero, A(2, 4) es un valor único, I es un número entero, T es un número entero

Irregularizar

El número de cajas rectangulares

N = Int(10 * Rnd) + 1

Centro del cuadro rectangular

X = Imagen 1. Ancho de escala / 2

Y = Imagen 1. Altura Proporcional / 2

Imágenes

Imagen 1. Cls

Do

T = T + 1

Color aleatorio

R = Int(255 * Rnd)

G = Int(255 * Rnd)

B = Int(255 * Rnd)

Tamaño de rectángulo aleatorio

L = L + Int(200 * Rnd) + 100

Calcula los 4 puntos del rectángulo.

Para I = 1 a 4

A(1,I)= X+L * Cos(3.1416/4 *(2 *(I-1)+1))

A(2,I)= Y-L * Sin(3.1416/4 *(2 *(I-1)+1))

Si i>1 entonces dibuja 1. Línea (A(1,I),A(2,I))-(A(1,I - 1),A(2,I - 1)),RGB(R,G,B)

A mi lado

Foto 1. Línea (A(1,1),A(2,1))-(A(1,4),A(2,4)),RGB(R,G,B)

Bucle hasta T = N

Conector terminal