用vb编写任意三角形面积

运用海伦公式dimPaslong,Saslongifa+b>cthenifb+c>athenifa+c>bthenp=(a+b+c)/2S=sqr(p*(p-a)*(p-b)*(p-c))endife

1/2*a*b*sin

在窗体上添加一个按钮,加入如下代码“PrivateSubCommand1_Click()DimN'因为你说的是任意正整数,所以没有给变量指定变量类型DimIAsIntegerDimLAsInteger

PrivateFunctionSUM(Fir_LAsDouble,Fir_SAsDouble,Scend_LAsDouble,Scend_SAsDouble)AsDoubleSUM=Fir_L*Fir

Subabc()'输入三角形三个边长,计算其面积Dima,b,c,sDos=InputBox("请输入三角形的三个边长,用半角逗号分隔."&Chr(13)&"输入-1时结束程序.")IfVal(s)=

输入三角形三边长,求三角形面积.#include“math.h”main(){floata,b,c,s,area;scanf(“%f,%f,%f”,&a,&b,&c);s=1.0/2*(a+b+c);

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

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

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

PrivateSubCommand1_Click()DimbjAsSingleDimzzAsSingleDimmjAsSinglebj=CSng(Text1.Text)Ifbj

dimrassingle,sassingler=inputbox("请输入圆的半径：")s=3.14159*r^2print"圆的面积是：";s

是VB,就做界面.先做一个窗体,其上有四个文本框,text1、text2、text3、text4依次输入边长a、b、角A的值,在text4中输出面积,你可以在前面加上标签说明再加一个命令按钮comma

ConstPI=3.14159DimrAsDoubleDimCAsDoubleDimSAsDoubleIfIsNumeric(Text1.Text)Thenr=Val(Text1.Text)C=2*P

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

privatesubcommand1_click()ifisnumeric(text1.text)ANDisnumeric(text2.text)thentext3.text=cdbl(text1.t

假设知道三角形的三边长为a,b,c.程序如下：#include#includedoublearea(doublea,doubleb,doublec){doublearea=0,s=0;s=(a+b+c

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

PrivateSubCommand1_Click()Fori=1To9Forj=1ToiPrintTab(9*(j-1));i&"x"&j&"="&i*j;NextPrintNextEndSubPri

voids(folata,folatb,folatc){folatp;p=(a+b+c)/2;S=√[p(p-a)(p-b)(p-c)];returns;}

两个数,只可能是底和高吧.#includevoidmain(){floatSide,Height;//底和高floatSpace;printf("pleaseinputSideanditsHeight