n阶勒让德多项式vb用inputbox函数

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

用Fix(x+0.5)可以对x进行四舍五入,假如有负数用Int代替Fix,正数用Fix效率高有一个按钮Command1,和一个文本框Text1代码:PrivateSubCommand1_Click()

#includeusingnamespacestd;intp(inta,intb){intz;if(a==0)z=1;elseif(a==1)z=b；///这里少一个else.elsez=((2*a-

PrivateSubCommand1_Click()DimmAsInteger,nAsIntegerDimcAsDoublem=Val(InputBox("m="))n=Val(InputBox("n

n=val(inputbox"请输入一个数字.")fori=1tona=a+inextiprinta

PrivateSubForm_Click()DimnAsIntegern=Val(InputBox("请输入N:"))Dima,bAsLonga=1:b=1Fori=1TonPrinta&""&b&"

//很简单,应该是答案印错了//不过这样才是正确的递归方式doublelegendre(intn,doublex){if(n==0)return1;elseif(n==1)returnx;elsere

PrivateSubForm_click()p1=1p2=1p3=p1i=1DoWhileAbs(p3)>0.0000001'p3要取绝对值p2=(-1)*p2p3=p2/(i+1)p1=p1+p3'

PrivateSubCommand1_Click()Dimi,j,kFori=1To10k=1Forj=1Toik=k*jNextPrinti&"!="&kNextEndSub再问：如果用inputb

PrivateSubForm_Click()DimHeAsLongDimIAsInteger,MAsInteger,NAsIntegerM=Int(Val(InputBox("M的值","输入",3)

while的：DimnAsInteger,aAsInteger,totAsDoubletot=1a=1n=InputBox("请输入N的值")Whilea再问：...调试不出来再答：把我的代码放在某个

的很大的时候是否会超出double的有限范围?

非常简单啊.intmain(){inti,;doublesum=0;for(i=1;i

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

#include#includefloatmyfunction(intn,intx){if(0==n){return1;}elseif(1==n){returnx;}else{return((2*n-

mModn=rr=mModn

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

elser=((2a-1)*b*lrd(a-1,b)-(a-1)*lrd(a-2,b))/a;要写2*a不能写2a

用while的,其它的dowhile的基本相同PrivateSubCommand1_Click()DimnAsIntegern=InputBox("请输入")f=1i=2s=0Wh

是学数学的吗?勒让德多项式在求高阶导数的题目中出现,在物理数学中应用较多