用vb编写计算圆面积的程序
来源:学生作业帮助网 编辑:作业帮 时间:2024/10/01 15:29:54
FunctionS(rAsSingle)AsSingle'Function过程Constpi=3.1415926535898S=pi*r^2EndFunctionPrivateSubForm_Clic
OptionExplicitPrivateSubCommand1_Click()Label1.Visible=TrueDimrAs__single___Dim____s___AsDouble_cons
PrivateSubCommand1_Click()Dima,xAsSinglea=Val(Text1.Text)Ifa再问:x=x+a*0.2+3000*0.2怎么都乘0.2呀?
Subabc()'输入三角形三个边长,计算其面积Dima,b,c,sDos=InputBox("请输入三角形的三个边长,用半角逗号分隔."&Chr(13)&"输入-1时结束程序.")IfVal(s)=
输入三角形三边长,求三角形面积.#include“math.h”main(){floata,b,c,s,area;scanf(“%f,%f,%f”,&a,&b,&c);s=1.0/2*(a+b+c);
要编写Java应用程序,该程序包含两个类,一个圆形类、一个圆柱体类.圆形类包含类变量半径、面积,还具有从键盘输入得到半径以及计算面积的方法.圆柱体类从圆形类派生而来,要求能从键盘输入得到圆柱体的高,以
阶乘n!=n*(n-1)(n-2)(n-2)···3*2*1
PrivateSubCommand1_Click()DimsAsString,nAsInteger,iAsIntegerFori=1To100n=n+iNextiPrint"1+2+3+……+100=
PrivateSubCommand1_Click()Text3.Text=3.14*(Val(Text1.Text)^2-Val(Text2.Text)^2)EndSub再问:能具体一点吗再答:上面就
PrivateSubCommand1_Click()DimbjAsSingleDimzzAsSingleDimmjAsSinglebj=CSng(Text1.Text)Ifbj
新建工程,添加command1控件.vb6.0+xp调试成功代码如下:DimnAsIntegerPrivateSubCommand1_Click()m=InputBox("请输入底数m")n=Inpu
判断写错,改完的:PrivateSubCommand1_Click()DimaAsStringDimh,l,sAsSinglea=InputBox("请输入形状(只限于长方形~正方形或三角形)","请
ConstPI=3.14159DimrAsDoubleDimCAsDoubleDimSAsDoubleIfIsNumeric(Text1.Text)Thenr=Val(Text1.Text)C=2*P
dimxasinteger,dimsumasintegerforx=1to100ifxmod3=0thensum=sum+xendifnextxprintsum
将六个圆命名为“Oval1”直到“Oval6”在窗体上放6个timer控件.写入如下代码:Private Sub Form_load()'必要的初始化操作Timer1.in
拜托,这么多输入你就用列表啦,用那么多textbox,你不累我看得都累.还有,你要求的是什么尽量用数学的方式表达出来,有图更好至于你的a5d6的问题,是因为你的是字符串运算而不是数值运算,转换一下类型
新建一个工程,双击Form1窗体空白区域,在出现的代码窗口中输入如下代码:PrivateSubForm_Load()a=InputBox("请输入边长:","计算正方形的面积")MsgBox"面积="
'cosx=1-x^2/2!+x^4/4!.+x^(2n)/(2n)!我写的代码:Private Sub Command1_Click()  
m=2a+2b;应该改成m=2*a+2*b;程序中2a,2b是不允许的,没有意义的.
我HI你吧,等一下