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

《教案(7)Vb-多重循环(循环嵌套7).ppt》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第七章控制结构综合：循环程序结构的嵌套例1：打印一行“*”（“*”的个数由输入决定）分析：1.采用什么结构？******注意：使用print时，若要将打印数据在同一行输出，应用“；”作为连接。“；”称为紧凑符。否则将会换行打印。2.采用何种循环？打印一行“*”其本质就是重复输出“*”，因此采用循环结构。打印的“*”的个数就是循环次数，这个值是通过输入取得的。循环次数能够预知的情况下，可以使用计数循环。3.使用print打印“*”。打印一个”*”print“*”打印6个”*”print“*”Forj=1to6Nextj*******“；”称为紧凑符。打印数据在同一行输出;

2、print“******”请看VB实现例2：输出矩形图案程序设计(1)你能否让计算机输出一个由“*”号组成的5行、6列的矩形？******************************Fori=1to5NextiForj=1to6print“*”;Nextjprint‘打印换行内层循环外层循环当我们要重复执行某些语句组时，我们使用循环结构程序设计方式，而当我们重复执行的循环体包含一个完整的循环结构时，此时就产生了循环的嵌套，我们称之为双重循环。以此推广，当嵌套的层数大于或等于两层时，我们称之为多重循环。内层循环的变量值变化一轮，外层循环的变量值才变化一次。双重循环内部

3、循环体语句执行的次数为外层循环次数与内层循环次数的乘积。注意：多重循环内外层循环不能交叉、内外层循环的循环变量不能同名。执行次数：?5*6以下循环是打印行列共个“*”号,语句Print"*";的总共循环次数为。Fori=1to4Forj=1to2Print"*";NextjPrintNexti立马检验4288例2：输出矩形图案程序设计请看VB实现(2)如果要求行、列值大小可以由输入决定，你如何编程实现？**…**…**…**……m行n列Fori=1to5Forj=1to6print“*”;NextjprintNextimnm=val(inputbox(“输入行数”))n

4、=val(inputbox(“输入列数”))当print后面输出为空且没有紧凑符起换行作用。每次换行应该在打印完一行以后执行，因此换行的实现应该在外层循环中。即内层循环控制行数，外层循环控制列数。找错（鸡蛋里挑骨头）下列程序要完成打印m行n列的“*”号图形，请判断下列程序是否正确，如不正确请指出错在哪里：①Inputm,nFori=1tomForj=1tonPrint*;NextjPrintNexti“*”②Inputm,nFori=1tomFori=1tonPrint“*”;NextiPrintNexti找错（鸡蛋里挑骨头）下列程序要完成打印m行n列的“*”号图形，请

5、判断下列程序是否正确，如不正确请指出错在哪里：③Inputm,nFori=1tomForj=1tonPrint“*”;NextiPrintNextj④Inputm,nFori=1tomForj=1tonPrint“*”NextjPrintNexti;输出直角三角形图案程序设计提示：当各行“*”号的数量从固定值改变为渐变值时也可引用外循环变量的变化规律。我们知道所需打印的行数，外层循环次数可以以此确定，但内层循环每次打印的个数不相同，怎样找出规律并实现是关键。根据第1行打印一个“*”，第2行打印2个直到最后一行打印的情况分析，每行打印“*”的个数与所处行数一致，因此这里内

6、层循环的终值应与外层循环变量的取值相一致。*********************m=Val(InputBox("输入行数："))Fori=1TomForj=1ToiPrint"*";NextjPrintNextI上机练习1.两重循环输出直角三角形。在vb平台上实现。*********************m=Val(InputBox("输入行数："))Fori=1TomForj=1ToiPrint"*";NextjPrintNextI2.冒泡法排序在程序中应用Dima(10)AsIntegerPrint"排序前数据："Fori=1To10a(i)=Int(Rnd*

7、100)Printa(i);NextPrintFori=1To9Forj=1To10-iIfa(j)>a(j+1)Thenx=a(j)a(j)=a(j+1)a(j+1)=xEndIfNextjNextiPrint"排序后数据:"Fori=1To10Printa(i);NextiPrint