VB计算三角形周长和面积

有现成公式,m=(a+b+c)/2;area=sqrt(m*(m-a)*(m-b)*(m-c));area为面积别问我怎么来的,我也不清楚,但绝对好用周长就不用我说了吧

1、三角形(一般三角形,海伦公式)周长L=a+b+c(a,b,c为三角形的三个边的长,下同)面积S=√[p(p-a)(p-b)(p-c)],p=(1/2)(a+b+c)2、长方形周长L=2(a+b)(

C长=2*（a+b)S长=abS角=1/2*ah

就两个公式嘛圆的周长＝2×半径×圆周率＝直径×圆周率 即：圆的周长＝2πr 或πD面积：s=πr² 或s=π(d/2)²程序,自己弄一个textbox

知道三角形的三边长求面积需要用到海伦公式(海伦公式:假设有一个三角形,边长分别为a、b、c,三角形的面积S可由以下公式求得：S=√[p(p-a)(p-b)(p-c)]其中：p=(a+b+c)/2)这样

classShape{voidarea(){}voidcircle(){}}publicclassTriangleextendsShape{floatarea(floati,floatj){retur

设正方形每边用n枚硬币,四边总共用(4n-4)枚硬币.（注意四个顶点是重复计数的,要减去,下面三角形也同理.）依题意,三角形每边用(n+5)枚硬币,三边总共用[3(n+5)-3]枚硬币.硬币总数是一样

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

正：四边相等,且相互平行；四个内角相等；邻角互补；两对角线相交于一点,且相等,互相平分；有四条对称轴；是中心点对称图形；是特殊的菱形,平行四边形.面积：底*高长：两组对边相等,且平行；四个内角相等；邻

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

1、已知三角形三边abc,那么周长2P=a+b+c2、那么它的面积=根号下【P（P-a）（P-b）（P-c）】,注P为三角形周长的一半.

SETTALKOFFclearinput"a="toainput"b="tobinput"c="tocifa+b>canda+c>bandb+c>cs=(a+b+c)/2area=sqrt(s*(s-

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

三角形：S=1/2ah或者S=1/2absinCC=a+b+c圆：S=πR^2C=2πR

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

他们的答案好像都没有输出结果.Dim r, s, c As IntegerPrivate Sub Command1_Click()

你只需要编程么?PrivateSubCommand1_Click()IfVal(Text1.Text)>0AndVal(Text2.Text)>0ThenLabel1.Caption="长方形的面积为

三角形的周长=三条边长的和（三条边长度相加）三角形面积=底×高÷2

constpi=3.1416subcircle（byvalrassingle,Lassingle,aassingle,VASSINGLE）L=2*pi*rA=pi*r*rV=4/3*r*r*r*pie

#include#include#includeusingnamespacestd;classTriangle{inta,b,c;public:doubleArea(){doubles=(a+b+c)