Проект.Нарисовать на форме множество эллипсов произвольного размера с произвольными координатами закрашенных т - VB

Узнай цену своей работы

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

Нарисовать на форме множество эллипсов произвольного размера с произвольными координатами закрашенных тремя цветами

Решение задачи: «Проект.Нарисовать на форме множество эллипсов произвольного размера с произвольными координатами закрашенных т»

textual
Листинг программы
Option Explicit
Private Sub Command1_Click()
Dim i As Integer, imod2 As Integer, imod3 As Integer     'номер фигуры
Dim x  As Integer, y  As Integer   'координаты фигуры
Dim r As Integer, c As Single  'A(i) As Arrau
'A(i) = Arrau(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19)
Randomize Timer
Picture1.Cls          'очищаем графическое поле
'строится 20 неокрашенных эллипсов
'координаты задаются случайным образом
For i = 1 To 20
x = Picture1.Width * Rnd
y = Picture1.Height * Rnd
r = 1000 * Rnd
c = 3 * Rnd
Picture1.Circle (x, y), r, , , , c
'If (imod2 = 0) Then Picture1.Circle (x, y), r, FillStyle = vbRed
'If (imod3 = 0) Then Picture1.Circle (x, y), r, FillStyle = vbGreen
'If (imod2 <> 0) And (imod3 <> 0) Then Picture1.Circle (x, y), r, FillStyle = vbBlue
     
Next i
End Sub

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

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