求助高手一个三角函数公式,如何用VB写出来?Private Sub Form_Load()Dim a,b,c,s1,s2 As Doublea = Text1.Textb = Text2.Textc = a + bs1 = Cos(a * 3.14 / 180)s2 = Cos(a) * Cos(b) + Sin(a) * Sin(b)Text3.Text = s1Text4.Text = s2End Sub目的
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/30 05:50:33
![求助高手一个三角函数公式,如何用VB写出来?Private Sub Form_Load()Dim a,b,c,s1,s2 As Doublea = Text1.Textb = Text2.Textc = a + bs1 = Cos(a * 3.14 / 180)s2 = Cos(a) * Cos(b) + Sin(a) * Sin(b)Text3.Text = s1Text4.Text = s2End Sub目的](/uploads/image/z/4505986-10-6.jpg?t=%E6%B1%82%E5%8A%A9%E9%AB%98%E6%89%8B%E4%B8%80%E4%B8%AA%E4%B8%89%E8%A7%92%E5%87%BD%E6%95%B0%E5%85%AC%E5%BC%8F%2C%E5%A6%82%E4%BD%95%E7%94%A8VB%E5%86%99%E5%87%BA%E6%9D%A5%3FPrivate+Sub+Form_Load%28%29Dim+a%2Cb%2Cc%2Cs1%2Cs2+As+Doublea+%3D+Text1.Textb+%3D+Text2.Textc+%3D+a+%2B+bs1+%3D+Cos%28a+%2A+3.14+%2F+180%29s2+%3D+Cos%28a%29+%2A+Cos%28b%29+%2B+Sin%28a%29+%2A+Sin%28b%29Text3.Text+%3D+s1Text4.Text+%3D+s2End+Sub%E7%9B%AE%E7%9A%84)
求助高手一个三角函数公式,如何用VB写出来?Private Sub Form_Load()Dim a,b,c,s1,s2 As Doublea = Text1.Textb = Text2.Textc = a + bs1 = Cos(a * 3.14 / 180)s2 = Cos(a) * Cos(b) + Sin(a) * Sin(b)Text3.Text = s1Text4.Text = s2End Sub目的
求助高手一个三角函数公式,如何用VB写出来?
Private Sub Form_Load()
Dim a,b,c,s1,s2 As Double
a = Text1.Text
b = Text2.Text
c = a + b
s1 = Cos(a * 3.14 / 180)
s2 = Cos(a) * Cos(b) + Sin(a) * Sin(b)
Text3.Text = s1
Text4.Text = s2
End Sub
目的是为了用
cos(α+β)=cosαcosβ-sinαcosβ
获取a、b,然后分别输出等式两边的值验证.
可是在试运行的时候老出错.
我只是看着书上的,一直没实践过.
很多基础的都不会.
求助高手一个三角函数公式,如何用VB写出来?Private Sub Form_Load()Dim a,b,c,s1,s2 As Doublea = Text1.Textb = Text2.Textc = a + bs1 = Cos(a * 3.14 / 180)s2 = Cos(a) * Cos(b) + Sin(a) * Sin(b)Text3.Text = s1Text4.Text = s2End Sub目的
都写到这个地步了 还上网来问?
Dim a,b,c,k1,k2,s1,s2 As Double
a = Value(Text1.Text);
b = Value(Text2.Text);
k1=a * 3.14 / 180;
k2=b* 3.14 / 180;
s2 = Cos(k1) * Cos(k2) - Sin(k1) * Sin(k2);
s1=cos(K1+K2);
貌似如此!最进在学C++ 语法全乱套.
你的伪代码写的都全了,怎么不去实践实践!