vb 写个程序 给三角形三边求一个角 用余弦定理 Private Sub Command1_Click()a=30b=30c=30Print\"三边长为:;a;b;cx=(c*c-(a*a+b*b))/(2*a*b)Angle_C=Atn(-x/Sqr(-x*x+1))+2*Atn(1)Print\"角C=;Round(Angle_C/3.1415926*180,2);度End Sub
VB题目:输入三角形的三边编程求出面积 Private Sub Command1_Click()Dim a#,b#,c#,p#Me.AutoRedraw=Truea=3:b=4:c=5Doa=Val(InputBox(\"请输入三角形第一条边\",\"输入\",a))b=Val(InputBox(\"请输入三角形第二条边\",\"输入\",b))c=Val(InputBox(\"请输入三角形第三条边\",\"输入\",c))If a a Thenp=(a+b+c)/2 'S=√[p(p-a)(p-b)(p-c)](海伦公式)(p=(a+b+c)/2))Print\"面积:;(p*(p-a)*(p-b)*(p-c))^0.5Exit SubElseMsgBox\"你输入的数据构成不了三角形。vbQuestion+vbOKOnly,\"请检查输入End IfLoopEnd Sub
用余弦的话能求出三角形的面积吗,就像S=1/2absinC这样的公式 用余弦是不能直接求三角形的面积的,可以把余弦转化为正弦再求因为△的内角小于180°,所以正弦值都大于0sina=√[1-(cosa)^2]