在vb中,用for 循环1 2 3 3 4 ......n (n-1)(n 1)

用count,否则的话,如果记录太多,你将不停地MoveNext,不停地判断b=a.DimiAsInteger,nAsLong,sAsStringText8=""Adodc1.RecordSource

a是循环变量,b是初始值,c是步进数,即每循环一次a的值的变化量.n=Inputbox("n=")i=0s=0Fori=0toni=i+1s=s+iNextiPrintsPrivateSubComma

我也才学vb假如是fort=1to10step1那么t的取值就是1、2、3、4、5、6、7、8、9、10；如果step2那么t的取值是1、3、5、7、9；如果是step3那么t取值是1、4、7、10；

很简单,因为你每单击一次左边的就执行此过程,而左列表框是每次都更新的.

【答案】：12【运行过程】由于step(步长)为3,每次循环时,i都会+3.如果不写step3则默认每次循环+1循环ii与10比较s①3

14i=1时,j=1to1,k=1to3,a=a+1执行3次,a=3i=2时,j=1to2,k分别=1to3和,2to3,则执行3+2=5次,a=3+5=8i=3时,同理,a=a+1执行3+2+1=6

不可以,for循环只在第一次进入时进行断定,然后它就不管你的设定了.再问：那除了goto没了其它办法了？再答：for循环做不到，你可以考虑一下while.....wend或do......Loop

fori=1to9ifi4andi7then'要执行的语句endifnext再问：请问有更直接一点的方式吗？我给您说一下我的整个程序的用途：测算用穷举法破解一个一定位数（位数通过文本框输入）的序列号所

循环内可以,如果你是说for循环的循环终止判定,那似乎没有.再问：哦！比如：forx=1to20if*********thenendifif*********thenendifnext这样可以吗？

好像这个问题没什么意义啊,对于我们这些编程人员来说,这类刁钻古怪的问题是不会很关注的,如果不是出于考试的目的,这个问题还是不用花时间纠结了.答案是 step<=0时, 程序不

Fori=aTob'在i,a,b中,只有改变i才会对循环次数有影响Next

for语句里面有个缺省的参数step,表示步长,表示每次循环变量每次增加多少,默认等于1.这个值可以是正可以是负可以是0,所以当它为0时候就出现死循环了.比如：Fori=0To10Step0Debug

由于数据在计算机内部均是以二进制形式存储的,十进制整数可准确转换为二进制形式,而带小数点的十进制数在转换为单精度型数或双精度时多半存在数制转换误差,如果使用非整型数做循环控制变量,循环参数也使用非整型

总之都会在第二个for循环中运行的加一个计数的就行了,还有第一个循环0-50循环了50+1次第二个也是51*51就是循环的总次数（总循环）你的S变量是满足条件的循环数

fori=tostep0.1以0.1为步进推进,其他类推初值>与都可为小数

1、正确的循环次数应该是：X=0ForI=aTobStepcX=X+1NextIX是循环总次数2、我认为你的：“循环总次数=(b-a)\c+1”应该是的,例如：ForI=1To10Step3的循环总次

dimn,s,i,pdon=val(inputbox("大于0的正整数"))loopuntiln>0andn=int(n)s=1p=-1fori=1tons=s+p*2*n/(2*n+1)p=p*-1

你写反了,应该是fori=3to1step-0.1计算公式(终植-初值)/步长+1=(1-3)/(-0.1)+1=21所以是21次

例如你Dimx(10)asinteger你要给他们赋值,你可以手动一个个赋值例如x(0)=1,x(1)=2,x(2)=3.但是最简便的方法是Fornext循环让循环赋值.这样会简便点.

fori=1to4printi;（此行输出为:1234）nextiprinti(退出循环时,i=5)再问：为什么会循环到5呢？to4就结束了啊？再答：书上有一句话：当循环的值“超过”终值时，退出循环。