vb编程计算s=1 2 _3-- 100的值

数学计算可以简化过程：因为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

#includevoidmain(){doublea,b(1),s=0;for(a=1;a

dims,a,is=1a=1i=0DoWhilea

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

PrivateSubForm_Load()DoDimaAsSingle,bAsSingle,cAsSingle,pAsSingle,sAsSinglea=Val(InputBox("请输入三角形第1条

i=0s=0DOWHILEi

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

PublicFunctions(n)Dimi,j,t,resFori=1Tont=1Forj=1Toit=t*jNextres=res+tNexts=resEndFunction

你好!PrivateSubForm_Click()DimiAsIntegerDimsAsIntegerFori=1To100s=s+iNextiPrintsEndSu

PrivateSubCommand1_Click()DimiAsLong,Si=0:S=0WhileSi=i+1S=S+i*(i+1)WendText1.Text=SText2.Text=iEndSu

#includeusingnamespacestd;intf(intn){ints=0,t=1;for(inti=1;i

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

……t=1s=0Fori=1To10t=t*is=s+tNexti再问：这个要用什么下拉列表呢？再答：Textbox代码是在Botton中完成！

1-2_3+4+5-6_7+8+9.2005_2006_2007+2008+2009_2010_2011=（1-2-3+4）+（5-6-7+8）+……+（2005-2006-2007+2008）+（2

dimaaslongdimbaslongdimcaslongdimdassinglex1,x2也是dim(定义变量一般都是用dim)d=b^2-4acif再问：constaAslongbAslongc

PrivateSubCommand1_Click()'10^(-4)=1/10000Fori=1To9999Step3a=1/iSum=Sum+aNextiPrintSumEndSu

PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,nAsIntegerDimsum1AsLong,sum2AsLongn=inputbox("请输入

PrivateSubCommand1_Click()dimiasintegerfori=1to55step2m=m+inextiprintmendsu

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