calcolatrice con visual basic

VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 
   Caption         =   "UserForm1"
   ClientHeight    =   4650
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5550
   OleObjectBlob   =   "calcola5.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "UserForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

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

Private Sub UserForm_Click()

End Sub