VB计算1*2 2*3 3*4

PrivateSubCommand1_Click()DimnAsInteger,tmpAsDouble,sumAsDoubleDimiAsInteger,jAsIntegern=4tmp=1Fori=

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

DimsAsDouble,aAsDoubleDimiAsLongs=0i=1DoWhilei再问：那应该怎么改啊？再答：已经给你改好了啊，对照你的代码和我的你没有发现不一样吗，

for循环默认有个setp1,i会每次自动增1,循环体里还有个i=i+1,所以,第一次sum从0变为1,然后i为了3,符合条件进入第二轮,sum=1+3=4,接下来由于i变为5,不满足再问：循环结束了

PrivateSubCommand1_Click()DimnAsLong,xAsSingle,yAsSingle,y2AsSingle,sumAsSinglex=Val(InputBox("请输入一个

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

这样的题目主要是利用Mod运算,能被13整除,n就加1,代码如下：PrivateSubCommand1_Click()Fori=1To9999IfiMod13=0Thenn=n+1EndIfNexti

PrivateSubCommand1_Click()DimsAsString,nAsInteger,iAsIntegerFori=1To100n=n+iNextiPrint"1+2+3+……+100=

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

PrivateSubCommand1_Click()DimiAsDoubleDimnAsDoubleDimsumAsDoublesum=0IfNotIsNumeric(Text1.Text)Then'

PrivateSubCommand1_Click()DimnAsInteger,iAsInteger,jAsInteger,Sum&,m&n=Val(InputBox("请输入N值"))Sum=0Fo

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

PrivateSubCommand1_Click()'没考虑两数相加等于10的情况Dims1AsString,s2AsStrings1=Trim(Text1.Text)s2=Trim(Text2.Te

DimsumAsInteger,iAsIntegersum=0Fori=1To100sum=sum+iNextDebug.Print"1+2+...+100=";sum

是不是弄错了,8\4=2,2MOD6=24MOD6=4,8\4=2再问：哦哦，对，搞错了

PrivateSubForm_Click()Dimi&,PI#Doi=i+1PI=PI+(-1)^(i-1)/(2*i-1)LoopUntil1/iPI=PI*4Print"π=";PIEndSu

PrivateSubCommand1_Click()Dimi%DimsAsSingles=0Fori=1To10s=s+1/compu(i)NextiText1.Text=sEndSubFunctio

PrivateSubCommand1_Click()DimnAsDoublen=Val(InputBox("N="))Fori=1Tons=s+1/(n*(n+1))NextiMsgBox"所求的和为

PrivateSubCommand1_Click()DimsAsDoubleDimaAsLong,nAsLongn=1a=1s=s+1/aDoUntil1/aa=a+ns=s+1/an=n+1Loop

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