vb 给定三角形的边长,计算三角形的面积

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

#includeclassangle{private:floatx,y,z;public:angle();voidthreeb(floata,floatb,floatc);friendvoidcoma

a=Val(inputbox("输入a"))b=Val(inputbox("输入b"))c=Val(inputbox("输入c"))Ifa+b>cAndb+c>aAndc+a>bThen'能构成Ifa

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

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

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

解三角形解直角三角形（斜三角形特殊情况）：勾股定理,只适用于直角三角形（外国叫“毕达哥拉斯定理”）a^2+b^2=c^2,其中a和b分别为直角三角形两直角边,c为斜边.勾股弦数是指一组能使勾股定理关系

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

#includeclassangle{private:floatx,y,z;public:angle();voidthreeb(floata,floatb,floatc);friendvoidcoma

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

a＋b大于c＆＆a＋c大于b＆＆b＋c大于a；上面的＆＆是而且的意思,算法的话是编程才用的到的,你应该可以看懂

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

可以c²=a²+b²-2abcos37º求出C以后用面积求高

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

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

PublicFunctionArea(aAsDouble,bAsDouble,cAsDouble)AsDoubleIfa+bMSGBOX"要求任意两边之和大于第三边"ExitFunctionendif

cleara=input('a=');b=input('b=');c=input('c=');ifa>0&b>0&c>0if(a+b)>c&abs(a-b)

一、等价类划分：三角形三条边A、B、C的数据类型不同二、边界值分析：由于三角形的边长可以是正整数或正小数,所以就不对长度进行测试,那么边界值分析就不用了三、因果图法：三角形的三条边数据输入组合我们看一

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