vb编程s=1-13 15-17 19求和代码

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

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

 Private Sub Command1_Click()Dim F(11), i As LongF(0) = 

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

OptionBase1'因为用了这句,所以数组下标从1开始PrivateSubcommand1_click()Dimdd=Array(1,2,3,4,5)n=1Fork=5To3Step-1s=s+d

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

PrivateSubCommand1_Click()DimnAsLongDimiAsLongDimsumAsDoublen=Val(Text1.Text)sum=1#Fori=2Ton'sum=sum

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

PrivateSubCommand1_Click()dimiasintegerfori=1to55step2m=m+inextiprintmendsu

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

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