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]
