vb程序计算π的值π=2*2^2(1*3)*4^2(3*5)
来源:学生作业帮助网 编辑:作业帮 时间:2024/09/30 23:33:39
DimsAsDouble,aAsDoubleDimiAsLongs=0i=1DoWhilei再问:那应该怎么改啊?再答:已经给你改好了啊,对照你的代码和我的你没有发现不一样吗,
privatesubform_click()dimnaslong,snaslongn=inputbox("请输入n")fori=0tonsn=sn+2*i+1nextmsgbox"1+3+5+...(
PrivateSubCommand1_Click()DimnAsLong,xAsSingle,yAsSingle,y2AsSingle,sumAsSinglex=Val(InputBox("请输入一个
Functionfact(xAsInteger)s=1Fori=1Toxs=s*iNextfact=sEndFunctionPrivateSubCommand1_Click()Me.AutoRedra
PrivateSubCommand1_Click()DimSAsDouble,jcAsDoublejc=1Fori=1To99jc=jc*iS=S+jcNextPrint"S=";SEndSu
你给的公式不对!应该是π/2=2^2/1*3×4^2/3*5×.×(这个公式求的精度不高!代码如下:DimPI1AsDoubleDimPI2AsDoubleDimTempAsDoubleDimnAsD
PrivateSubCommand1_click()DimnAsIntegern=100Printf(n)EndSubFunctionf(n)Fori=1Tonf=f+1/iNextiEndFunct
PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,sumAsLong,taAsLongta=1Fori=5To10Step5Forj=2Toita=
阶乘n!=n*(n-1)(n-2)(n-2)···3*2*1
PrivateSubCommand1_Click()DimsAsString,nAsInteger,iAsIntegerFori=1To100n=n+iNextiPrint"1+2+3+……+100=
Dims,n,iasIntegerfori=1to100n=(-1)^(i+1)/is=s+nnextiprints再问:在excle中如何检查再答:添加一个命令按钮定义它的单击属性为再添加一个文本显
DimaAsInteger'首项DimbAsInteger'末项DimcAsInteger'项数DimdAsInteger'结果PublicSubAdd()a=InputBox("首项","")b=I
PrivateSubCommand1_Click()DimiAsDoubleDimnAsDoubleDimsumAsDoublesum=0IfNotIsNumeric(Text1.Text)Then'
你好!PrivateSubForm_Click()DimiAsIntegerDimsAsIntegerFori=1To100s=s+iNextiPrintsEndSu
PrivateSubCommand2_Click()DimIAsLong,SAsLongForI=1To100IfIMod2=0ThenS=S-IElseS=S+IEndIfNextPrintSEnd
PrivateSubCommand1_Click()DimiAsInteger,sAsIntegers=0Fori=1To99s=s+i*(i+1)NextiDebug.Print"计算1*2+2*3
PrivateSubForm_Click()Dimd1AsIntegerDimd2AsSingleDimd3AsIntegerDimd4AsStringDimd5AsIntegerDimd6AsInt
DimsumAsInteger,iAsIntegersum=0Fori=1To100sum=sum+iNextDebug.Print"1+2+...+100=";sum
两处错误,第一个,没有赋值过程,应该改为:a=InputBox("a=")b=InputBox("b=")c=InputBox("c=")第二个:x1=(-b-d)/(2*a)应该是x2=(-b-d)
给出代码比较简单.流程图你就根据代码来画吧sum=0fori=1to10a=1forj=1toia=a*jnextjsum=sum+anextiprintsum