用VB求s=1-1 4! 1 6!... 1 2n!

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

Dimi,nasIntegerDimsasdoublen=val(Text1.Text)i=(1)s=0DoUNTILi>(2*n-1)s=(i+s)i=i+（2）LoopText2.text=(s)

已经发送请查收

1

PrivateSubCommand1_Click()DimSAsDouble,jcAsDoublejc=1Fori=1To99jc=jc*iS=S+jcNextPrint"S=";SEndSu

PrivateSubCommand1_Click()s=1n=1DoWhiles再问：最后的答案是啥呢大哥n值和s值。。我完全不懂得老师布置的作业再答：6和720再问：大哥看清楚题目确定没错吧错了我要

OptionExplicitPrivateSubCommand1_Click()DimsAsSingle,nAsLong,stAsStringn=1s=0DoDoEventss=s+nst=st&nI

Dims,n,iasIntegerfori=1to100n=(-1)^(i+1)/is=s+nnextiprints再问：在excle中如何检查再答：添加一个命令按钮定义它的单击属性为再添加一个文本显

你好!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

mid从指定位置截取指定长度的容.mid(string,start,len)

PrivateSubCommand1_Click()x=InputBox("请输入x：")e=2.718281828SelectCasexCase-10To-1y=e^x+1Case0To5y=Abs

PrivateSubCommand1_Click()DimmAsInteger,nAsInteger,s,result'm为分母变量,n为位置变量,s为数值变量,result为和的变量m=1:n=0:

PrivateSubForm_click()Dimi,j,m,nAsIntegerFori=1To99Forj=1Toim=1m=m*jNextjn=n+mNextiPrintnEndSu

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

DimNAsLongDimiAsLongN=Val(InputBox("请输入数字","输入数字"))Fori=1ToNs=s+i^2NextMsgBoxs再问：请输入数字填写什么啊。。小白不懂求大神