求助高手一个三角函数公式,如何用VB写出来?

来源：学生作业帮编辑：大师作文网作业帮分类：综合作业时间：2024/11/12 07:37:36

求助高手一个三角函数公式,如何用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,然后分别输出等式两边的值验证.
可是在试运行的时候老出错.
我只是看着书上的,一直没实践过.
很多基础的都不会.

都写到这个地步了还上网来问?
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写出来? 如何用数学三角函数公式求边求助高手：如何用拉格朗日方程解这道题三角函数如何用计算器来求一元二次方程求根公式式如何用VB程序编辑 excel中如何用公式求反三角函数如何用三角函数计算三角形的度数公式? 如何用单位圆和诱导公式判断三角函数符号求助高手如何用chemdraw 画个古怪的图如何用VB随机取一个整数(无范围)? 如何用VB来制作一个解一元一次方程的程序,界面已有（如下图）,只求代码!如：4x+1=5 x=? 求助给你一个塑料件,如何用solidworks画出来?具体步骤能否说清楚,还有什么相机拍摄什么的,