parabole

esci con testvba.htm

parabole.ppt

studio di parabole

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

Private Sub CommandButton5_Click()
Label3.Visible = True
Label4.Visible = False
End Sub

Private Sub CommandButton6_Click()
Label3.Visible = False
Label4.Visible = True
End Sub

Private Sub CommandButton7_Click()
Label3.Visible = False
Label4.Visible = False
End Sub

Private Sub Label4_Click()

End Sub

Private Sub UserForm_Click()

End Sub