vb如何编写三角形的面积

privatesubcommand1_click()dimmaxfori=1to3n=val(inputbox("输入第"&i&"个数"))ifn>maxthenmax=nendifnextprint

FunctionS(rAsSingle)AsSingle'Function过程Constpi=3.1415926535898S=pi*r^2EndFunctionPrivateSubForm_Clic

运用海伦公式dimPaslong,Saslongifa+b>cthenifb+c>athenifa+c>bthenp=(a+b+c)/2S=sqr(p*(p-a)*(p-b)*(p-c))endife

PrivateFunctionSUM(Fir_LAsDouble,Fir_SAsDouble,Scend_LAsDouble,Scend_SAsDouble)AsDoubleSUM=Fir_L*Fir

PrivateSubCommand1_Click()Dima#,b#,c#,p#Me.AutoRedraw=Truea=3:b=4:c=5Doa=Val(InputBox("请输入三角形第一条边","

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

输入三角形三边长,求三角形面积.#include“math.h”main(){floata,b,c,s,area;scanf(“%f,%f,%f”,&a,&b,&c);s=1.0/2*(a+b+c);

函数定义名Area,参数rFunctionArea(r)Area=3.1415926*r*rEndFunction调用例子：PrivateSubCommand1_Click()Label1.Capti

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

PrivateSubCommand1_Click()DimbjAsSingleDimzzAsSingleDimmjAsSinglebj=CSng(Text1.Text)Ifbj

if(s>=10)or(s

.就知道一个周长,怎么求面积啊?N种可能啊满意请采纳

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

假设知道三角形的三边长为a,b,c.程序如下：#include#includedoublearea(doublea,doubleb,doublec){doublearea=0,s=0;s=(a+b+c

拜托,这么多输入你就用列表啦,用那么多textbox,你不累我看得都累.还有,你要求的是什么尽量用数学的方式表达出来,有图更好至于你的a5d6的问题,是因为你的是字符串运算而不是数值运算,转换一下类型

p=1/4*(2*x*z+y*y-x*x-z*z);应该改为p=1.0/4*(2*x*z+y*y-x*x-z*z);或者p=1/4.0*(2*x*z+y*y-x*x-z*z);原因是：当进行运算时,1

PrivateSubCommand1_Click()Fori=1To9Forj=1ToiPrintTab(9*(j-1));i&"x"&j&"="&i*j;NextPrintNextEndSubPri

//使用海伦公式#include/*ForIO*/#include/*Forsqrt()*/intmain(void){doublea,b,c,p,s;printf("请输入a,b和c：");scan

举个例子

利用海伦公式：S=(p(p-a)(p-b)(p-c))^(1/2);S为三角形面积,a,b,c为三角形三边长,p为三角形半周长（p=（a+b+c)*(1/2))(p(p-a)(p-b)(p-c))^(