在vb中。如何進行三角函數(shù)的程序代碼編寫

有幾個地方要注意：

創(chuàng)新互聯(lián)公司服務項目包括荷塘網(wǎng)站建設、荷塘網(wǎng)站制作、荷塘網(wǎng)頁制作以及荷塘網(wǎng)絡營銷策劃等。多年來，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術優(yōu)勢、行業(yè)經(jīng)驗、深度合作伙伴關系等，向廣大中小型企業(yè)、政府機構等提供互聯(lián)網(wǎng)行業(yè)的解決方案，荷塘網(wǎng)站推廣取得了明顯的社會效益與經(jīng)濟效益。目前，我們服務的客戶以成都為中心已經(jīng)輻射到荷塘省份的部分城市，未來相信會繼續(xù)擴大服務區(qū)域并繼續(xù)獲得客戶的支持與信任！

1、VB中的三角函數(shù)的角度全部是用弧度制表示的，如果是度數(shù)的話，應先乘以180再除以π轉成弧度，再用函數(shù)計算結果。

2、VB中直接支持的三角函數(shù)有：Sin()、Cos()、Tan()，如果涉及到其它三角函數(shù)，可以從下面列出的代碼中自己選擇相應的函數(shù)：

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 怎樣計算三角函數(shù)例如tan, sin, cos 還有角度的加減

sin正弦函數(shù)，cos余弦函數(shù)，tan正切函數(shù)，cot余切函數(shù) 在直角三角形中，當平面上的三點A、B、C的連線，AB、AC、BC，構成一個直角三角形，其中∠ACB為直角。對∠BAC而言，對邊（opposite）a=BC、斜邊（hypotenuse）c=AB、鄰邊（adjacent）b=AC，

VB三角函數(shù)的使用

'----------------------------當變量值是角度的話----------------------------------

sin

按鈕：顯示=sin(val(text1.text)/180*3.14159)

'顯示就是你要顯示答案的控件名

cos按鈕：顯示=cos

(val(text1.text)/180*3.14159)

tan按鈕：顯示=tan

(val(text1.text)/180*3.14159)

'----------------------------當變量值是弧度的話----------------------------------

sin

按鈕：顯示=sin(val(text1.text))

cos按鈕：顯示=cos

(val(text1.text))

tan按鈕：顯示=tan

(val(text1.text))

VB中的三角函數(shù)程序怎么寫

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 開發(fā)的程序只能運行在Microsoft Windows中；且運行時還需要 VB 運行庫。

Visual Basic 不能很好的綜合Windows的基礎 API，很多時候要使用低級運算的“小伎倆”來進行編程。而C 語言的低級內(nèi)存運算比 VB 的要簡單得多。

VB語言作為計算機語言的入門，是很多學生學習編程的入門級語言，大學生利用VB語言開始了他們學習計算機的世界。

Visual Basic的強大在于能夠快速開發(fā)企業(yè)級軟件，使程序員有更多的時間和精力考慮用戶的需求，生產(chǎn)出滿足用戶需要的軟件，特別適合大型企業(yè)級軟件的開發(fā)，比如MIS、MRP、MRP II、ERP等重量級的軟件，而不是花很長時間去制作一個只有幾K的DLL。

參考資料來源：百度百科-vb

參考資料來源：百度百科-三角函數(shù)

在visual studio中編寫VB程序時sin cos為何不識別，如何才能輸入三角函數(shù)？

vb.net提供了許多命名空間，三角函數(shù)在?System.Math 命名里：

在代碼窗口的最上面添加如下代碼：

Imports System.Math

見下圖：

大佬們~VisualStudio中vb.net如何畫三角函數(shù)圖像？

VB系統(tǒng)的坐標原點在左上角，X軸的正方向是水平向右，而Y軸的正方向是垂直向下。所以，要繪制三角函數(shù)的曲線，自己可以通過改變點坐標的方法來實現(xiàn)，當然，VB.NET提供了相應的方法可以來實現(xiàn)坐標變換，也可以通過VB.Net的Graphics類提供的平移、旋轉等轉換來實現(xiàn)。

下面是我通過自己變換實現(xiàn)的示例，提供參考；我的環(huán)境是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

? '先獲得正弦值，保存到點坐標數(shù)組

? 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

顯示的效果圖：