VB公开课电子ppt课件

1、1、假设a=6，执行语句x=IIF(a5，-1，0)后，x的值为（ ）,课前回顾,A.5 B.6 C.0 D.-1,D.-1,2、设x=3.4，执行语句x=IIF(xInt(x)，x/3，x2+5)后，x的值为（ ）,A.5 B.6 C.6.5 D.2,B.6,1,课前回顾,3、Private Sub Form_Click a=Len(Mid(“visual Basic”,8) If a2 then x=“a” ElseIf a3 then x=“b” ElseIf a4 then x=“c” ElseIf a5 then x=“d” End If Label1.Caption=x End S

2、ub,单击窗体后，标签中显示的结果是（ ）,A.a B.b C.c D.d,A.a,2,课前回顾,4、Private Sub Command1_Click n=Val(Text1.Text) Select Case n Case 1 to 20 x=10 Case 2,4,6,11 x=20 Case Is10 x=30 Case 10 x=40 End Select Text2.Text=x End Sub,在文本框Text1中输入11，然后单击按钮后，则文本框Text2中显示的结果是( ),A.10 B.20 C.30 D.40,A.10,3,课前回顾,5、执行下列程序段后，x的值为（ ）

3、 Dim x As Integer If x=0 Then x=5 If x=5 Then x=x+2 If x5 Then x=x+1 A.0 B.8 C.6 D.程序出错,B.8,4,第五章 循环结构程序设计,5,一、循环结构的基本概念 二、Do.Loop语句 三、For.Next语句 四、While.Wend循环结构 五、列表框和组合框 六、常用算法介绍,本章内容,一、掌握三种循环结构的语法格式及运用； 二、掌握两种控件的常用属性、方法和事件； 三、掌握多项累加和累乘的算法,学习重点,6,循环结构由两部分组成： （1）循环体：反复执行的处理步骤 （2）循环控制部分：指定循环条件来控制重复

4、次数的语句。正常情况下，循环次数必须是有限的。,在一些算法中，从某处开始，按照一定条件，反复执行某一处理步骤的情况，这就是循环结构。,一、循环结构的基本概念,7,一、循环结构的基本概念,VB提供的循环控制语句有以下四种： 1.Do.Loop 2.For.Next 3.While.Wend 4.For Each.Next,2.For.Next,1.Do.Loop,8,后测型Do.Loop循环,前测型Do.Loop循环,先判断 后执行,先执行 后判断,先判断指定的条件是否为成立，若条件成立，执行循环条件，条件不成立时退出循环。,先执行循环体，然后再检查条件是否成立，如果不成立就重复执行循环体，直到

5、条件成立退出循环。,二、Do.loop语句,9,Do While Exit Do Loop,（1）前测型循环,二、Do.loop语句,Do Until Exit Do Loop,当型前测型,直到前测型,10,说明： 1.前测型循环是先判断条件，根据条件成立与否决定是否执行循环体，这种情况下，循环体有可能一次都不被执行。 2.当VB执行Do While.Loop循环时，若条件为True，执行循环体，条件为False时退出循环；当VB执行Do Until.Loop循环时，若条件为False，执行循环体，条件为True时退出循环。 3.在语句列中的任何位置都可放置Exit Do语句，执行Exit D

6、o语句时，就会退出循环。,二、Do.loop语句,11,执行过程： 1.先把初值赋给循环变量； 2.再判断条件，若符合条件，则执行循环体内语句，否则跳出循环执行Loop后语句； 3.执行循环体时，若出现Exit Do语句，则无条件跳出循环，执行Loop后语句； 4.要注意防止死循环的情况出现，若出现死循环，可按Ctrl+Break键强行中断程序的运行。,二、Do.loop语句,12,例题：求1+2+100的值,程序：,条件,s=s+i i=i+1,Do While Loop,i=100,s=0 i=1,Print s,循环体,二、Do.loop语句,13,1,i=1,s=0,2,5,3,4,i

7、=2,i=6,i=5,i=4,i=3,s=3,s=15,s=10,s=6,s=1,s=s+i i=i+1,s=s+i i=i+1,s=s+i i=i+1,s=s+i i=i+1,s=s+i i=i+1,如果用Do Until.Loop来求1+2+3+.+100的和，应何如修改代码？,二、Do.loop语句,14,s=0 i=1 Do While i=100 s=s+i i=i+1 Loop,s=0 i=1 Do Until i100 s=s+i i=i+1 Loop,总结：通过上述两种方法，可以得知，前测型循环都是先判断条件，再根据条件决定是否执行循环体。 Do While.Loop是当条件为

8、True时才执行，而Do Until.Loop是当条件为False时才执行。,二、Do.loop语句,15,例题：求10以内的奇数的和。,二、Do.loop语句,Private Sub Form_Click() Dim i As Integer Dim s As Integer i = 1 s = 0 Do While i 10 s = s + i i = i + 2 Loop Print s End Sub,Do Until i=10,如果用Do Until.Loop计算，应何如修改代码？,16,Do Exit Do Loop While ,（2）后测型循环,二、Do.loop语句,Do E

9、xit Do Loop Until ,当型后测型,直到后测型,17,说明： 1.后测型循环是先执行循环体，再判断条件，根据条件成立与否决定是否执行循环体，这种情况下，至少执行一次循环体。 2.当VB执行Do.Loop While循环时，若条件为True，执行循环体，条件为False时退出循环；当VB执行Do.Loop Until循环时，若条件为False，执行循环体，条件为True时退出循环。 3.在语句列中的任何位置都可放置Exit Do语句，执行Exit Do语句时，就会退出循环。,二、Do.loop语句,18,执行过程： 1.先把初值赋给循环变量； 2.然后执行循环体，接着判断条件，若符

10、合条件，则继续执行循环体内语句，否则跳出循环执行Loop后语句； 3.执行循环体时，若出现Exit Do语句，则无条件跳出循环，执行Loop后语句； 4.要注意防止死循环的情况出现，若出现死循环，可按Ctrl+Break键强行中断程序的运行。,二、Do.loop语句,19,s=0 i=1 Do s=s+i i=i+1 Loop While i=100 Print s,结束,程序：,i =100?,二、Do.loop语句,如果用Do.Loop Until来求1+2+3+.+100的和，应何如修改代码？,20,s=0 i=1 Do s=s+i i=i+1 Loop While i=100,s=0

11、i=1 Do s=s+i i=i+1 Loop Until i100,总结：通过上述两种方法，可以得知，后测型循环都是先执行循环体，再判断条件，根据条件决定是否执行循环体。 Do.Loop While是当条件为True时才执行，而Do.Loop Until是当条件为False时才执行。,二、Do.loop语句,21,例题：假设s=123.n,求s不大于400000时的最大的n值和此时s的值。,二、Do.loop语句,Private Sub Command1_Click() Dim s As Long Dim n As Integer s = 1 n = 0 Do n = n + 1 s = s * n Loop While s = 400000 Text1.Text = n的值为 b End Sub,随堂练习,程序运行后，单击命令按钮后，输出的结果是（ ）,A.11 210 B.10 20 C.11 410 D.10 410,A.11 210,27,1.当型前测型与当型后测型的比较,Do While 条件 循环体 Loop,知识总结,Do 循环体 Loop While 条件,28,2.直到前测型与直到后测型的比较,Do Until 条件 循环体 Loop,Do