Private Sub Slider2_Change()

My

End Sub

Private Sub Slider3_Change()

My

End Sub

5. Записать программный код для раздела General Declaartions:

Private Sub My()

Dim a, b, c As Integer

a=Slider1.Value

b = Slider2.Value

c = Slider3.Value

Label5.Caption="a= "+ Str(a): Label6.Caption= "b= " + Str(b): Label7.Caption="C= "+ Str(c)

Picture1.Cls

Picture1.Scale (-10, 10)-(10, -10)

Picture1.Line (-10, 0)-(10, 0), vbcian

Picture1.Print "X"

Picture1.Line (0, 10)-(0, -10), vbcian

Picture1.Print "Y"

For i=-10 To 10

Picture1.PSet (i, 0), QBColor(0)

Picture1.Print i

Next i

For i=-10 To 10 Step 0.02

x=i

y=a*x^2+b*x+c

Picture1.PSet (x, y)

Next i