vb计算圆面积过程带图

大圆的面积-小圆的面积:π（R²-r²）=π（R-r）（R+r）

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

OptionExplicitPrivateSubCommand1_Click()Label1.Visible=TrueDimrAs__single___Dim____s___AsDouble_cons

就两个公式嘛圆的周长＝2×半径×圆周率＝直径×圆周率 即：圆的周长＝2πr 或πD面积：s=πr² 或s=π(d/2)²程序,自己弄一个textbox

一个text控件PrivateSubForm_Load()DimRAsDoubleDimSAsDoubleR=Val(Text1.Text)S=3.14*(R^2)MsgBoxStr(S)EndSu

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

PrivateSubCommand1_Click()Text3.Text=3.14*(Val(Text1.Text)^2-Val(Text2.Text)^2)EndSub再问：能具体一点吗再答：上面就

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

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

帮忙详细解释下VB计算过程1个dimz是窗体级变量,窗体不销毁值始终保留,不会重新初始化,再次进入函数时z值为上次运行结果第2个dimz是过程（函数）级变量,函数执行完后,再次进入函数时值重新初始化<

PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingle,pAsSingle,sAsSinglea=Val(Text1.Text)b=Val

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

要求已知圆的半径R,内接多边形的边数n,则公式可以如下：ConstPI=3.141593s=n*R^2*Sin(2pi/n)/2

提示：1,根据两点公式,长的三面：L1=SQR（（X1-X2）^2+（Y1-Y2）^之间的距离,可以计算出2）2,长的三面,发现该地区的?一个三角形,根据海伦公式求.

DimsignAsInteger,aAsLong,piAsDoublesign=-1Fori=1To100000a=2*i-1sign=-1*signpi=pi+(1/a)*signNextpi=pi

他们的答案好像都没有输出结果.Dim r, s, c As IntegerPrivate Sub Command1_Click()

你说的是什么打包面积呀再问：打包带的面积计算公式.它需要哪个数据才能计算出来面积?长宽厚度?再答：给你举个例子吧。比如说一个长方形游泳池,长50米,宽12米,把它画在比例尺是1\1000的图纸上,长：

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

constpi=3.1416subcircle（byvalrassingle,Lassingle,aassingle,VASSINGLE）L=2*pi*rA=pi*r*rV=4/3*r*r*r*pie

privatefunctions(byvalrasdouble)asdoubles=PI*r*rendfunction