vb 求矩形面积的函数过程和子过程,调用该函数或子过程求任意个矩形面积的和

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

FunctionSum1(ByValnAsIntger)AsDoubleDimiAsIntegerSum1=0fori=1tonSum1=Sum1+1/inextiEndFunction

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

设半径为变量RPI=3.14259265C=2*PI*RS=PI*R*R再问：用到Command，Label或者是Text最好知道相应对象中的代码是什么再答：你连这个最基本的Label框和Text框都

DimmAsIntegerDimnAsIntegerDimrAsIntegerDimaAsInteger,bAsIntegerm=InputBox("请输入其中的一个正整数")n=InputBox("

#includeusingnamespacestd;floatmianji(floata,floatb){returna*b;}floatzhouchang(floata,floatb){return

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

返回值的作用就是可以用来判断,做条件用,但是过程去不可以,过程说白了就是简化代码.争强程序的可读性而已.

给个邮箱可以发给你再问：540084647@qq.com

楼上的回答对了一半.1、在近似估算中,梯形法比矩形法精确.估算的难度大一些.2、在无限分割的极限情况下,两种方法得到的结果是一样的.都是100%准确的.3、无论什么函数,包括sinx,都可用两种估算或

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

FunctionV圆柱(半径AsSingle,高AsSingle)AsSingleV圆柱=3.1415927*半径^2*高EndFunction

y=x*(12-x)=-x^2+12x

PrivateSubCommand1_Click()DimIAsIntegerDimN(15)AsInteger,MAsIntegerRandomizeForI=1To15N(I)=Int(Rnd*1

Private Sub zgc(x, diff)    Dim i As Integer 

DimxAsLongPrivateSubCommand1_Click()DimaAsLong,bAsLonga=Val(InputBox("A="))b=Val(InputBox("B="))Call

在窗口上建立一个按钮：FunctionTotal(Num1,Num2)AsString'Num1为奇数和'Num2为偶数和Fori=1To100IfiMod20ThenNum1=Num1+iElseN

你只需要编程么?PrivateSubCommand1_Click()IfVal(Text1.Text)>0AndVal(Text2.Text)>0ThenLabel1.Caption="长方形的面积为

在此创建一个文本框,按钮,标签都是原先默认名不要改PrivateFunctiona(cAsInteger)Ifc>=0AndcMod2=0ThenLabel1.Caption=Text1.Text&"

#includevoidmain(){floatl,w;floatarea,girth;printf("pleaseinputlengthandwidthoftherectangle\n");scan