Математические функции (Visual Basic)

Статья
11/05/2008

Обновлен: Ноябрь 2007

Имеющиеся в Visual Basic 6 математические функции были заменены эквивалентными методами класса System.Math .NET Framework.

Заметки

Математические методы .NET Framework функционально идентичны своим аналогам в Visual Basic 6, хотя некоторые из них имеют слегка отличающиеся имена. Например, эквивалентом функции Visual Basic 6 Atn в .NET Framework является функция Atan. В следующей таблице перечислены имена математических функций Visual Basic 6 и эквивалентных методов .NET Framework.

Функция Visual Basic 6	.Метод .NET Framework	Описание
Abs	Abs	Возвращает абсолютное значение заданного числа.
Atn	Atan	Возвращает значение типа Double, содержащее угол, значение тангенса которого равно заданному числу.
Cos	Cos	Возвращает значение типа Double, содержащее косинус заданного угла.
Exp	Exp	Возвращает значение типа Double, содержащее число e (основание натуральных логарифмов) в заданной степени.
Log	Log	Возвращает значение типа Double, содержащее логарифм заданного числа. Этот метод является перегруженным и может возвращать как натуральный логарифм заданного числа (по основанию e), так и логарифм числа по заданному основанию.
Round	Round	Возвращает значение типа Double, содержащее ближайшее к заданному значение. Дополнительные функции округления доступны в качестве методов встроенных типов, например, Round.
Sgn	Sign	Возвращает значение типа Integer, показывающее знак числа.
Sin	Sin	Возвращает значение типа Double, определяющее синус угла.
Sqr	Sqrt	Возвращает значение типа Double, определяющее квадратный корень числа.
Tan	Tan	Возвращает значение типа Double, содержащее тангенс угла.

Кроме того, математический класс .NET Framework предоставляет константы и другие статические методы для тригонометрических, логарифмических и иных распространенных математических функций. Все это может быть использовано в программе на Visual Basic.

Чтобы воспользоваться этими функциями, не указывая их полное наименование, выполните в проекте импорт пространства имен System.Math, добавив в начало исходного кода следующую строку:

'Imports System.Math

Пример

В этом примере метод Abs класса Math используется для вычисления абсолютного значения числа.

' Returns 50.3.
Dim MyNumber1 As Double = Math.Abs(50.3)
' Returns 50.3.
Dim MyNumber2 As Double = Math.Abs(-50.3)

В этом примере метод Atan класса Math используется для вычисления значения числа пи.

Public Function GetPi() As Double
    ' Calculate the value of pi.
    Return 4.0 * Math.Atan(1.0)
End Function

В этом примере метод Cos класса Math используется для возврата косинуса угла.

Public Function Sec(ByVal angle As Double) As Double
    ' Calculate the secant of angle, in radians.
    Return 1.0 / Math.Cos(angle)
End Function

В этом примере метод Exp класса Math используется для возврата числа e, возведенного в степень.

Public Function Sinh(ByVal angle As Double) As Double
    ' Calculate hyperbolic sine of an angle, in radians.
    Return (Math.Exp(angle) - Math.Exp(-angle)) / 2.0
End Function

В этом примере метод Log класса Math используется для возврата натурального логарифма числа.

Public Function Asinh(ByVal value As Double) As Double
    ' Calculate inverse hyperbolic sine, in radians.
    Return Math.Log(value + Math.Sqrt(value * value + 1.0))
End Function

В этом примере метод Round класса Math используется для округления числа до ближайшего целого числа.

' Returns 3.
Dim MyVar2 As Double = Math.Round(2.8)

В этом примере метод Sign класса Math используется для определения знака числа.

' Returns 1.
Dim MySign1 As Integer = Math.Sign(12)
' Returns -1.
Dim MySign2 As Integer = Math.Sign(-2.4)
' Returns 0.
Dim MySign3 As Integer = Math.Sign(0)

В этом примере метод Sin класса Math используется для возврата синуса угла.

Public Function Csc(ByVal angle As Double) As Double
    ' Calculate cosecant of an angle, in radians.
    Return 1.0 / Math.Sin(angle)
End Function

В этом примере метод Sqrt класса Math используется для вычисления квадратного корня числа.

' Returns 2.
Dim MySqr1 As Double = Math.Sqrt(4)
' Returns 4.79583152331272.
Dim MySqr2 As Double = Math.Sqrt(23)
' Returns 0.
Dim MySqr3 As Double = Math.Sqrt(0)
' Returns NaN (not a number).
Dim MySqr4 As Double = Math.Sqrt(-4)

В этом примере метод Tan класса Math используется для возврата тангенса угла.

Public Function Ctan(ByVal angle As Double) As Double
    ' Calculate cotangent of an angle, in radians.
    Return 1.0 / Math.Tan(angle)
End Function