吉林师范大学计算机学院vb课件：Vb3.ppt

3.2.1 实现选择结构的语句1. 单行结构条件语句 2 块结构条件语句 3 多分支选择语句 3.3 循环结构程序设计 1. For…Next循环语句 2. Do…Loop循环语句 4. 循环的嵌套 Do…Loop循环结构有几种演变形式，但每一种都是通过判断某条件以决定循环是否继续执行。所不同的是，是先判断条件后执行循环体，还是先执行循环体后判断条件；是条件成立时执行循环(当型循环) ，还是条件不成立时执行循环(直到型循环) 。 Do循环 当型 直到型 前测式 后测式 前测式 后测式 格式一 :前测式当型循环 Do While 条件 [语句组1] [Exit Do] [语句组2] Loop 格式二:前测式直到型循环 Do Until 条件 [语句组1] [Exit Do] [语句组2] Loop 格式三 :后测式当型循环 Do [语句组1] [Exit Do] [语句组2] Loop While条件 格式四：后测式直到型循环 Do [语句组1] [Exit Do] [语句组2] Loop Until条件 Do…Loop循环结构的四种格式 四种格式的区别在于条件的书写位置不同，可以写在Do语句之后，也可以写在Loop语句之后，另外，条件之前的关键字可以是While，也可以是Until。 使用While条件时，当指定的条件为True时，执行循环体中的语句组，而当条件为False时则退出循环，执行循环终止语句Loop之后的语句。 使用Until条件时，当指定的条件为False时，执行循环体中的语句组，而当条件为True时则退出循环，执行循环终止语句Loop之后的语句。 使用While和使用Until的区别是： While条件表示当条件成立时执行循环体， Until条件则是在条件不成立时执行循环体。 四种格式中，格式一和格式二在循环的起始语句Do之后判断条件，属于当型循环； 格式三和格式四在循环的终止语句Loop处判断条件，属于直到型循环。 Exit Do语句用于退出循环体，执行Loop语句之后的语句。必要时，循环体中可以放置多条ExitDo语句。该语句一般放在某条件结构中，用于表示当某种条件成立时，强行退出循环 也可以在Do语句和Loop语句之后都没有条件判断，这时循环将无条件地重复，因此在这种情况下，在循环体内必须有强行退出循环的语句，如Exit Do语句，以保证循环在执行有限次数后退出。 例：从键盘输入一正整数，判断是否是素数。 输入Ｎ值 K=int(sqr(n)) I=2 Flag=0 I=k且Flag=0? N能被Ｉ整除吗？ Flag=1 I=I+1 Flag=0？ 打印不是素数 打印是素数 结束　 开始 程序代码如下： 　Input “n=”;n k=int(sqr(n)) I=2 flag=0 do while I=k and flag=0 if n mod I=0 then flag=1 else I=I+1 end if loop if flag=0 then print n;”is a prime number.” else print n;”is not a prime number.” end if 3. While…Wend循环语句 格式如下： While 条件 语句组 Wend 功能：当条件为True时，反复执行循环，为False时退出循环。 通常，把循环体内不再包含其他循环的循环结构叫做单层循环。在处理某些问题时，常常要在循环体内再进行循环操作，而在内嵌的循环中还可以再包含循环，这种情况叫多重循环，又称为循环的嵌套。 VB对循环的嵌套层数没有限制，当循环的层数太多时，程序的可读性会下降。 习惯上，为了使循环结构更具可读性，总是用缩排的方式书写循环体部分。 设计界面 代码 运行界面 例 标签控件可以支持Click、DblClick等事件。 例：设窗体上有一个标签控件Labell，其AutoSize属性值为True，双击该标签控件，则标签的标题字体增加10磅，可以通过如下代码实现： Private Sub Label1_DblClick( ) Labell．FontSize = Labell．FontSiz