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