Нарисовать на форме множество прямоугольников одинакового размера с произвольными координатами - VB

Формулировка задачи:

Нарисовать на форме множество прямоугольников одинакового размера с произвольными координатами различными цветами.

Код к задаче: «Нарисовать на форме множество прямоугольников одинакового размера с произвольными координатами - VB»

textual
Option Explicit
Const R As Integer = 7000 'размер формы (в твипах)
Const N As Integer = 100  'количество прямоугольников
Const W As Integer = 500  'ширина прямоугольников (в твипах)
Const H As Integer = 400  'высота прямоугольников (в твипах)
 
Private Sub Form_Load()
    Dim X1 As Integer, X2 As Integer, Y1 As Integer, Y2 As Integer
    Dim C As Long, i As Integer
    Me.Height = R + 500: Me.Width = R
    Me.AutoRedraw = True
    Randomize
    For i = 1 To N
        X1 = Rnd * (R - W): X2 = X1 + W: Y1 = Rnd * (R - H): Y2 = Y1 + H
        C = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
        Me.Line (X1, Y1)-(X2, Y2), C, BF
    Next i
End Sub
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

5   голосов, оценка 4.000 из 5


СДЕЛАЙТЕ РЕПОСТ