求助高手一个三角函数公式,如何用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/05/08 18:59:48

求助高手一个三角函数公式,如何用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++ 语法全乱套.
你的伪代码写的都全了,怎么不去实践实践!

求助高手一个三角函数公式,如何用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程序编辑求助高手如何用chemdraw 画个古怪的图 excel中如何用公式求反三角函数如何用单位圆和诱导公式判断三角函数符号如何用VB随机取一个整数(无范围)? 如何用VB编写一个由*组成的倒三角形 *** * 如何用和角公式(或其他三角函数公式)推出半角公式? 如何用matlab语言描述以下公式,在线等高手》》》》》》》》》》》求助如何用labview编一个数据采集系统, 请教高手：：一个用matlab计算组合数的问题matlab如何用公式或函数求图中简单问题! 如何用VB统计汉字个数rt 如何快速理解三角函数的诱导公式?我不能快速运用!如何用它们解题? vb中如何用随机方式产生一个今天的时间如何用公式算诱导公式如何用