VB用公式计算sinx的值 sinx=x-x3 3

dimiasintegerdimtasintegerdimsassingledimxassingledimkasintegerdimpassinglek=1i=1x=text1t=1s=xp=xdow

PrivateSubCommand1_Click()DimsumAsDoubleDimiAsLongDimnAsDoublen=((1/(10^-5))+1)/2'正好等于10^-5时候n的值

1.Si+O2=点燃=SiO22.SiO2+C=高温=Si+CO23.H2SiO3=加热=SiO2+H2O4.Si+2NaOH+H2O=Na2SiO3+2H2↑5.SiO2+2NaOH=2Na2SiO

OptionExplicitPrivateSubCommand1_Click()Label1.Visible=TrueDimrAs__single___Dim____s___AsDouble_cons

阶乘n!=n*(n-1)(n-2)(n-2)···3*2*1

PrivateSubCommand1_Click()DimnAsInteger,iAsIntegerDimsumAsDoublen=Val(InputBox("PleaseEnterN:"))sum=

对于一维数组a元素个数为UBound(a)-LBound(a)+1

PublicFunctions(n)Dimi,j,t,resFori=1Tont=1Forj=1Toit=t*jNextres=res+tNexts=resEndFunction

某年的第n个节气为几日(从0小寒起算)'functionsTerm(y,n){'varoffDate=newDate((31556925974.7*(y-1900)+sTermInfo[n]*6000

DimAx#,Ay#,Bx#,By#,Cx#,Cy#,AB#,BC#,CA#,角A#,角B#,角C#Ax=1:Ay=0:Bx=0:By=0=0:Cx=1:Cy=1'举例为第一象限45度三角形AB=Sq

代码如下:OptionExplicitPrivateSubCommand1_Click()MsgBoxP(2,2)EndSubFunctionP(ByValnAsInteger,ByValxAsDou

要求已知圆的半径R,内接多边形的边数n,则公式可以如下：ConstPI=3.141593s=n*R^2*Sin(2pi/n)/2

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

for循环本身就是拿来按指定次数运行的啦,如果在循环中加一个如A=A+1算式,那么当退出for循环后,A的值就是循环的次数了.【回答补充】分析程序时,怎么分析for的循环次数?答案如下：设：Fori=

1、正确的循环次数应该是：X=0ForI=aTobStepcX=X+1NextIX是循环总次数2、我认为你的：“循环总次数=(b-a)\c+1”应该是的,例如：ForI=1To10Step3的循环总次

DimcAsObjectSetc=CreateObject("MSScriptControl.ScriptControl")c.Language="vbscript"MsgBoxc.Eval("2+4

Functionfactorial(nAsInteger)AsLongDimiAsIntegerDimretAsLongret=1Fori=1Tonret=ret*iNextifactorial=re

symsxf=taylor(sin(x),10)%10阶,在x=0处subs(f,2)%sin2

'cosx=1-x^2/2!+x^4/4!.+x^(2n)/(2n)!我写的代码：Private Sub Command1_Click()   

对头,你总要说计算什么吧.