vb編程三角函數
① VB求三角函數
If Combo1.Text = "求Sin" And Combo2.Text = "弧度" Then
Label1.Caption = Sin(a1 * 3.14 / 180)
If Combo1.Text = "求Cos" And Combo2.Text = "弧度" Then
Label1.Caption = Cos(a1 * 3.14 / 180)
If Combo1.Text = "求Tan" And Combo2.Text = "弧度" Then
Label1.Caption = Tan(a1 * 3.14 / 180)
If Combo1.Text = "求Sin" And Combo2.Text = "角度" Then
Label1.Caption = Sin(a1)
If Combo1.Text = "求Cos" And Combo2.Text = "角度" Then
Label1.Caption = Cos(a1)
If Combo1.Text = "求Tan" And Combo2.Text = "角度" Then
Label1.Caption = Tan(a1)
End If
End If
End If
End If
End If
End If
邏輯不對,改成下面這樣
If Combo1.Text = "求Sin" And Combo2.Text = "弧度" Then
Label1.Caption = Sin(a1 * 3.14 / 180)
End If
If Combo1.Text = "求Cos" And Combo2.Text = "弧度" Then
Label1.Caption = Cos(a1 * 3.14 / 180)
End If
If Combo1.Text = "求Tan" And Combo2.Text = "弧度" Then
Label1.Caption = Tan(a1 * 3.14 / 180)
End If
If Combo1.Text = "求Sin" And Combo2.Text = "角度" Then
Label1.Caption = Sin(a1)
End If
If Combo1.Text = "求Cos" And Combo2.Text = "角度" Then
Label1.Caption = Cos(a1)
End If
If Combo1.Text = "求Tan" And Combo2.Text = "角度" Then
Label1.Caption = Tan(a1)
End If
② vb 編寫一個三角函數的程序！幫幫忙阿~
'sin cos tan
Private Sub Form_Load()
Text1.Text = "1"
Label1.Caption = ""
Option1.Caption = "sin"
Option2.Caption = "cos"
Option3.Caption = "tan"
Me.Caption = "請輸入角度"
End Sub
Private Sub Option1_Click()
Label1.Caption = "sin值" & Format(Sin(Text1.Text), "0.000")
End Sub
Private Sub Option2_Click()
Label1.Caption = "cos值" & Format(Cos(Text1.Text), "0.000")
End Sub
Private Sub Option3_Click()
Label1.Caption = "tan值" & Format(Tan(Text1.Text), "0.000")
End Sub
③ VB編寫三角函數的程序
拜託，這么多輸入你就用列表啦，用那麼多textbox，你不累我看得都累。
還有，你要求的是什麼盡量用數學的方式表達出來，有圖更好
至於你的a5 d6 的問題，是因為你的是字元串運算而不是數值運算，轉換一下類型就可以了
c6=clng(a5)+clng(d6)
取整數也要看你需不需要四捨五入，如果不需要，直接強制轉換類型就可以了，如
c8=clng(sqr(clng(d6)*clng(d6)+clng(d7)*clng(d7)))
或
c8=int(sqr(clng(d6)*clng(d6)+clng(d7)*clng(d7)))
如果需要四捨五入可以用 Fix 來實現四捨五入取整，如
c8=Fix(sqr(cdbl(d6)*cdbl(d6)+cdbl(d7)*cdbl(d7)))
當然，如果你希望有小數，可以用如 csng 或 cdbl 轉換類型為單精度或雙精度類型，這要看的的需求了，不過通常做這種三角函數的時候用雙精度類型比較合適。
④ VB中的三角函數程序怎麼寫
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
(4)vb編程三角函數擴展閱讀：
Visual Basic 開發的程序只能運行在Microsoft Windows中；且運行時還需要 VB 運行庫。
Visual Basic 不能很好的綜合Windows的基礎 API，很多時候要使用低級運算的「小伎倆」來進行編程。而C 語言的低級內存運算比 VB 的要簡單得多。
VB語言作為計算機語言的入門，是很多學生學習編程的入門級語言，大學生利用VB語言開始了他們學習計算機的世界。
Visual Basic的強大在於能夠快速開發企業級軟體，使程序員有更多的時間和精力考慮用戶的需求，生產出滿足用戶需要的軟體，特別適合大型企業級軟體的開發，比如MIS、MRP、MRP II、ERP等重量級的軟體，而不是花很長時間去製作一個只有幾K的DLL。
⑤ 用VB計算三角函數
設餘切值為i
反餘切則為atn(1/i)
vb中只反正切的反三角函數，其它反三角函數都需要轉換到此函數來計算。
當然也可以自己編，比較麻煩。
⑥ vb求三角函數和畫三角函數的程序代碼
Private
Sub
Form_Click()'畫正弦函數
Dim
i
As
Single
Me.Scale
(-6,
6)-(6,
-6)
Line
(-6,
0)-(6,
0),
vbRed
Line
(0,
-6)-(0,
6),
vbRed
For
i
=
-6
To
6
Step
0.001
PSet
(i,
Sin(i))
Next
i
End
Sub
要畫餘弦和正切函數，只要把程序中的sin改為cos和tan即可。
⑦ VB中的三角函數怎麼表示
vb中三角函數要求的角度的單位是弧度,不是度,因此你輸入的90代表的是90弧度而不是90度 Sin 函數 返回一 Double，指定參數的 sine（正弦）值。 語法 Sin(number) 必要的 number 參數是 Double 或任何有效的數值表達式，表示一個以弧度為單位的角。 說明 Sin 函數取一角度為參數值，並返回角的對邊長度除以斜邊長度的比值。 結果的取值范圍在 -1 到 1 之間。 為了將角度轉換為弧度，請將角度乘以 pi /180。為了將弧度轉換為角度，請將弧度乘以 180/pi。COS和TAN一樣使用
⑧ 在vb中。如何進行三角函數的程序代碼編寫
有幾個地方要注意：
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寫三角函數程序的代碼
沒有錯，VB的三角函數計算的都是弧度，如果要計算角度需要轉換一下。
比如：
Const PI=3.14159265
y=Sin(x*PI/180)
另外，這里無需再用val函數了，因為sin函數返回的本來就是一個double類型的數值。
⑩ 如何利用VB程序寫三角函數的代碼
vb中三角函數要求的角度的單位是弧度,不是度,因此你輸入的90代表的是90弧度而不是90度
Sin
函數
返回一
Double，指定參數的
sine（正弦）值。
語法
Sin(number)
必要的
number
參數是
Double
或任何有效的數值表達式，表示一個以弧度為單位的角。
說明
Sin
函數取一角度為參數值，並返回角的對邊長度除以斜邊長度的比值。
結果的取值范圍在
-1
到
1
之間。
為了將角度轉換為弧度，請將角度乘以
pi
/180。為了將弧度轉換為角度，請將弧度乘以
180/pi。COS和TAN一樣使用