kqmatefunzioni
esci con testvbax.htm
variabili e funzioni matematiche
con vba
Option Explicit
Private Sub CommandButton1_Click()
Dim x As Integer
Dim gradi As Integer
Dim radianti As Single
x = 100
Cells(1, 2) = ("(ABS(numero) (Abs(-10))fornisce assoluto del
numero")
Cells(1, 1) = (Abs(-10))
Cells(2, 1) =
("----------------------------------------------------------------------")
Cells(3, 2) = ("sgn(numero) (Sgn(-5)fornisce segno del
numero +1,0,-1")
Cells(3, 1) = (Sgn(-5))
Cells(4, 1) =
("----------------------------------------------------------------------")
Cells(5, 2) = ("sqr(numero) (Sqr(100)fornisce radice
quadrata numero")
Cells(5, 1) = (Sqr(100))
Cells(6, 1) =
("----------------------------------------------------------------------")
Cells(7, 2) = ("Log(numero) Csng((Log(100))) fornisce
logaritmo naturale del numero")
Cells(7, 1) = (CSng(Log(100)))
Cells(8, 1) =
("----------------------------------------------------------------------")
Cells(9, 2) = ("Log(numero)/Log(10) (Log(100) /
Log(10))fornisce logaritmo decimale del numero")
Cells(9, 1) = (Log(100) / Log(10))
Cells(10, 1) =
("----------------------------------------------------------------------")
Cells(11, 2) = ("Exp(numero) CSng((Exp(5))) fornisce
esponenziale del numero")
Cells(11, 1) = (CSng(Exp(5)))
Cells(12, 1) =
("----------------------------------------------------------------------")
Cells(13, 2) = ("x^2 (10 ^ 2) (10 ^ 3) (2 ^ 4) (12.5 ^ 2)
fornisce quadrato del numero o altra potenza")
Cells(13, 1) = (10 ^ 2)
Cells(14, 1) = (10 ^ 3)
Cells(15, 1) = (2 ^ 4)
Cells(16, 1) = (12.5 ^ 2)
Cells(17, 1) =
("-*********************************************************************")
Cells(18, 2) = ("x+y = (100 + 50) somma numeri x-y = (100 -
50 differenza numeri")
Cells(18, 1) = (100 + 50)
Cells(19, 1) = (100 - 50)
Cells(20, 1) =
("----------------------------------------------------------------------")
Cells(21, 2) = ("x*y = (100 * 2)prodotto numeri x/y = (100 /
5)quoziente numeri")
Cells(22, 1) = (100 * 2)
Cells(23, 1) = (100 / 5)
Cells(24, 1) =
("----------------------------------------------------------------------")
Cells(25, 2) = (" mod y (12 Mod 5)fornisce resto
divisione")
Cells(26, 1) = (12 Mod 5)
Cells(27, 2) =
("-***********************************************************************")
Cells(28, 2) = ("(int(numero) (Int(35.46))fornisce parte
intera del numero")
Cells(28, 1) = (Int(35.46))
Cells(20, 1) =
("----------------------------------------------------------------------")
Cells(30, 2) = ("(Cint(numero) (CInt(35.66))arrotonda a
intero successivo")
Cells(30, 1) = (CInt(35.66))
Cells(31, 1) =
("----------------------------------------------------------------------")
Cells(32, 2) = ("(Fix(numero) (Fix(35.46))fornisce parte
intera del numero")
Cells(32, 1) = (Fix(35.46))
Cells(33, 1) =
("----------------------------------------------------------------------")
Cells(34, 2) = ("(CSng(numero) (CSng(123.45678945))arrotonda
con precisione singola")
Cells(35, 1) = (CSng(123.45678945))
Cells(36, 1) = ("(CDbl(numero) (CDbl(123.45678945))arrotonda
con precisione doppia")
Cells(37, 1) = (CDbl(123.4567845))
Cells(38, 1) =
("----------------------------------------------------------------------")
Cells(39, 2) = ("(numero-int(numero)) Csng(123.567895678 -
int(123.567895678))) parte decimale del numero")
Cells(39, 1) = (CSng(123.567895678 - Int(123.567895678)))
Cells(40, 1) =
("----------------------------------------------------------------------")
Cells(41, 2) = ("(Hex$(numero) Hex(220)fornisce valore
esadecimale del numero")
Cells(41, 1) = (Hex$(220))
Cells(42, 1) =
("----------------------------------------------------------------------")
Cells(43, 2) = ("(Oct$(numero) (Oct$(172))cambia da decimale
a ottale")
Cells(43, 1) = (Oct$(172))
Cells(44, 1) =
("----------------------------------------------------------------------")
Cells(45, 2) = ("(Rnd()) )fornisce numero casuale inferiore
a 1")
Cells(45, 1) = (Rnd())
Cells(46, 1) =
("----------------------------------------------------------------------")
Cells(47, 2) = ("(int(Rnd()*100+1 intero casuale tra 1 e
100")
Cells(47, 1) = (Int(Rnd() * 100 + 1))
Cells(48, 1) =
("----------------------------------------------------------------------")
Cells(49, 2) = ("(int(Rnd()*6+1 intero casuale tra 1 e
6")
Cells(49, 1) = (Int(Rnd() * 6 + 1))
Cells(50, 1) =
("----------------------------------------------------------------------")
Cells(51, 2) = ("funzioni trigonometriche di angoli in
radianti")
Cells(52, 1) = 30
Cells(53, 1) = Cells(52, 1) * 3.14 / 180
Cells(54, 2) = ("gradi conertiti in radianti ")
Rem Cells(55, 1) =
("----------------------------------------------------------------------")
Cells(56, 1) = 0.57
Cells(57, 1) =
("----------------------------------------------------------------------")
Cells(58, 2) = CSng(Sin(Cells(56, 1)))
Cells(59, 1) =
("----------------------------------------------------------------------")
Cells(60, 2) = CSng(Cos(Cells(56, 1)))
Cells(61, 1) =
("----------------------------------------------------------------------")
Cells(62, 2) = CSng(Tan(Cells(56, 1)))
Cells(63, 1) =
("----------------------------------------------------------------------")
Cells(64, 2) = CSng(Atn(Cells(56, 1)))
Cells(65, 1) =
("----------------------------------------------------------------------")
End Sub
Private Sub UserForm_Click()
End Sub
