vb作业计算下列的和,s=1 x x 2!

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

数学计算可以简化过程：因为1-2=-1,3-4=-1...所以得出-1+(-1)+...,重复(100/2)次,即代码为(这是最简单而且最快速的办法)：DimsAsInteger=-(100/2)如果

PrivateSubCommand1_Click()Dimn,jc,sumn=25jc=1sum=1Fori=1Tonjc=jc*isum=sum+1/jcNextisum=Format(sum,"0

PrivateSubForm_Activate()a5EndSubSuba(nAsLong)DimiAsLongFori=1TonSum=Sum+1/f(i)NextiPrintSumEndSubFu

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

一次都运行不起来,编译错误.next后面的变量必须和循环计数器相同也就是next或nexti都可以,nexts不行如果是nexti那么第一次,i=1,s=1步长为3,所以第一次执行到nexti,i=i

    Dim s As Double, x As Single, t As&n

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

你这个题目可能没有写全,根据你提供的条件,Y在X5时=1,如果X在(1,5)之间,Y无解这样就可以做了,在窗体上画一个Command控件,编写如下代码PrivateSubCommand1_Click(

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

dimiasintegerdimsasdoubledimdxasdoubledimxasdoubleinputboxxdx=-xs=dxi=1whiledx>0.00001dx=(-1)^(i+1)*

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

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

第一次循环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

PrivateSubCommand1_Click()dimiasintegerfori=1to55step2m=m+inextiprintmendsu

这个你是真不会?结果是3；3

用Sub过程实现：PrivateSubCommand1_Click()DimtAsLongs=0fac01,ts=s+tfac02,ts=s+tfac03,ts=s+tPrint"s=1!+2!+3!