Funciones Matemáticas

Nombre de la Función	Función
Suma	+
Resta	-
Multiplicación	*
División	/
División entera	\
Módulo	Mod
Signo	Sgn(x)
Arco Tangente	Atn(x)
Exponencial	Exp(x) o  ^
Parte entera	Fix(x)
Logaritmo	Log(x)
Redondeo	Round(x, numdec)
Seno	Sin(x)
Coseno	Cos(x)
Tangente	Tan(x)
Valor absoluto	Abs(x)

Aplicación de las funciones matemáticas (Práctica 2)

En todos los casos X representa el número, variable o caja de texto al cual se desea aplicar la función matemática.

En el caso de la función para el redondeo,  Numdec representa el número de decimales que se desea obtener en el redondeo. (Recuerde que debe asignar la función a una variable de tipo double para que muestre decimales).

Las funciones deben asignarse a una variable. Ejemplos:

‘***Redondeo de un número, usando un decimal  / Redondear es una variable de tipo Double

redondear = Round(Val(txtNumero.Text), 1)

‘***Extraer la parte entera de un número / entera es una variable Integer

entera = Fix(Val(txtNumero.Text))

‘***Calcular el valor absoluto / absoluto es una variable Integer

absoluto = Abs(Val(txtNumero.Text))

‘***Calculo del Seno  / Seno es una variable de tipo Double

seno = Sin(Val(txtNumero.Text))

‘************* Verificar que un número sea par o Impar  / papa es una variable de tipo integer

‘La Función Mod divide el número entre 2, y asigna el módulo o resto resultado de la división a la variable papa

papa = Val(txtNumero.Text) Mod 2 

If papa = 0 Then  ‘Si el resto de la división es igual a 0 el número es par

    MsgBox "El Numero es Par", vbExclamation + vbOKOnly, "Par o Impar"

Else  ‘Sino (el resultado de la división es diferente de 0 ) el número es impar

    MsgBox "El Numero es Impar", vbCritical + vbOKOnly, "Par o Impar"

End If

‘*******************Verificar si un número es positivo o negativo

 posneg = Sgn(Val(txtNumero.Text))   ‘Determina el signo de un número / posneg (variable integer)

‘la Función Sgn puede dar como resultados 3 valores:

‘1 (cuando el número es positivo, -1 (si es negativo), 0 (el número es 0).

Select Case posneg   'Evalúa el valor de la variable posneg

        Case 1: MsgBox "El Numero es Positivo", vbExclamation + vbOKOnly, "Positivo o Negativo"

        Case 0: MsgBox "El Numero es Cero", vbInformation + vbOKOnly, "Positivo o Negativo"

        Case -1: MsgBox "El Numero es Negativo", vbCritical + vbOKOnly, "Positivo o Negativo"

End Select

‘Select case es una estructura selectiva de opción múltiple,

'es como la estructura de selección if.... then.... endif, pero más resumido

‘Permite evaluar para una variable (en este caso posneg) los valores Case (case 1, case 0, case -1)

'Debe terminar en End Select