vb给把半径计算圆面积

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

OptionExplicitPrivateSubCommand1_Click()Label1.Visible=TrueDimrAs__single___Dim____s___AsDouble_cons

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

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

面积公式是圆周率×半径×半径圆周率×半径×2这个是周长公式再问：半径×半径是不是叫半径的平方啊如果半径是56那么结果是多少？再答：对，半径×半径就是半径的平方半径是56的话3.14×56×56=984

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

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

半径/cm【2.75】6.4【2】直径/cm3.5【12.8】【4】周长/cm【3.5π】【12.8π】12.56面积/cm²【7.5625π】【40.96π】【4π】

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再问：能具体一点吗再答：上面就

1）扇形的半径不变,圆心角缩小到原来的3分之1,则它的面积（c）A.缩小到原来的6分之1B.缩小到原来的9分之1C.缩小到原来的3分之1D无法确定缩小多少2）扇形的面积为78.5cm²,圆心

PublicSubcommand1_click()dimrasintegerr=val(inputbox("请输入半径"))s=3.1415926*r^2msgbox"圆的面积为:"&sendsu

#includevoidmain(){floatr,d,Cs;cout

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

楼上不对,面积是S=πr²已经是半径了.S=πr²=3.14*8*8=200.96cm²

答案是C.输入10000个数值,计算平均数,适合采用循环结构算法.A.判断一个证书是否为偶数,解决该问题仅需一步判断,也许需要一步赋值,没有多次重复的步骤,不适合采用循环结构算法.B.输入一个圆的半径

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

弓形面积公式设弓形AB所对的弧为弧AB,那么：当弧AB是劣弧时,那么S弓形＝S扇形－S△AOB（A、B是弧的端点,O是圆心）.当弧AB是半圆时,那么S弓形＝S扇形＝1/2S圆＝1/2×πr^2.当弧A

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

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