vb输入圆的半径显示面积值编程

#definePI3.1416//后面不需要;#include"stdio.h"//注意关键字之间要有空格intmain(){floatr,s,c;scanf("%f",&r);c=2*PI*

usingSystem;usingSystem.Collections.Generic;usingSystem.Linq;usingSystem.Text;namespaceConsoleApplic

PrivateSubCommand1_Click()Dima#,b#,c#,p#Me.AutoRedraw=Truea=3:b=4:c=5Doa=Val(InputBox("请输入三角形第一条边","

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

PrivateSubCommand1_Click()DimaAsLongDimiAsLongDimsAsBooleans=Truea=InputBox("请输入一个自然数","输入")'-------

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

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

以下代码为输入任意多个数字进行统计如果输入0则退出循环显示出统计结果PrivateSubCommand1_Click()DimiAsIntegerDimqAsIntegerDimoAsIntegerq

http://zhidao.baidu.com/link?url=wyic3NEB45i2K9YZE2SpNiAV4aD7rZHpluBlyF76zg0n_8wr1t6-KOYm6eYY23KqG5n

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

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

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

PrivateSubForm_Load()DimaAsInteger,bAsInteger,cAsInteger,MaxAsInteger,MinAsIntegera=InputBox("请输入a值"

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

PublicFunctionArea(aAsDouble,bAsDouble,cAsDouble)AsDoubleIfa+bMSGBOX"要求任意两边之和大于第三边"ExitFunctionendif

input"输入半径:"torc=2*3.14*rs=3.14*r*rv=4*3.14*r^3/3?"圆周长=",c?"圆面积=",s?"球体积=",v

写成函数,直接调用Functionprint_num(ByValnumAsInteger)Dimi,n,k,jAsIntegerDimstrAsStringn=Int(num/2)k=0IfnumMo

我来用自然语言先说一下吧.你可以创建三个文本框,用它来输入三条边的值.创建一个标签,用来作回答提示.用一个按钮来进行判别请求.先来说说文本框,它只能输入数字,因此,要在文本框的key_press事件中

新建EXE,画4个text文本框和一个按钮,复制下面的代码：PrivateSubCommand1_Click()Dima,b,cAsSinglea=Val(Text1.Text)b=Val(Text2

PrivateSubCommand1_Click()Text2.Text=""Fori=1ToVal(Text1.Text)Text2.Text=Text2.Text&Int(Rnd*100)&""N