VB中给定三角形的3条边,计算三角形面积

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)=

假设这三条直线叫做A、B、C1.先任意选定1条直线（例如A）2.以A这条这直线的1个端点为圆心,以B直线长度为半径画圆3.以A这条这直线的另外1个端点为圆心,以C直线长度为半径画圆4.两个圆相交于一点

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

'引用 Microsoft Script Control 1.0 '应该是你说的,但你说的3x 这样的公式 要写成

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

includeincludeddoublefun(inta,intb,intc){intp;p=(a+b+c)/2;returnsqrt(p*(p-a)*(p-b)*(p-c));}再问：ok再问：

是VB,就做界面.先做一个窗体,其上有四个文本框,text1、text2、text3、text4依次输入边长a、b、角A的值,在text4中输出面积,你可以在前面加上标签说明再加一个命令按钮comma

这在在小学时就学过了,三角形的形心在高的三分之一处,或者还有一法,三条中线的交点处.

一般情况下,只知道两边是无法求出第三边的,因为一个三角形在两边长度确定的情况下,它的形状并不固定,也就是说第三边的大小是可以变化的,也以无法求.1)如果这个三角形是特殊的三角形,比如直角三角形:则根据

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

DimsignAsInteger,aAsLong,piAsDoublesign=-1Fori=1To100000a=2*i-1sign=-1*signpi=pi+(1/a)*signNextpi=pi

第一条边长=m+3n第二条边长=m+3n+2m=3m+3n第三条边=2/3*（3m+3n）+2m=4m+2n周长=m+3n+3m+3n+4m+2n=8m+8n=16则m+n=2第二条边长=m+3n+2

PrivateFunctioncheck(ByValaAsInteger,ByValbAsInteger,ByValcAsInteger)AsboolIfNota+b>cThenReturnFalse

1、正确的循环次数应该是：X=0ForI=aTobStepcX=X+1NextIX是循环总次数2、我认为你的：“循环总次数=(b-a)\c+1”应该是的,例如：ForI=1To10Step3的循环总次

3\3*3/3mod3=3\9/3mod3'先计算3*3=9=3\3mod3'再计算9/3=3=1mod3'再计算3\3=1=1'最后计算1mod3=1即最终结果

用海伦公式比较简单.不知道你要用什么语言编写?我简单写一下C语言的：doublesabc(doublea,doubleb,doublec){doublep,s;p=(a+b+c)/2;s=squrt(

先将这个角的一边定为底,底的长度取与三角形2的底长度一样.再做平行于底的直线,这条直线与底的距离为三角形2的高的长度,直线与角的另一边有一个交点,连接底两端点与这个交点.样就形成了一个新三角形,面积与

Sub aa()'用9行数据做说明,看是不是你要的东西；Dim x As IntegerFor x = 2 To

ifa=b=cthenprint"等边三角"ifa=borb=cora=cthenprint"等腰三角"if(a+b)*(a+b)=cor(a+c)*(a+c)=bor(b+c)*(b+c)=aort