Private Sub Command1_Click()
Dim a As Integer
a = -10
'Restituisce il valore assoluto di un numero
Label1.Caption = Abs(a)
End Sub
Private Sub Command2_Click()
'Restituisce un numero che indica il segno di una espressione numerica:
' 1 se è positiva
' 0 se è nulla
' -1 se è negativa
Label1.Caption = Sgn(-18)
End Sub
Private Sub Command3_Click()
'Restituisce un numero intero immediatamente inferiore o uguale ad un'espressione numerica
Label1.Caption = Int(18.4)
End Sub
Private Sub Command4_Click()
'Restituisce un numero senza la parte decimale
Label1.Caption = Fix(18.9)
End Sub
Private Sub Command5_Click()
'Restituisce il logaritmo di un numero
Label1.Caption = Log(Exp(1))
End Sub
Private Sub Command6_Click()
'Restituisce il valore di e*
Label1.Caption = Exp(2)
End Sub
Private Sub Command7_Click()
'Restituisce la radice quadrata di un numero
Label1.Caption = Sqr(25)
End Sub
Private Sub Form_Unload(Cancel As Integer)
MsgBox "By Roberto VB - 30/4/2007"
End Sub