vb循环结构程序设计.ppt

第4章循环结构程序设计本章内容循环结构用For-Next语句实现循环结构语句说明：循环变量必须为数值型。当步长为正时，初值小于终值，反之初值大于终值；步长缺省时为1。循环体由一条或多条语句组成。执行到ExitFor语句时退出循环体，执行For语句的下一语句。循环次数：int为取整。用For-Next语句实现循环结构用For-Next语句实现循环结构实例4.1代码编写分析实例4.1代码编写【实例4.1】界面设计实例4.1代码编写实例4.1代码编写实例4.1代码编写实例4.1代码编写例：1*2*3……*1001！+2！+3！+……+15!用While语句实现循环用While语句实现循环用While语句改写实例4.1用While语句实现循环实例4.2代码编写实例4.2代码编写用DO语句实现循环用DO语句实现循环用DoWhile–Loop语句改写实例4.1执行过程用Do–LoopWhile语句改写实例4.1补充例题1补充例题1代码分析代码代码代码用DO语句实现循环算法判断r是否素数素数最大、最小值、平均No初始化部分输出部分循环的嵌套Fori=2To1Step-1PrintTab(20);Forj=1To4-iPrintSpc(1);NextjForj=1To2*i-1Print"*";NextjPrintNexti问题补充例题补充例题代码实例4.4Yes补充例题补充例题代码补充例题补充例题代码译码器——密码检测窗体设计译码器——密码检测窗体设计Iftxtname.Text=""Ortxtpassword.Text=""ThenMsgBox"必须输入姓名和密码",0+64,"提示"ElseIftxtname.Text=nameAndtxtpassword.Text=passwordThenfrm1.Hidefrm2.ShowElseMsgBox"姓名或密码错误",0+48,"警告"EndIfEndIfElseEndEndIfEndSub译码器——译码器窗体设计译码器——译码器窗体设计译码器——译码器窗体设计译码器——“译码”代码Iforip>="a"Andorip<="z"Thentrapn=Asc(orip)-97+1trap=Chr$((trapn+Day(Now))Mod26+97-1)letterlow=letterlow+1'计小写字母的个数ElseIforip>="A"Andorip<="Z"Thentrapn=Asc(orip)-65+1trap=Chr$((trapn+Day(Now))Mod26+65-1)lettercap=lettercap+1'计大写字母的个数Else'非字母trap=Asc(orip)'字符orip转换成ASCII码值，作为译码即保持原值Iftrap=0Then'字符oripASCII码值为0即原值为“000”trap=""'译码为空格word=word+1'单词计数，因为空格分隔单词other=other+1'其它字符计数，空格也是一个非字母字符ElseIftrap>99Then'其它字符计数other=other+3ElseIftrap>9Thenother=other+2Elseother=other+1２２EndIfEndIfEndIfEndIfEndIfElsetrap=orip'超出ASCLL码范围的值不变other=other+3EndIftra=tra+trap'译码连接到字符串traorip=Mid$(ori,n,3)'取出下一个字符串Wendtxttra.Text=tra'译码在“译文”文本框中显示inf="大写字母个数："+Str$(lettercap)+Chr$(13)+chr$(10)+"小写字母个数："+Str$(letterlow)+Chr$(13)+chr$(10)+"单词个数："+Str$(word+1)+Chr$(13)+chr$(10)+"其它字符个数："+Str$(other)MsgBoxinf,0+64,"译文统计信息"EndSub