教案(7)Vb-多重循环(循环嵌套7)

第七章控制结构,综合：循环程序结构的嵌套,例1：打印一行“*”（“*”的个数由输入决定）,分析：1.采用什么结构？,*,注意：使用print时，若要将打印数据在同一行输出，应用“；”作为连接。“；”称为紧凑符。否则将会换行打印。,2.采用何种循环？,打印一行“*”其本质就是重复输出“*”，因此采用循环结构。,打印的“*”的个数就是循环次数，这个值是通过输入取得的。循环次数能够预知的情况下，可以使用计数循环。,3.使用print打印“*”。,打印一个”*”,print“*”,打印6个”*”,print“*”,Forj=1to6Nextj,*,*,“；”称为紧凑符。打印数据在同一行输出,;,print“*”,请看VB实现,例2：输出矩形图案程序设计,(1)你能否让计算机输出一个由“*”号组成的5行、6列的矩形？,*,Fori=1to5Nexti,Forj=1to6print“*”;Nextj,print,打印换行,内层循环,外层循环,当我们要重复执行某些语句组时，我们使用循环结构程序设计方式，而当我们重复执行的循环体包含一个完整的循环结构时，此时就产生了循环的嵌套，我们称之为双重循环。以此推广，当嵌套的层数大于或等于两层时，我们称之为多重循环。内层循环的变量值变化一轮，外层循环的变量值才变化一次。双重循环内部循环体语句执行的次数为外层循环次数与内层循环次数的乘积。注意：多重循环内外层循环不能交叉、内外层循环的循环变量不能同名。,执行次数：?,5*6,以下循环是打印行列共个“*”号,语句Print*;的总共循环次数为。Fori=1to4Forj=1to2Print*;NextjPrintNexti,立马检验,4,2,8,8,例2：输出矩形图案程序设计,请看VB实现,(2)如果要求行、列值大小可以由输入决定，你如何编程实现？,Fori=1to5Forj=1to6print“*”;NextjprintNexti,m,n,m=val(inputbox(“输入行数”)n=val(inputbox(“输入列数”),当print后面输出为空且没有紧凑符起换行作用。每次换行应该在打印完一行以后执行，因此换行的实现应该在外层循环中。即内层循环控制行数，外层循环控制列数。,找错（鸡蛋里挑骨头）,下列程序要完成打印m行n列的“*”号图形，请判断下列程序是否正确，如不正确请指出错在哪里：,Inputm,nFori=1tomForj=1tonPrint*;NextjPrintNexti,“*”,Inputm,nFori=1tomFori=1tonPrint“*”;NextiPrintNexti,找错（鸡蛋里挑骨头）,下列程序要完成打印m行n列的“*”号图形，请判断下列程序是否正确，如不正确请指出错在哪里：,Inputm,nFori=1tomForj=1tonPrint“*”;NextiPrintNextj,Inputm,nFori=1tomForj=1tonPrint“*”NextjPrintNexti,;,输出直角三角形图案程序设计,提示：当各行“*”号的数量从固定值改变为渐变值时也可引用外循环变量的变化规律。,我们知道所需打印的行数，外层循环次数可以以此确定，但内层循环每次打印的个数不相同，怎样找出规律并实现是关键。根据第1行打印一个“*”，第2行打印2个直到最后一行打印的情况分析，每行打印“*”的个数与所处行数一致，因此这里内层循环的终值应与外层循环变量的取值相一致。,*,m=Val(InputBox(输入行数：)Fori=1TomForj=1ToiPrint*;NextjPrintNextI,上机练习,1.两重循环输出直角三角形。在vb平台上实现。*,m=Val(InputBox(输入行数：)Fori=1TomForj=1ToiPrint*;NextjPrintNextI,2.冒泡法排序在程序中应用Dima(10)AsIntegerPrint排序前数据：Fori=1To10a(i)=Int(Rnd*100)Printa(i);NextPrintFori=1To9Forj=1To10-iIfa(j)a(