Нарисовать на форме множество прямоугольников одинакового размера с произвольными координатами - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4 из 5
Похожие ответы