vb求三角形面积用isnumeric

椭圆方程x²/4+y²/3=1,c²=a²-b²=4-3=1,∴c=1,即椭圆两焦点坐标为：F1(-1,0),F2(1,0)；设P(-x-1,y),∵∠PF1F

有现成公式,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

S=|1/2det(x1,y1,1;x2,y2,1;x3,y3,1)|=1/2*|4*2*1+0+1*3*2-4*2*1-0-2*(-1)*1|=4.

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

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

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

PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingle,pAsSingle,sAsSinglea=Val(Text1.Text)b=Val

1、已知三角形三边abc,那么周长2P=a+b+c2、那么它的面积=根号下【P（P-a）（P-b）（P-c）】,注P为三角形周长的一半.

判断写错,改完的：PrivateSubCommand1_Click()DimaAsStringDimh,l,sAsSinglea=InputBox("请输入形状（只限于长方形~正方形或三角形）","请

声明变量,并声明数据类型,否则,A,B,C三个变量是String,表达式(A+B+C)的结果不是12,而是"345".

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

PrivateSubForm_Load()Dima,b,cAsSingleDimp,sAsSinglea=Val(InputBox("请输入边长1"))b=Val(InputBox("请输入另一边长"

难度不高,分值有点少了……再问：50够吗--总共就一百多一点==再答：那好吧，花几分钟给你做一个……没优化代码，你自己改编吧，用选项卡或菜单，会使界面简洁，代码会少很多……

PrivateSubCommand1_Click()x=InputBox("请输入x：")e=2.718281828SelectCasexCase-10To-1y=e^x+1Case0To5y=Abs

ifa+b>canda-

S=1/2*ab*sinC=1/2*bc*sinA=1/2*ac*sinB