计算一组输出半径的圆面积vb程序

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

OptionExplicitPrivateSubCommand1_Click()Label1.Visible=TrueDimrAs__single___Dim____s___AsDouble_cons

#include#definePI3.1415926\x05\x05voidmain()\x05{\x05doubler,s;scanf("%f",&r);s=PI*r*r;\x05printf("A

#include#includeusingnamespacestd;classCircle{doubler,Area,Circumference;public:Circle(doublea=0);Ci

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

PrivateSubCommand1_Click()Dims%,x%sum=Array(1,3,4,12,32,1,3)Fori=0ToUBound(sum)s=s+1x=x+sum(i)NextiF

一个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π】

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

#include#defineMianji(x)Pi*r*r#definePi3.1415926intmain(){\x09floatr;\x09printf("请输入半径r：\n");\x09sca

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

#includeintmain(){doubleR;while(scanf("%lf",&R)!=EOF){printf("%lf\n",R*R*3.14);}return0;}

#include#definepai3.15149256voidmain(){doubler,c,s;printf("pleaseinputr\n")scanf("%lf",&r);printf("c

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

#includemain(){inta,b;charc;scanf("%d,%d,%c",&a,&b,&c);printf("\na=%d,b=%d,c=%c\n",a,b,c);}输入a,b,c之间

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

PrivateSubForm_Load()Dima,b,cAsSingleDimp,sAsSinglea=Val(InputBox("请输入边长1"))b=Val(InputBox("请输入另一边长"

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

C编程求助编写一个基于对象的程序：输入半径,计算圆的周长和面积并输出实现#include

用C语言写一段：#include“stdio.h”#definePI3.1416voidmain（）{intr；floatc,s；scanf("%d",&r);c=PI*2*r；s=PI*r*r；pr