编写一个求三角形面积的vb应用程序

FunctionS(rAsSingle)AsSingle'Function过程Constpi=3.1415926535898S=pi*r^2EndFunctionPrivateSubForm_Clic

运用海伦公式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

PrivateSubCommand1_Click()Dima,xAsSinglea=Val(Text1.Text)Ifa再问：x=x+a*0.2+3000*0.2怎么都乘0.2呀？

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

'最大公约数FunctiongetGcd(num1AsLong,num2AsLong)AsLongDimiAsLongFori=IIf(num1Ifnum1Modi=0Andnum2Modi=0The

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

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

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

PrivateSubCommand1_Click()'IntegerRandomizeLabel1.Caption=Int(Rnd*(101)-50)EndSubPrivateSubCommand2_

将六个圆命名为“Oval1”直到“Oval6”在窗体上放6个timer控件.写入如下代码：Private Sub Form_load()'必要的初始化操作Timer1.in

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

错误提示是什么?此句应该为scanf("%d,%d",&a,&h);

p=1/4*(2*x*z+y*y-x*x-z*z);应该改为p=1.0/4*(2*x*z+y*y-x*x-z*z);或者p=1/4.0*(2*x*z+y*y-x*x-z*z);原因是：当进行运算时,1

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;}

//使用海伦公式#include/*ForIO*/#include/*Forsqrt()*/intmain(void){doublea,b,c,p,s;printf("请输入a,b和c：");scan

functionfun(d,h){if(d

利用海伦公式：S=(p(p-a)(p-b)(p-c))^(1/2);S为三角形面积,a,b,c为三角形三边长,p为三角形半周长（p=（a+b+c)*(1/2))(p(p-a)(p-b)(p-c))^(

我HI你吧,等一下