Графические методы и операторы цикла

-точка
Line(x1,y1)-(x2,y2), цвет

-отрезок
Line(x1,y1)-(x2,y2), цвет, B -прямоугольник
Line(x1,y1)-(x2,y2), цвет, BF -закрашенный
прямоугольник
Circle(x,y),r,цвет -окружность
Circle(x,y),r,цвет , , , k -эллипс
Сls -очистка
DrawWidth=3 -толщина линий

(тело цикла)
Next счётчик

As Long
Dim y As Long
Dim r As Long
DrawWidth = 5
For

x = 500 To 5000 Step 500
Circle (x, 1000), 500, vbBlue
Next x

1000
For x = 1500 To 6000 Step 300
Circle (x, y),

700, vbRed
y = y + 200
Next x

Нарисовать ряд красных окружностей по диагонали, если х=1500, 1800, 2100,….6000, у=1000, 1200, 1400,…..,
R=700

у=1000, 1350, 1700,…..6000,
R=200
Dim x As Long
Dim y As Long
DrawWidth

= 2
For x = 1000 To 8000 Step 250
For y = 1000 To 6000 Step 250
Circle (x, y), 200, vbBlue
Next y
Next x