求助高手一个三角函数公式,如何用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,然后分别输出等式两边的值验证.

　　可是在试运行的时候老出错.

　　我只是看着书上的,一直没实践过.

　　很多基础的都不会.