13518219792
有幾個地方要注意：
目前成都創新互聯已為千余家的企業提供了網站建設、域名、雅安服務器托管、成都網站托管、企業網站設計、云浮網站維護等服務，公司將堅持客戶導向、應用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協力一起成長，共同發展。
1、VB中的三角函數的角度全部是用弧度制表示的，如果是度數的話，應先乘以180再除以π轉成弧度，再用函數計算結果。
2、VB中直接支持的三角函數有：Sin()、Cos()、Tan()，如果涉及到其它三角函數，可以從下面列出的代碼中自己選擇相應的函數：
Function
Sec(X)
As
Double
'正割
Sec
=
1
/
Cos(Angle)
End
Function
Function
Csc(X)
As
Double
'余割
Csc
=
1
/
Sin(Angle)
End
Function
Function
Cot(X)
As
Double
'余切
Cot
=
1
/
Tan(Angle)
End
Function
Function
ArcSin(X)
As
Double
'反正弦
ArcSin
=
Atn(X
/
Sqr(-X
*
X
+
1))
End
Function
Function
ArcCos(X)
As
Double
'反余弦
ArcCos
=
Atn(-X
/
Sqr(-X
*
X
+
1))
+
2
*
Atn(1)
End
Function
Function
ArcSec(X)
As
Double
'反正割
ArcSec
=
Atn(X
/
Sqr(X
*
X
-
1))
+
Sgn((X)
-
1)
*
(2
*
Atn(1))
End
Function
Function
ArcCsc(X)
As
Double
'反余割
ArcCsc
=
Atn(X
/
Sqr(X
*
X
-
1))
+
(Sgn(X)
-
1)
*
(2
*
Atn(1))
End
Function
Function
ArcCot(X)
As
Double
'反余切
ArcCot
=
Atn(X)
+
2
*
Atn(1)
End
Function
Function
HSin(X)
As
Double
'雙曲正弦
HSin
=
(Exp(X)
-
Exp(-X))
/
2
End
Function
Function
HCos(X)
As
Double
'雙曲余弦
HCos
=
(Exp(X)
+
Exp(-X))
/
2
End
Function
Function
HTan(X)
As
Double
'雙曲正切
HTan
=
(Exp(X)
-
Exp(-X))
/
(Exp(X)
+
Exp(-X))
End
Function
Function
HSec(X)
As
Double
'雙曲正割
HSec
=
2
/
(Exp(X)
+
Exp(-X))
End
Function
Function
HCsc(X)
As
Double
'雙曲余割
HCsc
=
2
/
(Exp(X)
-
Exp(-X))
End
Function
Function
HCot(X)
As
Double
'雙曲余切
HCot
=
(Exp(X)
+
Exp(-X))
/
(Exp(X)
-
Exp(-X))
End
Function
Function
HArcsin(X)
As
Double
'反雙曲正弦
HArcsin
=
Log(X
+
Sqr(X
*
X
+
1))
End
Function
Function
HArccos(X)
As
Double
'反雙曲余弦
HArccos
=
Log(X
+
Sqr(X
*
X
-
1))
End
Function
Function
HArctan(X)
As
Double
'反雙曲正切
HArctan
=
Log((1
+
X)
/
(1
-
X))
/
2
End
Function
Function
HArcsec(X)
As
Double
'反雙曲正割
HArcsec
=
Log((Sqr(-X
*
X
+
1)
+
1)
/
X)
End
Function
Function
HArccsc(X)
As
Double
'反雙曲余割
HArccsc
=
Log((Sgn(X)
*
Sqr(X
*
X
+
1)
+
1)
/
X)
End
Function
Function
HArccot(X)
As
Double
'反雙曲余切
HArccot
=
Log((X
+
1)
/
(X
-
1))
/
2
End
Function
vb.net提供了許多命名空間，三角函數在?System.Math 命名里：
在代碼窗口的最上面添加如下代碼：
Imports System.Math
見下圖：
VB系統的坐標原點在左上角，X軸的正方向是水平向右，而Y軸的正方向是垂直向下。所以，要繪制三角函數的曲線，自己可以通過改變點坐標的方法來實現，當然，VB.NET提供了相應的方法可以來實現坐標變換，也可以通過VB.Net的Graphics類提供的平移、旋轉等轉換來實現。
下面是我通過自己變換實現的示例，提供參考；我的環境是VB.NET 2010
Imports System.Math
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
? '1，獲得一個Graphics對象
? Dim MyGraphics As Graphics
? MyGraphics = PictureBox1.CreateGraphics
? '2，定義一個Pen對象，用于繪制圖形（輪廓線）
? Dim MyPen As New Pen(Color.Black, 1)
? '3，定義一個Brush對象，用于填充圖形（如果需要填充的話）
? Dim MyBrush As New SolidBrush(Color.Orange)
? MyGraphics.DrawLine(MyPen, 0, 200, 700, 200)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
? '1，獲得一個Graphics對象
? Dim MyGraphics As Graphics
? MyGraphics = PictureBox1.CreateGraphics
? '2，定義一個Pen對象，用于繪制圖形（輪廓線）
? Dim MyPen As New Pen(Color.Black, 1)
? '3，定義一個Brush對象，用于填充圖形（如果需要填充的話）
? Dim MyBrush As New SolidBrush(Color.Orange)
? '聲明橫向和縱向比例變量
? Dim Heng As Integer = 20
? Dim Zong As Integer = 50
? '先獲得正弦值，保存到點坐標數組
? Dim MyPoints(700) As Point
? Dim i As Integer
? For i = 0 To 700
? ? ? MyPoints(i) = New Point(i * Heng, 200 + Sin(i) * Zong)
? Next
? '采用繪制光滑線連接點的方式繪制曲線
? MyGraphics.DrawCurve(MyPen, MyPoints)
End Sub
End Class
顯示的效果圖：
首先vb.net是一種編程語言，它自己是沒有的。
但vb.net與c#、vc++.net等其它編程語言共用一個公共類庫（叫框架類庫），這個類庫在命名空間System中提供了一個類叫Math（Public NotInheritable Class Math）。它為三角函數、對數函數和其他通用數學函數提供了常數和靜態方法，其中就包括Max。
Function ArcSin(X) As Double '反正弦
ArcSin = Atn(X / Sqr(-X * X + 1))
End Function
Function ArcCos(X) As Double '反余弦
ArcCos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
End Function
Function ArcSec(X) As Double '反正割
ArcSec = Atn(X / Sqr(X * X - 1)) + Sgn((X) - 1) * (2 * Atn(1))
End Function
Function ArcCsc(X) As Double '反余割
ArcCsc = Atn(X / Sqr(X * X - 1)) + (Sgn(X) - 1) * (2 * Atn(1))
End Function
Function ArcCot(X) As Double '反余切
ArcCot = Atn(X) + 2 * Atn(1)
End Function
Function HSin(X) As Double '雙曲正弦
HSin = (Exp(X) - Exp(-X)) / 2
End Function
Function HCos(X) As Double '雙曲余弦
HCos = (Exp(X) + Exp(-X)) / 2
End Function
Function HTan(X) As Double '雙曲正切
HTan = (Exp(X) - Exp(-X)) / (Exp(X) + Exp(-X))
End Function
擴展資料：
Visual Basic 開發的程序只能運行在Microsoft Windows中；且運行時還需要 VB 運行庫。
Visual Basic 不能很好的綜合Windows的基礎 API，很多時候要使用低級運算的“小伎倆”來進行編程。而C 語言的低級內存運算比 VB 的要簡單得多。
VB語言作為計算機語言的入門，是很多學生學習編程的入門級語言，大學生利用VB語言開始了他們學習計算機的世界。
Visual Basic的強大在于能夠快速開發企業級軟件，使程序員有更多的時間和精力考慮用戶的需求，生產出滿足用戶需要的軟件，特別適合大型企業級軟件的開發，比如MIS、MRP、MRP II、ERP等重量級的軟件，而不是花很長時間去制作一個只有幾K的DLL。
參考資料來源：百度百科-vb
參考資料來源：百度百科-三角函數
sin(角度值）同理cos,tan
Atn()是VB反正切函數，VB不提供其他反三角函數，不過可以用下列公式導出：
Inverse Sine （反正弦）：
Arcsin(X) = Atn(X / Sqr(-X * X + 1))
Inverse Cosine （反余弦）：
Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
Inverse Secant （反正割）：
Arcsec(X) = Atn(X / Sqr(X * X - 1)) + Sgn((X) - 1) * (2 * Atn(1))
Inverse Cosecant （反余割）：
Arccosec(X) = Atn(X / Sqr(X * X - 1)) + (Sgn(X) - 1) * (2 * Atn(1))
以上這些公式，其實就是應用了數學中的各類三角函數和正切函數之間的關系導出的。其中需要注意的是其中的 X 不能等于正負1。（引用-_-）
x都是弧度制
