funzioni trigonometriche

confronto tra semplice foglio excel e uso di vba

vedi doppio1.xls

Private Sub CommandButton1_Click()
For angolo = 10 To 90 Step 10
radiante = Left((angolo * 3.14 / 180), 5)
seno = Left((Sin(radiante)), 5)
coseno = Left((Cos(radiante)), 5)
tangente = Left((Tan(radiante)), 5)
arcotangente = Left((Atn(tangente)), 5)
ListBox1.AddItem (angolo & " radiante " & radiante & " seno= " & seno & " coseno= " & coseno & " tangente= " & tangente & " arcotangente= " & arcotangente)
Next angolo

End Sub

Private Sub CommandButton2_Click()
ListBox1.Clear
End Sub

scrivere valoiri degli angoli in gradi nella colonna A1-A9 e legenda in riga 9

inserire le formule come indicato:visualizzare formule con strumenti-Opzioni-Formule

Private Sub CommandButton1_Click()
r = 1
For angolo = 10 To 90 Step 10
radiante = (angolo * 3.14 / 180)
seno = Sin(radiante)
coseno = Cos(radiante)
tangente = Tan(radiante)
arcotangente = Atn(tangente)
Cells(r, 1) = angolo
Cells(r, 2) = radiante
Cells(r, 3) = seno
Cells(r, 4) = coseno
Cells(r, 5) = tangente
Cells(r, 6) = arcotangente
r = r + 1
Next angolo
End Sub

Private Sub CommandButton2_Click()
For r = 1 To 10
For c = 1 To 6
Cells(r, c) = ""
Next c
Next r
End Sub

variante con stampa dati i celle del foglio e non in listbox1

indice