Question

VB中的三角函数程序怎么写

就是说使用者可以输入一个数,然后旁边有三个键(sin,cos,tan).
可以求出输入的角的三角函数

Answer 1

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

参考资料来源：百度百科-三角函数

Answer 2

vb中三角函数要求的角度的单位是弧度,不是度,因此你输入的90代表的是90弧度而不是90度

Sin 函数

返回一 Double，指定参数的 sine（正弦）值。

语法
Sin(number)
必要的 number 参数是 Double 或任何有效的数值表达式，表示一个以弧度为单位的角。
说明
Sin 函数取一角度为参数值，并返回角的对边长度除以斜边长度的比值。
结果的取值范围在 -1 到 1 之间。
为了将角度转换为弧度，请将角度乘以 pi /180。为了将弧度转换为角度，请将弧度乘以 180/pi。

COS和TAN一样使用

Answer 3

直接用cos sin tan求就行啊。
第一个按钮用sin 计算输入框的值，完了再在输入框输出。
第二个按钮用cos计算输入框的值。……很基础的东西啊。

Answer 4

Dim n As Double, a1 As Double, a2 As Double, a3 As Double
n = 1.2
a1 = Tan(n)
a2 = Sin(n)
a3 = Cos(n)

Answer 5

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