循环结构(又称为重复结构).ppt

循环结构（又称为重复结构）,在这种结构中，按给定的条件连续重复多次执行A框中的一组算法步骤。A框称为循环体。一般来说，循环结构有二种：当循环和直到循环。当循环结构的特点：当条件成立时，重复执行循环体；当条件不成立时，不执行循环体并立即退出循环。直到循环的特点是：重复执行循环体，直到条件成立时退出循环。,当循环,直到循环,当循环结构中，循环体可能一次都没执行；而直到循环的循环体至少被执行一次。,计算12个实验数据的平均值,一、用For-Next语句实现循环结构,预先能确定重复次数的循环问题可以使用For-Next来实现.,FOR -NEXT语句的一般格式是： For = To Step Next,FOR -NEXT语句的执行过程是：,1.对循环变量设置初值。 2.判断循环变量的值是否大于终值，若大于，则退出循环，否则，执行循环体。 3.执行循环体后，循环变量的值增加一个步长的值，再执行上述步骤 2。,计算1+2+3+10的值,t = 0 For i = 1 To 10 t = t + i Next i Print “t=“; t,计算1+3+5+7+9的值,t = 0 For i = 1 To 10 Step 2 t = t + i Next i Print t,计算2+4+6+8+10的值,t = 0 For i = 2 To 10 Step 2 t = t + i Next i Print t,计算1+3+5+7+前20项的值,t = 0 For i = 1 To 40 Step 2 t = t + i Next i Print t,计算10+9+8+1的值,s = 0 For i = 10 To 1 Step -1 s = s + i Next i Print s,计算1+1/2+1/3+1/10的值,s = 0 For i = 1 To 10 s = s + 1 / i Next i Print s,计算1/2+1/22+1/231/2100的值,s = 0 For i = 1 To 100 s = s + 1 / 2 i Next i Print s,方法一：,s = 0 M = 1 For I = 1 To 100 s = s + M Next I,s = 0 M = 1 For I = 1 To 100 M = M / 2 s = s + M Next I,方法二：,计算12个输入数据的平均值,s = 0 For i = 1 To 12 input a s = s + a Next i Print s / 12,画圆形 Circle (500, 800), 100, RGB(255, 0, 0) 题目：画10个同心圆,For i = 100 To 1000 Step 100 Circle (1800, 1500), i, RGB(255, 0, 0) Next i,计算s=1*2*3*4*10 10!,s = 1 For i = 1 To 10 s = s * i Next i Print s,输入数字n,计算n！,Input n s = 1 For i = 1 To n s = s * i Next i print s,计算s=1-2+3-4+5-6+7-8+9-10,s = 0 t = 1 For i = 1 To 10 s = s + t * i Next i Print s,s = 0 t = 1 For i = 1 To 10 s = s + t * i t = -t Next i Print s,求1-1/21+1/31-1/41+.+1/91-1/101,s = _ t = 1 For i = 21 To 101 Step 10 _ t = -t s = s + t * a Next i Print s,s = 1 t = 1 For i = 21 To 101 Step 10 a = 1 / i t = -t s = s + t * a Next i Print s,填数,3_*8256=_3*6528,For i = 1 To 9 If (30 + i) * 8256 = (i * 10 + 3) * 6528 Then Print i End If Next i,统计200以内37的倍数有几个？并把符合要求的数字输出。,c = 0 For i = 1 To 200 If i Mod 37 = 0 Then c = c + 1 Print i End If Next i Print c,若一个三位数x=100a+10b+c(a,b,c都是个为数），满足a3+b3+c3=x,则x称为水仙花数，找出所有的水仙花数。,For n = 100 To 999 a = Int(n / 100) b = Int(n - 100 * a) / 10) c = n Mod 10 If a 3 + b 3 + c 3 = n Then Print n Next n,有一个五位数字组成的编号1_ _47,千位和百位不知，但是这个五位数是57或67的倍数，输出所有满足这些条件的五位数，并统计这样数的个数。,分析,10047=10047+0=10047+0*100 10147=10047+100=10047+1*100 10247=10047+200=10047+2*100 10347=10047+300=10047+3*100 . 10947=10047+900=10047+9*100 11047=10047+1000=10047+10*100 11147=10047+1100=10047+11*100 . 11947=10047+1900=10047+19*100 12047=10047+2000=10047+20*100 . 19947=10047+9900=10047+99*100,c = 0 For j = 0 To 99 n = 10047 + j * 100 If n Mod 57 = 0 Or n Mod 67 = 0 Then c = c + 1 Print n End If Next j Print c,用10元和50元两种纸币组成240元，共有哪几种组合方式？,分析,x代表10元的张数 当50元0张：x=(240-0*50)/10 当50元1张：x=(240-1*50)/10 当50元2张：x=(240-2*50)/10 当50元3张：x=(240-3*50)/10 当50元4张：x=(240-4*50)/10,For i = 0 To 4 x = (240 - 50 * i) / 10 Print “五十元张数“; i, “十元张数“; x Next i,x代表50元的张数 当10元0张：x=(240-0*10)/50 当10元1张：x=(240-1*10)/50 当10元2张：x=(240-2*10)/50 。 当10元24张：x=(240-24*10)/50,For i = 0 To 24 x = (240 - 10 * i) / 50 If x = Int(x) Then Print “五十元张数“; x, “十元张数“; i End If Next i,当一个直角三角形，一条直角边的长度为8，切斜边不超过100时，所有满足条件的直角三角形有哪几种组合？,For i = 9 To 100 x = Sqr(i * i - 8 * 8) If x = Int(x) Then Print i, x,8 Next i,包装600个变形金刚，要求是： 1，包装的规格分别是：小盒每盒12个，大盒每盒15个。 2,每种规格的盒数都不能为0。 请设计一个算法，输出所有可能的包装方案。,方法一: For i = 1 To 49 x = (600 - 12 * i) / 15 If x = Int(x) Then Print “小盒个数“; i, “大盒个数“; x End If Next i,For i = 1 To 39 x = (600 - 15 * i) / 12 If x = Int(x) Then Print “小盒个数“; X, “大盒个数“; i End If Next i,当型(while) 循环： Do While 语句组 Exit Do 语句组 Loop,当型（while）循环的执行过程是：先判断是否成立，若不成立则退出循环，执行Do while的下一个语句；若成立，则执行Do-Loop之间的语句（称为循环体），执行完循环体，再去判断，当条件成立时继续执行循环体。,直到型(Until) 循环： Do 语句组 Exit Do 语句组 Loop Until ,直到型（until）循环的执行过程是：先执行Do-loop之间的语句（称为循环体）；执行完循环体，再去判断，当条件成立时退出循环，否则继续执行循环体，直到条件成立，退出循环。,t = 0 i=1 Do while i= 10 t = t + i i=i+1 Loop Print “t=“; t,t = 0 For i = 1 To 10 t = t + i Next i Print “t=“; t,计算1+2+3+10的值 1.Do while 和 FOR 对比,计算1+3+5+7+9的值,t = 0 i = 1 Do while i=10 t = t + i i=i+2 loop Print t,t = 0 For i = 1 To 10 Step 2 t = t + i Next i Print t,计算10+9+8+1的值,s = 0 For i = 10 To 1 Step -1 s = s + i Next i Print s 改为do while 结构,s = 0 i = 10 Do while i= 1 s = s + i i=i-1 loop Print s,S=0 n=1 Do while n=5 S=s+2*n N=n+1 Loop Print s,S=0 For n =1 to 5 S=s+2*n Next n Print s,30,K=1 S=1 Do while k=11 S=s*k K=k+2 Loop Print s,S=1 For k=1 to 11 step 2 S=s*k Next k Print s,10395,从1+2+3+4+，加到什么数时和大于10000。打印出这个加数及这时的和。,n=0 s=0 do while s=10000 n=n+1 s=s+n loop print n,s,这两句代码次序能互换吗？,求输入的一个数的各位数字之和。,（分析：一个整数有一位至多位数字组成，要求出这个数的各位数字，用这个数除以10的余数就是这个数的个位数字，然后将它用整除的方法缩小10倍后，继续求出它得个位数字，一直到它位0时，就求出了这个数的所有各位数字。）,Input x s=0 do while x0 t=x mod 10 s=s+t x=int(x/10) loop print s,输入一个不大于10位的二进制数n，将其转换成对应的十进制数,提示： （10101）2=1*20+0*21+1*22 +0*23+1*24）,input x i = 0 s = 0 Do While x 0 t = x Mod 10 s =_ x = Int(x / 10) _ Loop Print s,或者t = x Mod 2,input x i = 0 s = 0 Do While x 0 t = x Mod 10 s = s + t * 2 i x = Int(x / 10) i = i + 1 Loop Print s,从1+2+3+4+，加到什么数时和大于10000。打印出这个加数及这时的和。,直到型(Until) 循环： Do 语句组 Exit Do 语句组 Loop Until ,s = 0 n = 0 Do n = n + 1 s = s + n Loop Until s 10000 Print n, s,s = 0 n = 0 Do While s = 10000 n = n + 1 s = s + n Loop Print n, s,求输入的一个数的各位数字之和。 Do loop until,Input x s = 0 Do t = x Mod 10 s = s + t x = Int(x / 10) Loop Until x = 0 Print s,Input x s=0 do while x0 t=x mod 10 s=s+t x=int(x/10) loop print s,K=22 S=0 Do S=s+k K=k+2 Loop until k=29 Print s,计算5个输入数据的平均值 1.do while loop 2.do loop until,s = 0 i = 1 Do While i = 5 input a s = s + a i = i + 1 Loop Print s / 5,s = 0 i = 1 Do input a s = s + a i = i + 1 Loop Until i 5 Print s / 5,求十个数中最大值 打擂台法,_ max=x i=1 do while _ _ if xmax then _ i=i+1 _ print _,Input x max=x i=1 do while imax then max=x i=i+1 loop print max,方法二： max=0（或一个很小的数） i=1 do while imax then max=x i=i+1 loop print max,求十个数中最小值,Input x min=x i=1 do while i=9 input x if xmin then min=x i=i+1 loop print min,方法二： min=10000（或一个很大的数） i=1 do while i=10 input x if xmin then min=x i=i+1 loop print min,求输入若干个学生成绩的和，输入-1表示结束。,S=0 input x do while x-1 s=s+x input x loop print s,对输入的数据求和，当所求的和超过100，则停止输入，并输出求和结果。,S=0 do while s=100 input x s=s+x loop print s,S=0 do input x s=s+x loop until s100 print s,计算S=1!+2!+3!+N! 请将流程图填写完整。,求斐波纳契数列 1，1，2，3，5，8，13，21。前n项（第一项和第二项不算）,_ f1=1 f2=1 i=_ Do while i=_ _ Print f3 f1=f2 _ i=i+1 loop,Input n f1=1 f2=1 i=1 Do while i=n f3=f1+f2 Print f3 f1=f2 f2=f3 i=i+1 loop,S =1/2+1/22+1/23+1/24+1/25 求出多少项后余下的部分的和小于0.00001,s = 0 i = 0 Do i = i + 1 s = s + 1 / 2 i Loop Until s = 1 - 0.00001 Print i,s = 0 t = 1 i = 0 Do While s 1 - 0.00001 _ i = i + 1 s = s + 1 / t Loop Print i,s = 0 t = 1 i = 0 Do While s 1 - 0.00001 t = t * 2 i = i + 1 s = s + 1 / t Loop Print i,有一张纸，其厚度为x毫米,将它对折多少次,其厚度将超过珠穆朗玛峰的高度. 珠穆朗玛峰高度为8844.43米,Input x i = 0 Do While x = 8844430 x = x * 2 i = i + 1 Loop print “需折叠“ ; i ;”次“,Input x s = 0 i = 0 Do While s = 8844430 i = i + 1 s = x * 2 i Loop print “需折叠“ ; i ;”次“,计算图6-6-2电路中A、B二端的等值电阻，其中R0=100，R1=200，R2=300,分析：采用由右向左递退的方法。把整个电路按虚线分成若干级。第一级为A2B2两点之间的电阻。显然A2B2两点之间的电阻为R1与 R0 串联后再与R2并联。,根据物理公式可以求出A2B2两点之间的电阻，记为R0。而A1B1两点之间的电阻又可以看成是R1与R0串联后再与R2并联。假设为R0。同样，AB两点之间的电阻又可以看成是R1与R0串联后再与R2并联。显然，重复计算三次，就可以求出AB两点之间的电阻。当然，在这样的三次计算中，电阻R0的初值是100。,R0 = 100 R1 = 200 R2 = 300 For i = 1 To 3 Step 1 R0 = R0 + R1 R0 = R 0* R2 / (R0 + R2) Next i Print “R=“; R0,每个电阻都为200， 计算AB两端的电阻值,R1 = 200 R0 = 200 For N = 1 To 4 R0 = R0 + 2 * R1 R0 = R0 * R1 / (R0 + R1) Next N Print “R=“; R0,设有一曲线y=9-x2，要求该曲线与坐标轴 在第一象限所围的面积(如图)。,提示：将X轴上的区间0，3，分成若干等分，从各分点作Y轴的平行线与曲线相交。再从个交点向左作X轴的平行线（如图所示），构成若干个矩形。设计一个程序求这些矩形面积的和，就可以求出所围面积的近似值。 如果把区间a，b分成n等分，则X轴上（n-1个）分点的坐标从左到右依次为： (b-a)/n、 (b-a)*2/n 、(b-a)*3/n 、(b-a)*i/n、(b-a)*(n-1)/n 因而，第i个矩形的高为： 9-（(b-a)*i/n） 2,z = 0 For i = 1 To 99 s = (3 / 100) * (9 - (3 * i / 100) 2) z = z + s Next i Print z,用辗转相减法求两自然数m，n的最大公约数,m n 14 6 8 6 2 6 2 4 2 2,m=m-n mn n=n-m nm m、n为公约数 m=n,Input m Input n Do While m n If m n Then m = m - n Else n = n - m End If Loop Print m,求两自然数m，n的最大公约数和最小公倍数。,方法一：分析：求最大公约数的算法思想： (1)对于已知两数m，n，使得mn；,(2)i=n,(3)若i能够同时整除m和n则i为m，n的最大公约数,转(6),(4)i=i-1,(5)重复(3)(4),(6)输出最大公约数i和最小公倍数n*m/i,(7)程序结束,Input m Input n If m n Then _ _ _ End if i=n Do while _ or _ _ Loop Print “最大公约数=“, i Print “最小公倍数=“, m*n/i,Input m Input n If m 0) or (n mod i 0) i=i-1 Loop Print “最大公约数=“, i Print “最小公倍数=“, m*n/i,用辗转相除法求两自然数m，n的最大公约数。 分析：求最大公约数的算法思想： (1)对于已知两数m，n，使得mn； (2) m除以n得余数r； (3) mn，nr，若n=0，则循环结束 ，m为最大公约数；否则从(2) 重 复执行。,例 求 m=14 ,n=6 的最大公约数.,m n r 14 6 2 6 2 0 2 0,N=0,input m input n If m n Then t = m m = n n = t endif Do r= m mod n m=n n=r Loop until n=0 Print “最大公约数=“, m,求两自然数m，n的最小公倍数,Input a Input b i = 1 s = a * i Do While s Mod b 0 i = i + 1 s = a * i Loop Print s,猴子吃桃问题。小猴子第一天摘下若干个桃子，当即吃掉一半，还不过瘾，又多吃一个，第二天吃掉剩下的一半，又多吃一个，以后每天如此，到第十天时，只剩下1个，问猴子总共摘了多少桃子。 分析：这是一个递推问题，先从最后一天的桃子数X10推出倒数第二天的桃子数X9，再由X9推出倒数第三天的桃子数X8，第一天的桃子数X1。设第n天的桃子数为Xn,它前一天的桃子数为Xn-1， 则：X(n)=X(n-1)/2-1 推出X(n-1)=2*(Xn+1) x10=1 x9=2*(x10+1)=4 x8=2*(x9+1)=10,X = 1 For n = 9 To 1 Step -1 X = 2 * (X + 1) 计算前一天的桃子数 Next n Print X,x=0 For j = 1 To 3 For i = 1 To 2 x = x + 1 Next i Next j Print x,i,j,6 3 4,x=0 c=0 For j = 1 To 2 For i = 1 To 2 x = x + 1 Next i c = c + 1 Next j Print c,i,j,x,2 3 3 4,输出如下图形： * * * * *,For i = 1 To 5 For j = 1 To 10 Print “*“; Next j Print Next i,复习,下列程序运行的内循环总次数为 。 FOR M=1 TO 2 FOR N=1 TO M+1 NEXT N NEXT M,5次,(43) or (72)的值是:,T,(43) or (23)的值是:,T,(43) and (23)的值是:,F,(43) and (72)的值是:,T,Not (43) and (72)的值是:,F,(72) and Not (43)的值是:,F,(4+3)(4-3 )or (5+2)5 and (87),T,采用33KHZ的采样频率、双声道的方式用录音笔录制了2分钟的演讲，采用的量化级数为24位，得到内容为 _KB的录音文件. 答案：33*1000*2*120*24/8/1024,一张1024*768像素的图片，如果以16位彩色扫描，其图片大小约为_KB. 答案：1024*768*16/8/1024,S=0 J=1 DO WHILE J6 J=J+2 S=S+J*2 LOOP PRINT S,J 输出的结果是。,30 7,S=0：P=3 DO WHILE P=10 IF P MOD 3=0 THEN S=S+1 END IF P=P+3 LOOP PRINT S 执行结果是：_,3,下列程序的运行结果是 。 X=1：Y=2 FOR A=1 TO 2 FOR B=2 TO 3 Y=Y+B NEXT B X=X*Y NEXT A PRINT X,84,若依次输入9、2、3、2、99，则输出结果是_.,A. 4 B. 23 C. 3 D. 24,A,找出符合下列要求的五位数1_4_7，该数能被57或67整除。方法一：,For i = 0 To 9 For j = 0 To 9 n = 10407 + i * 1000 + j * 10 If n Mod 57 = 0 Or n Mod 67 = 0 Then Print n End If Next j Next i,方法二： For i = 0 To 9 S = 10407 + i * 1000 For j = 0 To 9 n = S + j * 10 If n Mod 57 = 0 Or n Mod 67 = 0 Then Print n End If Next j Next i,百鸡百钱问题：公鸡每只5元，母鸡每只3元，小鸡1元3只，现在用100元钱买100只鸡，求公鸡，母鸡，小鸡各买几只？,For x = 1 To 99 For y = 1 To 99 z = 100 - x - y If 5 * x + 3 * y + z / 3 = 100 Then Print x, y, z Next y Next x,百鸡百钱问题：公鸡每只5元，母鸡每只3元，小鸡1元3只，现在用100元钱买100只鸡，求公鸡，母鸡，小鸡各买几只？,x = 1 Do While x 100 y = 1 Do While y 100 z = 100 - x - y If 5 * x + 3 * y + z / 3 = 100 Then Print x, y, z y = y + 1 Loop x = x + 1 Loop,百鸡百钱问题：公鸡每只5元，母鸡每只3元，小鸡1元3只，现在用100元钱买100只鸡，求公鸡，母鸡，小鸡各买几只？,For x = 1 To 19 For y = 1 To 33 z = 100 - x - y If 5 * x + 3 * y + z / 3 = 100 Then Print x, y, z Next y Next x,数组,从存储角度看，前面使用的变量都是相互独立的、无关的，通常称它们为简单变量。但如果处理将200个学生的成绩按大小顺序排序这类问题，只使用简单变量将会非常麻烦，而利用数组却很容易实现。,数组的概念,在实际应用中，常常需要处理相同类型的一批数据。例如，为了处理100个员工的工资，可以用S（1），S（2），S（100）来分别代表每个员工的工资，其中S（1）代表第一个员工的工资，S（2）代表第二个员工的工资。在VB中，把一组相互关系密切的数据放在一起并用一个统一的名字作为标志，这就是数组。,数组中的每一个数据称为数组元素，用数组名和该数据在数组中的序号来标识。序号又称为下标，数组元素又称为下标变量。例如，S（2）是一个数组元素，其中的S称为数组名，2是下标。在使用数组元素时，必须把下标放在一对紧跟在数组名之后的括号中。S（3）是一个数组元素，而S3是一个简单变量。 如果只用一个下标就能确定某个数组元素在数组中的位置，这样的数组称为一维数组。如果用两个或多个下标才能确定某个数组元素在数组中的位置，则数组分别称为二维数组或多维数组。(如:第一排，第三人) mark(1,3),一维数组,一维数组的定义 数组应当先定义后使用，数组的定义又称为数组的声明或说明。 对于固定大小的一维数组，用如下格式进行定义： 说明符 数组名（下标）As 类型 例如：Dim y（5）As Integer 定义了一个一维数组，该数组的名字为y，类型为Integer，占据6个（05）整型变量的空间。,说明： （1）“说明符”为保留字，可以为Dim，Public，Private，Static中的任意一个。在使用过程中可以根据实际情况进行选用。定义数组后，数值数组中的全部元素都初始化为0，字符串数组中的全部元素都初始化为空字符串。 （2）“数组名”的命名遵守标识符规则。 （3）“下标”的一般形式为“下界 to 上界”。 下标的上界、下界为整数，不得超过Long数据类型的范围-2147483648 +2147483647 ，并且下界应该小于上界。如果不指定下界，下界默认为0。 如：a(1 to 48),（4）要注意区分“可以使用的最大下标值”和“元素个数”。 （5）“As类型”用来说明“数组元素”的类型，可以是Integer，Long，Single，Double，String（定长或变长）等基本类型或用户定义的类型，也可以是Variant类型。如果省略“As类型”，则数组为Variant类型。 （6）在同一个过程中，数组名不能与变量名同名，否则会出错。 （7）可以通过类型说明符来指定数组的类型。 例如：Dim A%（5）代表integer， B！（3 To 5）代表single ，C#（12）代表double,一维数组的引用 数组的引用通常是对数组元素的引用。一维数组元素的表示形式为： 数组名（下标） 一般通过循环语句及InputBox函数、文本框给数组输入数据。数组的输出一般用Print方法、标签或文本框实现。,把输入的5个整数按顺序，和逆序输出,Dim a(5) As Integer For i = 1 To 5 顺序输入 Input a(i) Next i For i = 1 To 5 顺序输出 Print a(i) Next i For i = 5 To 1 step -1 逆序输出 Print a(i) Next i,Dim a(5) As Integer For i = 1 To 5 顺序输入和输出 Input a(i) Print a(i) Next i,一维数组的应用举例 从键盘上输入10人的考试成绩，输出高于平均成绩的分数。 分析：该问题可分三部分处理：一是输入10个人的成绩；二是求平均分；三是把这10个分数逐一和平均成绩进行比较，若高于平均成绩，则输出。,程序如下： Dim score（10）As Single aver = 0 For i = 1 To 10 Input score（i） aver = aver + score（i） Next i aver = aver / 10 For i = 1 To 10 If score（i） aver Then Print score（i） Next i,已知数组中放了5个数，输出其中的最大值，并输出最大值的位置。,Dim d(5) as integer i=1 K=d(i) N=i Do while ik then K=d(i) N=i Endif i=i+1 Loop Print k,n,Dim d(5) as integer i=1 K=d(i) N=i Do while ik then K=d(i) N=i Endif Loop Print k,n,斐波那契数列,Dim A(60) As Single Private Sub Command1_Click() A(1) = 1 A(2) = 1 For i = 1 To 58 A(i + 2) = A(i + 1) + A(i) Next i Print A(60),阶乘累加,s = 0 For i = 1 To 10 t = 1 For j = 1 To i t = t * j Next j s = s + t Next i Print s,基本程序结构的N-S图 1.顺序结构N-S图,2.选择结构N-S图,3.循环结构N-S图 1)当型循环,2)直到型循环,判断素数1,Input n i = 2 f = True Do While i n If n Mod i = 0 Then f = False endif i = i + 1 Loop If f Then Print “是素数“ Else Print “不是素数“ End If,Input n i = 2 f = True Do While i n If n Mod i = 0 Then f = False Exit do endif i = i + 1 Loop If f Then Print “是素数“ Else Print “不是素数“ End If,判断素数2,Input n i = 2 Do While i Sqr(n) Then Print “是素数“ Else Print “不是素数“ End If,输出100以内的素数,For n = 2 To 100 i = 2 f = True Do While i n If n Mod i = 0 Then f = False i = i + 1 Loop If f Then Print n End If Next n,冒泡排序1（升序）,Dim d(4) As Integer d(1) = 5 d(2) = 4 d(3) = 3 d(4) = 2 For i = 1 To 3 For j = 4 To i + 1 Step -1 If d(j) d(j - 1) Then x = d(j) d(j) = d(j - 1) d(j - 1) = x End If Next j Next i Print d(1), d(2), d(3), d(4),冒泡排序1（降序）,Dim d(4) As Integer d(1) = 3 d(2) = 28 d(3) = 27 d(4) = 5 For i = 1 To 3 For j = 4 To i + 1 St