VB中计算当2的n次方大于100时,n的最小值

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

privatesubform_click()dimnaslong,snaslongn=inputbox("请输入n")fori=0tonsn=sn+2*i+1nextmsgbox"1+3+5+...(

PrivateSubCommand1_Click()DimiAsIntegerDimSumAsIntegeri=1Sum=0DoWhile(Sum

PrivateSubCommand1_Click()DimSAsDouble,jcAsDouble,NAsIntegerjc=1N=Val(InputBox("请输入N"))Fori=1ToNjc=j

PrivateSubCommand1_Click()DimmAsLong,nAsIntegerm=Val(InputBox("请输入一个数"))Forn=1TomIf2^n>=mThenMsgBox"

1)0

我觉的题目条件应放小为N》5,下面用数学归纳法证明：①当N=5时,32〉25显然成立.②假设N=K时成立,即2ˇK〉Kˇ2……K〉5,2Kˇ2—（K＋1）ˇ2＝Kˇ2—2K—1＝（K—1）ˇ2—2〉0

假设2^n>2n+1是成立的则2^(n+1)=2*2^n>2*(2n+1)2*(2n+1)-[2(n+1)+1]=4n+2-(2n+3)=2n-1>0所以2^(n+1)>2(n+1)+1也就是说加入满

n=3时,2^3=8>2*3+1,2的n次方大于2n+1成立设n≤k,k>3时成立则：2^(k+1)=2*2^k>2*(2k+1)=4k+2>2k+8>2(k+1)+1n=k+1时成立所以,2的n次方

根据二项式定理,有[1+(1/n)]^n=1+n*(1/n)+[n*(n-1)/(2!)]*[(1/n)^2]+...+[n*...*1/(n!)]*[((1/n)^n]=1+1+[n*(n-1)/(

解:1.当n=3时:2^3=8>2×3+1=7,结论成立2.假设当n=k(k≥3,k∈N)时结论也成立,即2^k>2k+13.当n=k+1时:2^(k+1)=2×2^k>2(2k+1)=4k+2(由归

当m,n为自然数,且m大于n,多项式x的m次方+y的n次方+2的m+n次方的次数应该是（m）.

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

新建工程,添加command1控件.vb6.0+xp调试成功代码如下：DimnAsIntegerPrivateSubCommand1_Click()m=InputBox("请输入底数m")n=Inpu

privatesubcommand1-click()dimn%,y#,s&n=2:y=0:s=1dos=s*ny=y+1/sn=n+1loopuntil1/s

请加写括弧,否则“n次根号三分之二”看不出根号下有什么.

根号下a的2n+1次方乘以b的4n+3次方=[a^(2n+1)*b^(4n+3)]^1/2=a^(n+1/2)*b^(2n+3/2)

PrivateSubCommand1_Click()DimNAsLong,SAsLongDoN=N+1S=S+N*(N+1)IfS>5000ThenExitDoLoopPrint"结果="&SPrin

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

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