Напишите программу, отображающую цветное кольцо. Используя ее как подпрограмму, нарисуйте олимпийский флаг

Option Explicit
Dim a%, b%, c%, d%, e%
Private Sub Command1_Click()
 
For a = 17 To 33 Step 8
    b = 25
    Call krug
Next
For a = 21 To 29 Step 8
    b = 33
    Call krug
Next a
End Sub
 
Private Sub Form_Load()
Picture1.Scale (0, 0)-(50, 50)
End Sub
 
 
Public Sub krug()
Picture1.Circle (a, b), 5, RGB(c, d, e)
End Sub

Option Explicit
 
 
Private Sub Command1_Click()
    Dim Col, k As Integer, a As Integer
    Col = Array(vbBlue, vbBlack, vbRed, vbYellow, vbGreen)
    For a = 17 To 33 Step 8
        Call krug(a, 25, Col(k))
        k = k + 1
    Next
    For a = 21 To 29 Step 8
         Call krug(a, 33, Col(k))
         k = k + 1
    Next a
End Sub
 
Private Sub Form_Load()
    Picture1.Scale (0, 0)-(50, 50)
    Picture1.DrawWidth = 8
End Sub
 
 
Private Sub krug(ByVal X As Integer, ByVal Y As Integer, ByVal Col As Long)
     Picture1.Circle (X, Y), 5, Col
End Sub

Option Explicit
 
Private Sub Command1_Click()
    Dim Col, a, k As Integer, i As Integer
    Col = Array(vbBlue, vbBlack, vbRed, vbYellow, vbGreen)
    a = Array(17, 25, 33, 21, 28)
    For i = 1 To 5
        Call krug(a(k), IIf(k > 2, 33, 25), Col(k))
        k = k + 1
    Next i
End Sub
 
Private Sub Form_Load()
    Picture1.Scale (0, 0)-(50, 50)
    Picture1.DrawWidth = 8
End Sub
 
 
Private Sub krug(ByVal X As Integer, ByVal Y As Integer, ByVal Col As Long)
     Picture1.Circle (X, Y), 5, Col
End Sub