三角関数・三角比を求める関数はそれぞれSinメソッド、Cosメソッド、Tanメソッドとして用意されています。 いずれも、角度の単位はラジアン(rad)です。 度数法・弧度法の変換(度⇄ラジアン)を行うメソッドは用意されていないので、必要に応じて変換処理を書く必要があります。 なお、円周率πはMath.PIフィールドを参照することで得られるので、わざわざ定数を定義する必要はありません。
Math.Sin・Cos・Tanメソッドを使って正弦・余弦・正接を求める
Imports System
Class Sample
Shared Sub Main()
Console.WriteLine("Sin(π/6) = {0}", Math.Sin(Math.PI / 6))
Console.WriteLine("Cos(π/4) = {0}", Math.Cos(Math.PI / 4))
Console.WriteLine("Tan(π/3) = {0}", Math.Tan(Math.PI / 3))
Console.WriteLine()
Dim degree As Double = 45.0
Dim radian As Double = Math.PI * degree / 180.0 ' 度数法(度)から弧度法(ラジアン)に変換
Console.WriteLine("Sin({0}°) = {1}", degree, Math.Sin(radian))
Console.WriteLine("Cos({0}°) = {1}", degree, Math.Cos(radian))
Console.WriteLine("Tan({0}°) = {1}", degree, Math.Tan(radian))
End Sub
End Class
実行結果
Sin(π/6) = 0.5 Cos(π/4) = 0.707106781186548 Tan(π/3) = 1.73205080756888 Sin(45°) = 0.707106781186547 Cos(45°) = 0.707106781186548 Tan(45°) = 1