判断三角形类型以及计算面积VB

PrivateSubCommandButton1_Click()Dima!,b!,c!,p!,s!,tmpa=Val(text1.Text)'转换为数字b=Val(text2.Text)c=Val(t

Subabc()'输入三角形三个边长,计算其面积Dima,b,c,sDos=InputBox("请输入三角形的三个边长,用半角逗号分隔."&Chr(13)&"输入-1时结束程序.")IfVal(s)=

单击Command1即可.代码如下.DimaAsSingle,bAsSingle,cAsSingle,pAsSingle,SAsSinglePrivateSubCommand1_Click()OnEr

一个text控件PrivateSubForm_Load()DimRAsDoubleDimSAsDoubleR=Val(Text1.Text)S=3.14*(R^2)MsgBoxStr(S)EndSu

PrivateSubForm_Load()DoDimaAsSingle,bAsSingle,cAsSingle,pAsSingle,sAsSinglea=Val(InputBox("请输入三角形第1条

//点的坐标最好用结构类型表示typedefstruct{intx;inty;}Point;//初始化点的坐标voidinitPoint(Point&p,intpx,intpy)//符号&为C++中的

PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingle,pAsSingle,sAsSinglea=Val(Text1.Text)b=Val

A=[1,2];B=[6,2];C=[3,7];AB=B-A;AC=C-A;M=[AB;AC];S=1/2*det(M);%求出三角形的面积%%第二个问题首先新建一个M函数文件,里面内容如下funct

PrivateSubCommand1_Click()Dima,b,c,area,cca=Val(InputBox("请输入第一个数"))b=Val(InputBox("请输入第二个数"))c=Val(

低乘高再除以二

三角形面积的计算公式是area=Sqr(s*(s-a)*(s-b)*(s-c)),其中,s=(a+b+c)/2PrivateSubForm_Load()DoDimaAsSingle,bAsSingle

判断写错,改完的：PrivateSubCommand1_Click()DimaAsStringDimh,l,sAsSinglea=InputBox("请输入形状（只限于长方形~正方形或三角形）","请

声明变量,并声明数据类型,否则,A,B,C三个变量是String,表达式(A+B+C)的结果不是12,而是"345".

设三边分别为a,b,c.若a的平方+b的平方c的平方,则c为锐角；若a的平方＋b的平方＝c的平方,则c为直角；若a的平方＋b的平方＜c的平方,则c为钝角．这是高一要学的余弦定理．好象要知道角才能求面积

提示：1,根据两点公式,长的三面：L1=SQR（（X1-X2）^2+（Y1-Y2）^之间的距离,可以计算出2）2,长的三面,发现该地区的?一个三角形,根据海伦公式求.

PrivateSubCommand1_Click()a=Val(InputBox("输入a的长"))b=Val(InputBox("输入b的长"))c=Val(InputBox("输入c的长"))If

PrivateSubForm_Load()Dima,b,cAsSingleDimp,sAsSinglea=Val(InputBox("请输入边长1"))b=Val(InputBox("请输入另一边长"

两条小边的和大于第三边,即成三角形.面积：S＝ah/2(2).已知三角形三边a,b,c,则　　（海伦公式）（p=(a+b+c)/2）　　S=√[p(p-a)(p-b)(p-c)]　　=（1/4）√[(

我来用自然语言先说一下吧.你可以创建三个文本框,用它来输入三条边的值.创建一个标签,用来作回答提示.用一个按钮来进行判别请求.先来说说文本框,它只能输入数字,因此,要在文本框的key_press事件中

该命题为真.sinA=cosB两边平方,得:(sinA)^2=1-(cosA)^2=1-(sinB)^2=(cosB)^2所以cosA=sinB设第三个角为C,则:sinC=sin(180-A-B)=