Нарисовать на форме множество прямоугольников одинакового размера с произвольными координатами - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д