vb用函数求三角形面积
来源:学生作业帮助网 编辑:作业帮 时间:2024/05/21 15:43:16
有现成公式,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
PrivateFunctionSUM(Fir_LAsDouble,Fir_SAsDouble,Scend_LAsDouble,Scend_SAsDouble)AsDoubleSUM=Fir_L*Fir
函数定义名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
海伦公式S=√[s(s-a)(s-b)(s-c)]
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("请输入另一边长"
Privatefunctione()Dime1,n,jcn=0e1=1jc=1Don=n+1jc=n*jce1=e1+1/jcLoopUntil1/jc
PrivateSubCommand1_Click()x=InputBox("请输入x:")e=2.718281828SelectCasexCase-10To-1y=e^x+1Case0To5y=Abs
y=-3x+6和y=x交于点(1.5,1.5)y=-3x+6与y轴交于(0,6)它们与y轴所围成的三角形的面积S=1.5*6/2=4.5再问:y=-3x+6和y=x交于点(1.5,1.5)是什么意思?
functionfun(d,h){if(d
%调用函数function[AL]=triangle(a,b,c)%A为三角形面积,L为三角形周长,a,b,c分别为三角形三条边L=a+b+c;d=L/2;%计算面积时用到的中间变量A=sqr(d*(
这题不需要做辅助线把A(1,4)代入反比例函数得k2=4把B(3,m)代入反比例函数y=4/x得m=4/3再把A(1,4)B(3,4/3)代入一次函数得y=-4/3x+16/3∴一次函数与y轴的交点是