Циклический алгоритм

Private Sub Command1_Click()
Dim x, y, I As Single
Scale (-10, 10)-(10, -10)
DrawWidth = 1
For I = -10 To 10
Line (I, -10)-(I, 10), QBColor(12)
Line (-10, I)-(10, I), QBColor(12)
Next I
DrawWidth = 2
Line (-10, 0)-(10, 0), QBColor(0)
For I = -10 To 10
PSet (I, 0)
Print I
Next I
Line (0, -10)-(0, 10), QBColor(0)
For I = -10 To 10
PSet (0, I)
Print I
Next I
For x = -10 To 10 Step 0.01
y = x ^ 2
PSet (x, y), QBColor(5)
Next x
End Sub

Private Sub Command1_Click()
        Dim x, y, z, i As Single
        Scale (-12, 150)-(12, -10)
        
            For x = -10 To 10 Step 0.1
                     y = x ^ 2
                    Circle (0, y), Abs(x), QBColor(5), , , 0.5
            Next x
        
        For i = -10 To 10
            Line (i, -5)-(i, 140), QBColor(12)
            PSet (i, 0)
            Print i
        Next i
        
        For i = -10 To 140 Step 10
            Line (-10, i)-(10, i), QBColor(12)
            PSet (0, i)
            Print i
        Next i
        
        DrawWidth = 2
        Line (-10, 0)-(10, 0), QBColor(0)
        Line (0, -10)-(0, 140), QBColor(0)
        
End Sub