Public Class Form1
Dim g As Graphics
Private Sub cvetok(ByVal a As Single, ByVal b As Single)
Dim pero As New Pen(Color.Green, 4)
g.DrawLine(pero, a + 40, b + 40, 100, 480)
g.FillEllipse(Brushes.Blue, a + 20, b + 20, 40, 40)
g.FillEllipse(Brushes.Red, a - 2, b - 2, 40, 40)
g.FillEllipse(Brushes.Red, a + 42, b - 2, 40, 40)
g.FillEllipse(Brushes.Red, a - 2, b + 42, 40, 40)
g.FillEllipse(Brushes.Red, a + 42, b + 42, 40, 40)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i, n As Integer
Dim x, y As Single
g = Me.CreateGraphics
n = Val(InputBox("введите n"))
x = 20 : y = 100
g.FillRectangle(Brushes.LightGreen, 0, 0, 800, 600)
For i = 1 To n
cvetok(x, y)
x = x + 100
Next
End Sub
End Class





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.