大师作文网VB中s=s (-1)^(n 1)*1 (2n-1)
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/16 01:09:06
数学计算可以简化过程：因为1-2=-1,3-4=-1...所以得出-1+(-1)+...,重复(100/2)次,即代码为(这是最简单而且最快速的办法)：DimsAsInteger=-(100/2)如果
Dimi,nasIntegerDimsasdoublen=val(Text1.Text)i=(1)s=0DoUNTILi>(2*n-1)s=(i+s)i=i+（2）LoopText2.text=(s)
s=0:n=5fori=1tons=s+inextiprints;i当退出循环时,i的值一定是6s=1+2+3+4+5=15
PrivateSubForm_Activate()a5EndSubSuba(nAsLong)DimiAsLongFori=1TonSum=Sum+1/f(i)NextiPrintSumEndSubFu
一次都运行不起来,编译错误.next后面的变量必须和循环计数器相同也就是next或nexti都可以,nexts不行如果是nexti那么第一次,i=1,s=1步长为3,所以第一次执行到nexti,i=i
PrivateSubCommand1_Click()DimiAsDoubleDimnAsDoubleDimsumAsDoublesum=0IfNotIsNumeric(Text1.Text)Then'
PublicFunctions(n)Dimi,j,t,resFori=1Tont=1Forj=1Toit=t*jNextres=res+tNexts=resEndFunction
你好!PrivateSubForm_Click()DimiAsIntegerDimsAsIntegerFori=1To100s=s+iNextiPrintsEndSu
PrivateSubCommand2_Click()DimIAsLong,SAsLongForI=1To100IfIMod2=0ThenS=S-IElseS=S+IEndIfNextPrintSEnd
……t=1s=0Fori=1To10t=t*is=s+tNexti再问：这个要用什么下拉列表呢？再答：Textbox代码是在Botton中完成！
PrivateSubCommand1_Click()Dimi,j,tDimsumsum=1Fori=2To10t=1Forj=1Toit=t*2Nextjsum=sum+tNextiPrintsumE
instr(s,BCD)=2
1.PrivateSubCommand1_Click()DimiAsInteger,sAsLongFori=1To99Step2res=res+iNextiPrintsEndSub2.PrivateS
s=0n=1DoWhilen
第一次循环X=1,Y=2,S=1第二次循环X=1,Y=3,S=2,跳出Y循环第三次循环X=2,Y=3,S=3,跳出Y循环第四次循环X=3,Y=4,不执行Y循环,跳出X循环,S=3
mid从指定位置截取指定长度的容.mid(string,start,len)
这个我来帮你吧!我在VB里写好代码再发给你哟!PrivateSubCommand1_Click()DimnAsInteger,sAsDoublen=Val(InputBox("enterda
PrivateSubForm_click()Dimi,j,m,nAsIntegerFori=1To99Forj=1Toim=1m=m*jNextjn=n+mNextiPrintnEndSu