Урок 7 Циклы и графика в VB

Для выполнения заданий используйте "Редактор Меню" в Форме, например:

Нарисуйте 10 концентрических окружностей
Текст процедуры:

Результат:

 Поставьте несколько экспериментов с шагом цикла и цветом окружностей и выполните следующие задания

Попробуйте изменить процедуры  для получения следующих рисунков:

Закрашивание окружностей случайным цветом

Private Sub Form_Load()
'на форме нарисована картинка во весь экран!
Picture1.Scale (-300, -300)-(300, 300)
Picture1.FillStyle = solid
Randomize
For r = -300 To 300 Step 70
c1 = Rnd * 250
c2 = Rnd * 250
c3 = Rnd * 250
Picture1.FillColor = RGB(c1, c2, c3)
Picture1.Circle (r, r), 70, RGB(c1, c2, c3)
Next
End Sub