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一样使用