vb试编写一个程序,实现输入圆的半径,输出圆的周长和面积

#includeintmain(){floatr,s,l;scanf("%f",&r);s=3.14*r*r;l=2*3.14*r;printf("s=%f,l=%f\n",s,l);return0;

privatesubcommand1_click()dimmaxfori=1to3n=val(inputbox("输入第"&i&"个数"))ifn>maxthenmax=nendifnextprint

intmain(){intn;cout

privatesubform_click()dimnaslong,snaslongn=inputbox("请输入n")fori=0tonsn=sn+2*i+1nextmsgbox"1+3+5+...(

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

存在如下问题:1、s重复定义2、i重复定义3、最后一条printf语句少分号4、警告；j定义了,但是没有使用5、你的交换语句a[p]=a[0];只是一个单纯的复制,没有交换.6、警告：main函数返回

开始输入两个数吧!#include#includemain(){inti,j,m,n,t,a[100]={0};printf("inputm,n:");scanf("%d%d",&m,&n);for(

下面是我的代码,你也可以优化一下.PrivateSubCommand1_Click()cmdlength=Text1.TextIfLen(Text1.Text)>=3Thencmdmi=Mid(Tex

公倍数,余下的,再装到其中一种盒子中.再问：。。。。这就是不知道肿么编啊程序死了N次了对信息真心要没信心了怎么编啊？

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

a=InputBox("请输入a")b=InputBox("请输入b")c=InputBox("请输入c")Ifat=aa=bb=tEndIfIfat=aa=cc=tEndIfIfbt=bb=cc=t

请用以下代码要求一个list1用来排序单词请将sorted属性设置为true.PrivateSubCommand1_Click()DimanoFori=1ToLen(Text1.Text)IfMid(

#include#includeintmain(void){intn,sum=0,count=0,s;printf("输入一个整数:");scanf("%d",&n);while(n){s

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

PrivateSubCommand1_Click()DimrAsSingleDimcAsSingleDimsAsSingler=Val(Text1.Text)c=2*3.14159*rs=3.1415

PrivateSubbtnstart_Click()'按要求写了If-Then语句,不过个人认为Select-Case比较适合这个.IfMe.txbplanet.Text="Jupiter"Then'

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

'不用这么复杂,你的代码太长没有看,如果一定用你的代码,我再给你修改一下OptionExplicitPrivateSubCommand1_Click()DimiAsLong,arr,nAsLongIf

voidmain(){intn;printf("请输入一个整数:");scanf("%d",&n);if(n%3==0&&n%5==0&&n%7==0)printf("\n此数能被3,5,7整除\n"

ifxmod2=0thenmsgbox"是偶数"elsemsgbox"是奇数"