用for循环语句在vb中输出图形程序例子

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

PrivateSubCommand1_Click()DimiAsIntegerFori=1To5Ifi5ThenPicture1.PrintSpace((i-1)*2);String(8-((i-1)

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；

fori=3to10000‘查找质数forj=2toi-1x=imodjifi<>0thenexitfor'如果除了1和本身,还能被任意小于本身的一个数整除,那么此数不是指数,并跳出循环,

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

【答案】：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

forx(循环变量)=1(初始值)to10(终止值)step2(步进)next以上为完整的循环结构1.没有终止值所以错3.初始值比终止值小所以步进应该为整数而它是负数所以也错4.初始值大于终止值默认步

dimarray(),iasinteger,jasintegerdimmin_iasinteger,max_jasinteger'用来标注数组中最小值和最大值的下标redimarray(10)=[1,

sqr(n)是指n的平方跟从2到根号n,用来找素数素数肯定从2开始,然后a=根号a*根号a超过根号a就重复计算了再问：那使用sqr(n)有什么好处？或者说和其他的取值方式比有什么区别？为什么不用for

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

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=1to5forj=9to1step-2print6-i;nextjprintnexti

楼主你好,不知道这个是不是你想要的foriin[2,1,0,1,2]:print(i)*""+(5-i*2)*"*"+""*i简单说明一下：用forloop的list[2,1,0,1,2]控制循环的次