用For-Next 语句,求斐波那契级数的前20项

需要的控件：命令按钮,2个,command1,command2标签,2个,label1,label2command1代码：Private Sub Command1_Click()&

自己一点点试,A在循环前应该赋初值A=0在A=A+1后放一条debug.printi,j,k,a可以得到如下结果.看看变化iJKA11111122113321142125213622272238311

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

1,6就这两次说明：SETP是步长的意思.当i=1时,满足循环条件,所以执行一次；然后i=i+5(i=1),也就是i=6,此时满足条件,又执行一次；第三次的时候i=i+5(i=6),也就是i=11,不

fori=1to20n=1/i^2m=m+nnexti

看来我来的不晚VB实现的,你用着看吧,源码如下SubMain()DimaAsInteger,bAsInteger,cAsInteger,iAsIntegerFori=100To999a=iMod10b

以第二个为例吧第一个有三个循环说起来比较麻烦先循环fori=1to20step2【i是变量从1开始循环到20step代表步长每循环一次i加2】i=1x=0【因为第二个循环是属于第一循环里的所以这时进入

for/next已知循环次数后者更灵活.

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

fori=100to200ifimod3=0andimod5=0thenpicture1.printi'以多行显示'picture1.printi;'以单行形式显示endifnexti先在窗体上画一个

exitforexitdo

什么语言?如果是VB:DimsasIntegerDimiasIntegers=0Fori=0to100Step2'i从0数到100,每隔两个数字数一次,所以就是0,2,4,6,8,...,100s=s

用asp预览一下：fori=1to10forj=1to11-iresponse.write" "nextforj=1to2*i-1response.write"*"nextresponse.

FOR...ENDFOR命令FORVarName=nInitialValueTOnFinalValue[STEPnIncrement]Commands[EXIT][LOOP]ENDFOR|NEXT参数

20!这个数太大了吧?!

第2次循环,i=1,j=-3,n=2第3次循环,i=1,j=-2,n=3第4次循环,i=1,j=--1,n=4第5次循环,i=2,j=-4,n=5...共循环3x4=12次,所有n=12-------

495=99*5445=89*5这个等式你把它写成直线左边'_'为x,右边'_'为y则可得到x=5y-36;这样就可用for判断了

步长是循环变量每次的增加量,步长的数值类型应该和循环变量一样,其值可以是正数(递增循环)或是负数(递减循环),不能为0（为0自己可以试试,死循环）,如果没有特别指定,则步长默认为1.不知道楼主所说的是

这道题叫测试嵌套循环的计数器.首先之所以说i的范围不对,不满足循环条件,是因为一般在FOR循环中循环变量会根据步长值自动增加或减少,所以在循环体内不建议改变循环变量的值,而本题中循环体里出现了i=i+

这是基础知识,建议找vb基础类教程多熟悉一下PrivateSubForm_Click()Me.ClsDimiAsIntegerFori=0To3Me.PrintString(3+i*2,"*")Nex