vb:根据三角形的三条边a,b,c的值,根据其数值

你这样做太烦琐这样更简洁些：PrivateSubCommand1_Click()DimaAsSingleDimbAsSingleDimcAsSingleDimzAsSingleDimx1AsSingl

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

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

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

'将Text2.MultiLine=TruePrivateSubCommand2_Click()DimsAsString,s2AsString,s3AsStringDimiAsInteger,kAsI

(a+b)^5=(a+b)^2*(a+b)^3=(a^2+2ab+b^2)*(a^3+3a^2b+3ab^2+b^3)=a^2*(a^3+3a^2b+3ab^2+b^3)+2ab*(a^3+3a^2b

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

nd*(b-a+1)+a;这样就会有小数出现的

算法没问题,按你的代码,调整了一下PrivateSubCommand1_Click()Dima!,b!,c!a=Val(InputBox("请输入a"))b=Val(InputBox("请输入b"))

杨辉三角形的系数分别为：1,（1,1）,（1,2,1）,（1,3,3,1）,（1,4,6,4,1）（1,5,10,10,5,1）,（1,6,15,20,15,6,1）,（1,7,21,35,35,21

两条小边的和大于第三边,即成三角形.面积：S＝ah/2(2).已知三角形三边a,b,c,则　　（海伦公式）（p=(a+b+c)/2）　　S=√[p(p-a)(p-b)(p-c)]　　=（1/4）√[(

（1）由a^2+b^2+c^2+200=12a+16b+20c可得：a^2+b^2+c^2+200-12a-16b-20c=0,所以（a^2-12a+36)+(b^2-16b+64)+(c^2-20c

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

这是编程语言,其中“=”是赋值的符号,这是一个数值交换的功能,和C功能一致再问：A为什么不对再答：a和b都是变量，用来放数值，就像一个筐可以放西瓜，也可以放葡萄。

我来用自然语言先说一下吧.你可以创建三个文本框,用它来输入三条边的值.创建一个标签,用来作回答提示.用一个按钮来进行判别请求.先来说说文本框,它只能输入数字,因此,要在文本框的key_press事件中

代码PrivateSubCommand1_Click()Dima,b,c,x1,x2a=InputBox("a",,2)b=InputBox("b",,4)c=InputBox("c",,1)Ifb^

MsgBox"不能构成三角形"ExitSubEndIfMsgBox"三角形的面积是"&Format(area(a,b,c),".00")EndSubFunctionarea(aAsDouble

Dim c As Single, ju As SingleDim x As Single, y&nb

PrivateSubCommand2_Click()Dima,b,ca=Text1.Textb=Text2.Textc=Text3.TextIfa-bcAnda+caThenMsgBox"该组数可构成

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