vb求任意一三角形面积
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/15 00:24:53
有现成公式,m=(a+b+c)/2;area=sqrt(m*(m-a)*(m-b)*(m-c));area为面积别问我怎么来的,我也不清楚,但绝对好用周长就不用我说了吧
运用海伦公式dimPaslong,Saslongifa+b>cthenifb+c>athenifa+c>bthenp=(a+b+c)/2S=sqr(p*(p-a)*(p-b)*(p-c))endife
定义一个command四个label四个text.具体属性为command.caption=计算label1.caption=第一条边的长度:label2.caption=第二条边的长度:label3
1/2*a*b*sin
PrivateFunctionSUM(Fir_LAsDouble,Fir_SAsDouble,Scend_LAsDouble,Scend_SAsDouble)AsDoubleSUM=Fir_L*Fir
单击Command1即可.代码如下.DimaAsSingle,bAsSingle,cAsSingle,pAsSingle,SAsSinglePrivateSubCommand1_Click()OnEr
三角形三中线将三角形等分为六个面积相同的三角形
PrivateSubForm_Load()DoDimaAsSingle,bAsSingle,cAsSingle,pAsSingle,sAsSinglea=Val(InputBox("请输入三角形第1条
dima,b,cPrivateSubText1_Change()a=Val(Text1)EndSubPrivateSubText2_Change()b=Val(Text2)EndSubPrivateS
是VB,就做界面.先做一个窗体,其上有四个文本框,text1、text2、text3、text4依次输入边长a、b、角A的值,在text4中输出面积,你可以在前面加上标签说明再加一个命令按钮comma
1、已知三角形三边abc,那么周长2P=a+b+c2、那么它的面积=根号下【P(P-a)(P-b)(P-c)】,注P为三角形周长的一半.
设三角形ABC,对应三边为a、b、c过A作对边高线AD交BC于D设BD=x直角三角形ABD和ACD有一个共同点的直角边AD,列方程得:a^2-x^2=b^2-(c-x)^2解出x,求出高,根号(a^2
PrivateSubCommand1_Click()Dima,b,c,area,cca=Val(InputBox("请输入第一个数"))b=Val(InputBox("请输入第二个数"))c=Val(
可以利用海伦公式计算(1)已知底和高面积:S=ah/2(2).已知三角形三边a,b,c,则 (海伦公式)(p=(a+b+c)/2) S=√[p(p-a)(p-b)(p-c)] =(1/4)√[(
声明变量,并声明数据类型,否则,A,B,C三个变量是String,表达式(A+B+C)的结果不是12,而是"345".
提示:1,根据两点公式,长的三面:L1=SQR((X1-X2)^2+(Y1-Y2)^之间的距离,可以计算出2)2,长的三面,发现该地区的?一个三角形,根据海伦公式求.
PublicFunctionArea(aAsDouble,bAsDouble,cAsDouble)AsDoubleIfa+bMSGBOX"要求任意两边之和大于第三边"ExitFunctionendif
已知三角形两边a,b,这两边夹角C,则S=(absinC)/2
voids(folata,folatb,folatc){folatp;p=(a+b+c)/2;S=√[p(p-a)(p-b)(p-c)];returns;}
海伦公式又译希伦公式,传说是古代的叙拉古国王希伦二世发现的公式,利用三角形的三条边长来求取三角形面积.但根据MorrisKline在1908年出版的着作考证,这条公式其实是阿基米德所发现