VB公开课电子完整ppt课件

精选,1,1、假设a=6，执行语句x=IIF(a5，-1，0)后，x的值为（）,课前回顾,A.5B.6C.0D.-1,D.-1,2、设x=3.4，执行语句x=IIF(x2thenx=“a”ElseIfa3thenx=“b”ElseIfa4thenx=“c”ElseIfa5thenx=“d”EndIfLabel1.Caption=xEndSub,单击窗体后，标签中显示的结果是（）,A.aB.bC.cD.d,A.a,精选,3,课前回顾,4、PrivateSubCommand1_Clickn=Val(Text1.Text)SelectCasenCase1to20 x=10Case2,4,6,11x=20CaseIs5Thenx=x+1A.0B.8C.6D.程序出错,B.8,精选,5,第五章循环结构程序设计,精选,6,一、循环结构的基本概念二、Do.Loop语句三、For.Next语句四、While.Wend循环结构五、列表框和组合框六、常用算法介绍,本章内容,一、掌握三种循环结构的语法格式及运用；二、掌握两种控件的常用属性、方法和事件；三、掌握多项累加和累乘的算法,学习重点,精选,7,循环结构由两部分组成：（1）循环体：反复执行的处理步骤（2）循环控制部分：指定循环条件来控制重复次数的语句。正常情况下，循环次数必须是有限的。,在一些算法中，从某处开始，按照一定条件，反复执行某一处理步骤的情况，这就是循环结构。,一、循环结构的基本概念,精选,8,一、循环结构的基本概念,VB提供的循环控制语句有以下四种：1.Do.Loop2.For.Next3.While.Wend4.ForEach.Next,2.For.Next,1.Do.Loop,精选,9,后测型Do.Loop循环,前测型Do.Loop循环,先判断后执行,先执行后判断,先判断指定的条件是否为成立，若条件成立，执行循环条件，条件不成立时退出循环。,先执行循环体，然后再检查条件是否成立，如果不成立就重复执行循环体，直到条件成立退出循环。,二、Do.loop语句,精选,10,DoWhileExitDoLoop,（1）前测型循环,二、Do.loop语句,DoUntilExitDoLoop,当型前测型,直到前测型,精选,11,说明：1.前测型循环是先判断条件，根据条件成立与否决定是否执行循环体，这种情况下，循环体有可能一次都不被执行。2.当VB执行DoWhile.Loop循环时，若条件为True，执行循环体，条件为False时退出循环；当VB执行DoUntil.Loop循环时，若条件为False，执行循环体，条件为True时退出循环。3.在语句列中的任何位置都可放置ExitDo语句，执行ExitDo语句时，就会退出循环。,二、Do.loop语句,精选,12,执行过程：1.先把初值赋给循环变量；2.再判断条件，若符合条件，则执行循环体内语句，否则跳出循环执行Loop后语句；3.执行循环体时，若出现ExitDo语句，则无条件跳出循环，执行Loop后语句；4.要注意防止死循环的情况出现，若出现死循环，可按Ctrl+Break键强行中断程序的运行。,二、Do.loop语句,精选,13,例题：求1+2+100的值,程序：,条件,s=s+ii=i+1,DoWhileLoop,i=100,s=0i=1,Prints,循环体,二、Do.loop语句,精选,14,1,i=1,s=0,2,5,3,4,i=2,i=6,i=5,i=4,i=3,s=3,s=15,s=10,s=6,s=1,s=s+ii=i+1,s=s+ii=i+1,s=s+ii=i+1,s=s+ii=i+1,s=s+ii=i+1,如果用DoUntil.Loop来求1+2+3+.+100的和，应何如修改代码？,二、Do.loop语句,精选,15,s=0i=1DoWhilei100s=s+ii=i+1Loop,总结：通过上述两种方法，可以得知，前测型循环都是先判断条件，再根据条件决定是否执行循环体。DoWhile.Loop是当条件为True时才执行，而DoUntil.Loop是当条件为False时才执行。,二、Do.loop语句,精选,16,例题：求10以内的奇数的和。,二、Do.loop语句,PrivateSubForm_Click()DimiAsIntegerDimsAsIntegeri=1s=0DoWhilei=10,如果用DoUntil.Loop计算，应何如修改代码？,精选,17,DoExitDoLoopWhile,（2）后测型循环,二、Do.loop语句,DoExitDoLoopUntil,当型后测型,直到后测型,精选,18,说明：1.后测型循环是先执行循环体，再判断条件，根据条件成立与否决定是否执行循环体，这种情况下，至少执行一次循环体。2.当VB执行Do.LoopWhile循环时，若条件为True，执行循环体，条件为False时退出循环；当VB执行Do.LoopUntil循环时，若条件为False，执行循环体，条件为True时退出循环。3.在语句列中的任何位置都可放置ExitDo语句，执行ExitDo语句时，就会退出循环。,二、Do.loop语句,精选,19,执行过程：1.先把初值赋给循环变量；2.然后执行循环体，接着判断条件，若符合条件，则继续执行循环体内语句，否则跳出循环执行Loop后语句；3.执行循环体时，若出现ExitDo语句，则无条件跳出循环，执行Loop后语句；4.要注意防止死循环的情况出现，若出现死循环，可按Ctrl+Break键强行中断程序的运行。,二、Do.loop语句,精选,20,s=0i=1Dos=s+ii=i+1LoopWhilei=100Prints,结束,程序：,i=100?,二、Do.loop语句,如果用Do.LoopUntil来求1+2+3+.+100的和，应何如修改代码？,精选,21,s=0i=1Dos=s+ii=i+1LoopWhilei100,总结：通过上述两种方法，可以得知，后测型循环都是先执行循环体，再判断条件，根据条件决定是否执行循环体。Do.LoopWhile是当条件为True时才执行，而Do.LoopUntil是当条件为False时才执行。,二、Do.loop语句,精选,22,例题：假设s=123.n,求s不大于400000时的最大的n值和此时s的值。,二、Do.loop语句,PrivateSubCommand1_Click()DimsAsLongDimnAsIntegers=1n=0Don=n+1s=s*nLoopWhiles400000,如果用Do.LoopUntil计算，应何如修改代码？,精选,23,i=10s=0DoWhilei=8C.i=8D.i8,S=10i=9,S=90i=8,S=720i=7,随堂练习,D.i8,精选,26,2.编写代码如下：PrivateSubCommand1_Click()x=0DoWhilex10b=b*a+aa=a+1LoopPrinta;bEndSub,随堂练习,程序运行后，单击命令按钮后，输出的结果是（）,A.11210B.1020C.11410D.10410,A.11210,精选,28,1.当型前测型与当型后测型的比较,DoWhile条件循环体Loop,知识总结,Do循环体LoopWhile条件,精选,29,2.直到前测型与直到后测型的比较,DoUntil条件循环体Loop,Do循环体LoopUntil条件,知识