Построить график функции - VB (61784)

Формулировка задачи:

в visual basic 6.0 Построить график функции Y=3+2/x+3/x2 на отрезке [-3, -1]

Решение задачи: «Построить график функции»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim x As Single, Y As Single, i As Single
    Picture1.Scale (-4, 5)-(1, -1)
    Picture1.Line (-4, 0)-(5, 0), vbBlue 'ocb X
    Picture1.Line (0, -4)-(0, 5), vbBlue 'ocb Y
    For x = -4 To 1 Step 0.5
        Picture1.Line (x, -0.05)-(x, 0.05), vbBlue
        Picture1.CurrentX = x + 0.05
        Picture1.CurrentY = -0.05
        Picture1.Print Format(x, "0.0")
    Next x
    For Y = -1 To 5 Step 0.5
        Picture1.Line (-0.05, Y)-(0.05, Y), vbBlue
        Picture1.CurrentX = 0.05
        Picture1.CurrentY = Y - 0.05
        Picture1.Print Format(Y, "0.0")
    Next Y
    For x = -3 To -1 Step 0.0013
        Y = 3 + 2 / x + 3 / x ^ 2
        Picture1.Circle (x, Y), 0.015, RGB(255, 0, 0)
    Next x
End Sub
                        