来自郭春丽的问题
求助高手一个三角函数公式,如何用VB写出来?PrivateSubForm_Load()Dima,b,c,s1,s2AsDoublea=Text1.Textb=Text2.Textc=a+bs1=Cos(a*3.14/180)s2=Cos(a)*Cos(b)+Sin(a)*Sin(b)Text3.Text=s1Text4.Text=s2EndSub目的
求助高手一个三角函数公式,如何用VB写出来?
PrivateSubForm_Load()
Dima,b,c,s1,s2AsDouble
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
EndSub
目的是为了用
cos(α+β)=cosαcosβ-sinαcosβ
获取a、b,然后分别输出等式两边的值验证.
可是在试运行的时候老出错.
我只是看着书上的,一直没实践过.
很多基础的都不会.
