育才学习网1.如何利用VB程序写三角函数的代码
vb中三角函数要求的角度的单位是弧度，不是度，因此你输入的90代表的是90弧度而不是90度 Sin 函数 返回一 Double，指定参数的 sine（正弦）值。
语法 Sin(number) 必要的 number 参数是 Double 或任何有效的数值表达式，表示一个以弧度为单位的角。 说明 Sin 函数取一角度为参数值，并返回角的对边长度除以斜边长度的比值。
结果的取值范围在 -1 到 1 之间。 为了将角度转换为弧度，请将角度乘以 pi /180。
为了将弧度转换为角度，请将弧度乘以 180/pi。COS和TAN一样使用。
2.在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。
3.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
扩展资料：
Visual Basic 开发的程序只能运行在Microsoft Windows中；且运行时还需要 VB 运行库。
Visual Basic 不能很好的综合Windows的基础 API，很多时候要使用低级运算的“小伎俩”来进行编程。而C 语言的低级内存运算比 VB 的要简单得多。
VB语言作为计算机语言的入门，是很多学生学习编程的入门级语言，大学生利用VB语言开始了他们学习计算机的世界。
Visual Basic的强大在于能够快速开发企业级软件，使程序员有更多的时间和精力考虑用户的需求，生产出满足用户需要的软件，特别适合大型企业级软件的开发，比如MIS、MRP、MRP II、ERP等重量级的软件，而不是花很长时间去制作一个只有几K的DLL。
参考资料来源：百度百科-vb
参考资料来源：百度百科-三角函数
4.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三角函数代码怎么写