根据vb编程求解 s=1-1 2 1 3-1 4.... 1 n-1-1 n

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

已通过测试,结果有两组满意请及时采纳,谢谢PrivateSubCommand1_Click()Text1=""Dimnum(8)AsIntegerFori=1To8Forj=1To8IfijThenF

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

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

无语第二个len(Text2.Text)=Len(Text2.Text)-1能赋值么?再问：那怎么改让Text1删一个字符text2也删一个再答：用函数(函数自己找，不多说)去掉他们值的最后一个字符，

for循环修改下fori=1to2n-1step2a=a+inexti

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

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

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

PrivateSubCommand1_Click()dimiasintegerfori=1to55step2m=m+inextiprintmendsu

代码如下：n=inputbox("输入n的值"）s=0a=1b=1fori=1tons=s+a/bb=a+ba=b-anextiprints

PrivateSubCommand1_Click()Dima#,b#,c#,d#,x1#,x2#a=Val(InputBox("a=","数据输入框",1))b=Val(InputBox("b=","

Dimi,sAsIntegerFori=2To100step2s=s+iNexti

用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再问：请输入数字填写什么啊。。小白不懂求大神

PrivateSubCommand1_Click()DimnAsInteger,iAsIntegerDimxAsVariant,sumAsDoublen=20x=CDec(x)x=1Fori=1Ton

PrivateSubCommand1_Click()i=1s=0DoWhilei