vb-4-循环结构程序设计-实例.ppt

第4章循环结构程序设计,循环结构用For-Next语句实现循环结构用DoWhile-Loop语句实现循环结构嵌套的循环结构,For循环变量=初值To终值Step步长循环体语句Next循环变量,ForNext循环的一般语法格式,步长可取正或负数；步长为负时终值应小于初值,For-Next常用于循环次数已知的循环中循环体语句可以是一条或多条语句可以使用ExitFor语句提前结束循环Fori=1To10 x=x+Int(Rnd*100)sum=sum+xIfsum300ThenExitForEndIfNextiPrintsum,程序说明,【例】找最大值。单击最大值按钮时产生10个1100之间的随机整数显示在框架内的标签中，同时将最大值显示在下方的标签内。,lbldata,lblmax,处理第1个数据产生一个随机数，存放在变量a中将a显示在标签（lblData）中将a作为当前最大值放在变量max中处理第2个数据产生新的随机数，存放在变量a中将a连接显示在标签（lblData）原有内容之后如果a大于max，则将a作为最大值放在max中,编程分析,a=Int(Rnd*100)+1,lblData.Caption=a,max=a,a=Int(Rnd*100)+1,lblData.Caption=lblData.Captionj;fNextI,使用多重循环处理程序时，需要考虑清楚内外层循环分别用来控制哪一个量的变化，其变化规律如何。,多重循环应用举例,1.字符图形的输出,3.其他综合应用,2.方程求解问题,字符图形的输出,(a),(b),(c),(d),在解决这类问题时，应首先考虑一个一般行的输出，只需要把这个一般行的输出语句利用循环结构控制执行多次即可。例如：在输出图形（a）时，每一行都输出了同样的6个字符，在输出每一行之后换行，然后输出下一行，所以，只需要将输出一行字符的语句连续执行5次就可以了。,输出图形(a)的程序如下：Forj=1To5Fori=1To6内循环控制输出一行的多个星号Print*;NextiPrint输出每一行后换行Nextj两个循环控制变量i和j，分别用来控制图形中列与行的变化，称之为列变量和行变量。在实现输出字符图形时，要找清楚要输出的图形与行列变量之间的关系。,图形（b）与图形（a）的差别在输出每一行星号时首先输出了若干个空格每一行之前输出的空格的个数与其行号相同，即始终与行变量j相同。,(b),(a),字符图形的输出,输出图形(b)的程序如下：Forj=1To5PrintTab(j);先输出j个空格Fori=1To6Print*;NextiPrintNextj,图形c）与图形a）的差别在于每一行输出的星号个数不同图形a）中每行都输出了固定个数的字符，而图形c）中每行输出的字符个数与其行数相同只需要修改一下内循环控制变量的终值就可以了。,返回,(a),(c),输出图形(c)的代码如下：Forj=1To5Fori=1To6Print*;NextiPrintNextj,j,输出矩阵图形,例：请输入n值，编写程序输出下列图形（例如n=5）.1234511234111231111211111,第1行：1个1，2-5第2行：2个1，2-4第3行：3个1，2-3第5行：5个1,第1行：1个1，2n第2行：2个1，2n-1第3行：3个1，2n-2第n行：n个1,代码,PrivateSubForm_Activate()DimiAsInteger,jAsIntegerFori=1To5Forj=1ToiPrint1;NextjForj=2To6-iPrintj;NextjPrintNextiEndSub,实例4.4,第1行：1个1，2-5第2行：2个1，2-4第3行：3个1，2-3第5行：5个1,第1行：1个1，2n第2行：2个1，2n-1第3行：3个1，2n-2第n行：n个1,第行：个，2n-(i-1),Yes,打印第i行,i=rThenEndif,判断r是否素数,lblprime.Caption=lblprime.Caption+Str$(r),r是素数,Flag=0,Flag=1：exitfor,Flag=0,补充例题,译密码:字母翻译：按26个字母排列顺序向后移动n位，若移出了最后一个则移到字母a或A并顺序往后移例：今天是28号，a向后移动28位abcdefghijklmnopqrstuvwxyz,28,25,补充例题代码,Ifch=aAndch9Thenother=other+2Elseother=other+1,EndIfEndIfEndIfEndIfEndIfElsetrap=orip超出ASCLL码范围的值不变other=other+3EndIftra=tra+trap译码连接到字符串traorip=Mid$(ori,n,3)取出下一个字符串Wend,txttra.Text=tra译码在“译文”文本框中显示inf=大写字母个数：+Str$(lettercap)+Chr$(13)+chr$(10)+小写字母个数：+Str$(let