grafici di parabole

creazione di grafici di parabole con derive e ricerca valori con visual basic

Private Sub CommandButton1_Click()
Rem parabole1,2
ListBox1.Visible = True
parabole1.Visible = True
ListBox1.AddItem (" y = x^2")
For x = -4 To 4
y = x ^ 2
ListBox1.AddItem (x & " y = " & y)
Next x
ListBox1.AddItem ("---y = - x^2 ----")
For x = -4 To 4
y = -x ^ 2
ListBox1.AddItem (x & " y = " & y)
Next x

End Sub

Private Sub CommandButton2_Click()
Rem parabole3,4
ListBox1.Visible = True
parabole2.Visible = True
ListBox1.AddItem (" x = y^2")
For y = -4 To 4
x = y ^ 2
ListBox1.AddItem (y & " x = " & x)
Next y
ListBox1.AddItem ("---x = - y^2 ----")
For y = -4 To 4
x = -y ^ 2
ListBox1.AddItem (y & " x = " & x)
Next y
End Sub

Private Sub CommandButton3_Click()
ListBox1.Clear

End Sub

Private Sub CommandButton4_Click()
parabole1.Visible = False
parabole2.Visible = False
End Sub