secante

esci con testvba.htm

secante.ppt

studio di funzione secante e cosecante

Private Sub CommandButton1_Click()
Rem cosecante
cosecante.Visible = True
ListBox1.AddItem ("funzione cosecante y = cosec(x) = 1/sin(x) ")
For a = 1 To 380 Step 11
x = a * 3.14 / 180
y = 1 / Sin(x)
ListBox1.AddItem ("a = " & a & " y = " & y)
Next a

End Sub

Private Sub CommandButton2_Click()
Rem secante
secante.Visible = True
ListBox1.AddItem ("funzione secante y = sec(x) = 1/cos(x) ")
For a = -80 To 380 Step 11
x = a * 3.14 / 180
y = 1 / Cos(x)
ListBox1.AddItem ("a = " & a & " y = " & y)
Next a
End Sub

Private Sub CommandButton3_Click()
secante.Visible = False
cosecante.Visible = False
End Sub

Private Sub CommandButton5_Click()
ListBox1.Clear
End Sub

Private Sub UserForm_Click()

End Sub