用VB,已知一个三角形的三条边,求三角形的面积
来源:学生作业帮助网 编辑:作业帮 时间:2024/10/02 18:09:48
PrivateSubCommand1_Click()'1'23'456Dima(6)AsIntegerFori1=1To6Fori2=1To6Fori3=1To6Fori4=1To6Fori5=1To
运用海伦公式dimPaslong,Saslongifa+b>cthenifb+c>athenifa+c>bthenp=(a+b+c)/2S=sqr(p*(p-a)*(p-b)*(p-c))endife
OptionExplicitPrivateSubCommand1_Click()Label1.Visible=TrueDimrAs__single___Dim____s___AsDouble_cons
4个text1-text4,Label1(0-3).PrivateSubCommand1_Click()Dimk1AsSingle,k2AsSingle,k3AsSingle,k4AsSinglek1
PrivateSubCommand1_Click()Dima,xAsSinglea=Val(Text1.Text)Ifa再问:x=x+a*0.2+3000*0.2怎么都乘0.2呀?
把变量的取值范围贴出来.再问:求公式p=v*Z*F(s,x,y)/I。其他的一样求,其中F(s,x,y)=π/M,M=ln[2ch(πs/2y)]+ln{[shπ(x/y-s/2y)*shπ(x/y+
FunctionV圆柱(半径AsSingle,高AsSingle)AsSingleV圆柱=3.1415927*半径^2*高EndFunction
是VB,就做界面.先做一个窗体,其上有四个文本框,text1、text2、text3、text4依次输入边长a、b、角A的值,在text4中输出面积,你可以在前面加上标签说明再加一个命令按钮comma
scanf("%f%f%f",&a,&b,&c);area=sqrt(s*(s-a)*(s-b)*(s-c));这里用的是海伦公式:三角形的面积等于s(s-a)(s-b)(s-c)的开方,其中s=(a
判断写错,改完的: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,长的三面,发现该地区的?一个三角形,根据海伦公式求.
算法没问题,按你的代码,调整了一下PrivateSubCommand1_Click()Dima!,b!,c!a=Val(InputBox("请输入a"))b=Val(InputBox("请输入b"))
’3个label,2个commandPrivateSubCommand1_Click()Dims,i,j,arr(1To10),t,sumFori=1To10s=InputBox("输入评分(0-10
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
两条小边的和大于第三边,即成三角形.面积:S=ah/2(2).已知三角形三边a,b,c,则 (海伦公式)(p=(a+b+c)/2) S=√[p(p-a)(p-b)(p-c)] =(1/4)√[(
PrivateSubCommand1_Click()DimaAsDoubleDimjdAsStringa=Val(InputBox("请你输入正弦值"))IfAbs(a)jd=Atn(a/Sqr(-a
PrivateSubCommand1_Click()Fori=1To9Forj=1ToiPrintTab(9*(j-1));i&"x"&j&"="&i*j;NextPrintNextEndSubPri
我HI你吧,等一下