vb计算π的代码

你给的公式不对!应该是π/2＝2^2/1*3×4^2/3*5×.×（这个公式求的精度不高!代码如下：DimPI1AsDoubleDimPI2AsDoubleDimTempAsDoubleDimnAsD

'引用 Microsoft Script Control 1.0 '应该是你说的,但你说的3x 这样的公式 要写成

PrivateSubCommand1_Click()DimxxAsIntegerDimNAsLong,FlagsAsBooleanDimiiAsIntegerDim素数个数AsIntegerDim素数

OptionExplicitPrivateSubCommand1_Click()DimsAsSingle,nAsLong,stAsStringn=1s=0DoDoEventss=s+nst=st&nI

一个text控件PrivateSubForm_Load()DimRAsDoubleDimSAsDoubleR=Val(Text1.Text)S=3.14*(R^2)MsgBoxStr(S)EndSu

DimiasInteger,jasInteger,oasIntegerj=0o=0Fori=1To100Step2j=j+io=o+(i+1)NextDebug.print"100以内的奇数和:"&j

Sum=0Fori=100To300IfiMod21=0ThenSum=Sum+iEndIfNext==>优化一点：Sum=0Fori=100To300IfiMod21=0ThenSum=Sum+ii

PrivateSubCommand1_Click()m=InputBox("输入第一个自然数")n=InputBox("输入第二个自然数")Ifmr=mModnDoWhile(r0)m=nn=rr=m

Rem语言：VisualBasic6.0SubMain() '开始 S=0  For i=1To 50  &nb

PrivateSubCommand1_Click()Dima,b,c,area,cca=Val(InputBox("请输入第一个数"))b=Val(InputBox("请输入第二个数"))c=Val(

三角形面积的计算公式是area=Sqr(s*(s-a)*(s-b)*(s-c)),其中,s=(a+b+c)/2PrivateSubForm_Load()DoDimaAsSingle,bAsSingle

本人没学过只是编程爱好者献丑了问题1PrivateSubCommand1_Click()Text3=""DimA1AsIntegerDimA2AsIntegerDimA3AsIntegerA1=Tex

PrivateSubCommand1_Click()DimnAsInteger,iAsInteger,jAsInteger,Sum&,m&n=Val(InputBox("请输入N值"))Sum=0Fo

PrivateSubCommand1_Click()Dimi,j,tDimsumsum=1Fori=2To10t=1Forj=1Toit=t*2Nextjsum=sum+tNextiPrintsumE

PrivateSubCommand1_Click()Fori=1ToVal(Text1)Sum=Sum+1/Val(InputBox("请输入阻值"))NextMsgBox"并联后的阻值"&1/Val

说明VB不支持ln函数,换句话说,VB的log函数就是数学中的ln函数,而常用对数lg只能使用换底公式lg(x)=log(x)/log(10)条件很简单x>0.

PrivateSubCommand1_Click()Dimsum,xx=0sum=0Fori=1To200x=x+2*(i-1)sum=sum+xNextPrintsum'结果为2666600EndS

subtest()dimii=textbox1.valueif(imod2=0)thenlabel1.caption=“偶数”eslelabel1.caption="奇数"endifendsubtex

OptionExplicitPrivateStoredValueAsDoublePrivateConstopNone=0PrivateConstopAdd=1PrivateConstopSubtrac

ConstPI=3.141592653'定义πDimaa=(Val(Text1.Text))*PI/180'将Text1.Text由角度转为弧度Label1.Caption=Math.Sin(a)'在