用vb编程的计算器怎么样编写正弦和余弦函数

一般都是用角度值求三角函数，需要把角度值换算成弧度值。代码如下：

成都网站建设哪家好，找成都创新互联！专注于网页设计、网站建设、微信开发、小程序制作、集团成都定制网页设计等服务项目。核心团队均拥有互联网行业多年经验，服务众多知名企业客户；涵盖的客户类型包括：成都小搅拌车等众多领域，积累了大量丰富的经验，同时也获得了客户的一致称誉！

Dim a

Dim pin As Double

Private Sub Form_Load()

pin = 3.14159265358979

End Sub

Private Sub Command1_Click() '求sin按键

a = Sin((Tex_in) * 2 * pin / 360)

Tex_out = a

End Sub

Private Sub Command2_Click() ' 求cos按键

a = Cos((Tex_in) * 2 * pin / 360)

Tex_out = a

End Sub

vb根据坐标求角度

Option Explicit

Dim Xpos(2) As Single, Ypos(2) As Single

Dim n As Integer

Private Sub DrawTriangle() '画三角形

Form1.DrawWidth = 2

Line (Xpos(0), Ypos(0))-(Xpos(1), Ypos(1)), QBColor(12)

Line (Xpos(1), Ypos(1))-(Xpos(2), Ypos(2)), QBColor(12)

Line (Xpos(2), Ypos(2))-(Xpos(0), Ypos(0)), QBColor(12)

End Sub

Private Function TwoPointDist(X1 As Single, Y1 As Single, X2 As Single, Y2 As Single) As Double

TwoPointDist = Sqr((X2 - X1) ^ 2 + (Y2 - Y1) ^ 2)

End Function

Private Sub MySub()

Dim AB As Double, BC As Double, CA As Double

AB = TwoPointDist(Xpos(0), Ypos(0), Xpos(1), Ypos(1))

BC = TwoPointDist(Xpos(1), Ypos(1), Xpos(2), Ypos(2))

CA = TwoPointDist(Xpos(2), Ypos(2), Xpos(0), Ypos(0))

Dim TriB As Double '∠B

Dim CosB As Double, SinB As Double

CosB = (BC ^ 2 + AB ^ 2 - CA ^ 2) / (2 * BC * AB)

SinB = Sqr(1 - CosB ^ 2)

TriB = Atn(SinB / CosB) * (180 / 3.14159) '弧度转换为度数

Form1.CurrentX = 0

Form1.CurrentY = 0

Print " AB="  Format(AB, "0.0000")

Print " BC="  Format(BC, "0.0000")

Print " CA="  Format(CA, "0.0000")

Print " ∠B="  Format(TriB, "0.0000")  "°"

End Sub

Private Sub Command1_Click()

n = 0

Form1.Cls

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If n = 3 Then Exit Sub

Xpos(n) = X

Ypos(n) = Y

Form1.CurrentX = X: Form1.CurrentY = Y

Print Chr(65 + n)  "("; Xpos(n)  ","  Ypos(n)  ")"

If n = 2 Then

DrawTriangle

MySub

End If

n = n + 1

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label2 = "X="  Format(X, "0.0000")  "Y="  Format(Y, "0.0000")

End Sub

知道余弦值怎么求角度

问题一：已知余弦值求角度，不要计算机 假设余弦值是0.4，要求该角度是多少，如果没有计算器，也没有三角函数表，那么可以采用画图的方式，来估算该角度值，当然了，图画得越大，越精准，估算值就越接近实际的计算值，也就是越准确。

至于怎么画图，可以在地上画，也可以在纸上画。根据实际情况来决定。在纸上一般可以用单位圆，再用量角器。然后量角器你可以把角的边延长后再修正，经过多次修正后，应该能提高精度。

实际上，如果有一部智能手机，就像你刚才用来提问的手机，就是按两个键而已，呵呵。到网上下一个可以求反三角函数的计算器，装到手机上，又快又准，不用是傻瓜，哈哈。

问题二：知道余弦的值怎么用计算器求度数 那种卡西欧的计算机 按一下shift再按sin或者cos就会出来一个sin-1( 然后输入数值求得度数

问题三：知道余弦值如何求角度？ 用arccos反余弦函数就可以求出来了。

问题四：知道正弦余弦值怎么求角度 sinx=a,cosx=b。根据a,b的值首先确定象限，然后x=arcsina根据条件确定是否π-。最后保持无数解的形式，+2kπ

知道余弦值怎么求角度？

知道一个余弦值，这样求角度：

方法与步骤如下：

假设cosa=0.65，a=arccos0.65，a≈49.4584度

1、用科学计算器数字键输入0.65，如下图：

2、按科学计算器上红框这个键，如下图：

3、再按科学计算器上这个红框的键，如下图：

4、按下这个键，0到180度之间的角度就计算出来了，如下图：

扩展资料：

cosa=0.65，a=arccos0.65，a≈49.4584度

y=cosx叫余弦（余弦函数），三角函数的一种。在Rt△ABC（直角三角形）中，∠C=90°，∠A的余弦是它的邻边比三角形的斜边，即cosA=邻边/斜边。余弦函数：f(x)=cosx（x∈R）。

求0到180度之间的角的函数叫反余弦函数：y=arccosx（x∈[-1，+1]，y∈[0度，180度]）

在数学中，反三角函数（偶尔也称为弓形函数（arcus functions），反向函数（antitrigonometric functions）或环形函数（cyclometric functions））是三角函数的反函数（具有适当的限制域）。 具体来说，它们是正弦，余弦，正切，余切，正割和辅助函数的反函数，并且用于从任何一个角度的三角比获得一个角度。 反三角函数广泛应用于工程，导航，物理和几何。

反余弦函数（反三角函数之一）为余弦函数y=cosx（x∈[0,π]）的反函数，记作y=arccosx或cosy=x(x∈[-1,1]).。由原函数的图像和它的反函数的图像关于一三象限角平分线对称可知余弦函数的图像和反余弦函数的图像也关于一三象限角平分线对称。

参考资料来源：百度百科-余弦函数

参考资料来源：百度百科-反余弦函数

文章题目：vb点虐 余弦值求角度 vb求余数
网页路径：http://hbruida.cn/article/ddehcid.html