Public Class Form1
Dim g As Graphics

Private Sub grib(ByVal a As Single, ByVal b As Single)

g.FillEllipse(Brushes.White, a, b, 20, 100)
g.FillPie(Brushes.Brown, a - 35, b, 90, 70, 180, 180)

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 f, x, y As Single
n = Val(InputBox("введите n"))
g = Me.CreateGraphics : f = 0
g.FillRectangle(Brushes.LightGreen, 0, 0, 700, 500)
For i = 1 To n
x = 350 + 150 * Math.Sin(f) : y = 200 + 150 * Math.Cos(f)
grib(x, y)
f = f + 0.7
Next
End Sub
End Class





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