calcolo funzioni matematiche

Private Sub arcotan_Click()
risposta.Caption = Atn(intero)
End Sub

Private Sub assoluto_Click()
risposta.Caption = Abs(intero)
End Sub

Private Sub casuale_Click()
risposta.Caption = Rnd(intero)
End Sub

Private Sub CommandButton15_Click()
risposta.Caption = Atn(intero)
End Sub

Private Sub coseno_Click()
risposta.Caption = Cos(intero)
End Sub

Private Sub cotangente_Click()
risposta.Caption = (Sin(intero)) / (Cos(intero))
End Sub

Private Sub cubo_Click()
risposta.Caption = intero ^ 3
End Sub

Private Sub esponenziale_Click()
risposta.Caption = Exp(intero)
End Sub

Private Sub integro_Click()
risposta.Caption = Int(intero)
End Sub

Private Sub Label17_Click()

End Sub




Private Sub calcola_Click()
integro.Caption = "intero=" & Int(intero)
assoluto.Caption = "assoluto=" & Abs(intero)
casuale.Caption = "casuale=" & Rnd(intero)
radice.Caption = "radice=" & Sqr(intero)
logna.Caption = "logna=" & Log(intero)
log10.Caption = "log10=" & Log(intero) / Log(10)
seno.Caption = "seno=" & Sin(intero)
coseno.Caption = "coseno=" & Cos(intero)
tangente.Caption = "tangente=" & Tan(intero)
cotangente.Caption = "cotangente=" & Sin(intero) / Cos(intero)
esponenziale.Caption = "esponenziale=" & Exp(intero)
quadrato.Caption = "quadrato=" & intero * intero
cubo.Caption = "cubo=" & intero ^ 3
potenza4.Caption = "potenza4=" & intero ^ 4
arcotan.Caption = "arcotangente=" & Atn(intero)
segno.Caption = "segno=" & Sgn(intero)
End Sub

inizio