visual-basic程序设计基础全套教程、教案第五章VB程序控制结构ppt课件-图文

1、visual-basic程序设计基础全套教程、教案第五章VB程序控制结构ppt课件_图文visual-basic程序设计基础全套教程、教案第五章VB第五章 VB程序控制结构【学习目标】1.知道结构化程序设计的三种结构2.重点掌握实现选择结构的语句及语法，能利用IF ELSE语句解决实际问题第五章 VB程序控制结构第一次课一.结构化程序设计的三种结构顺序结构 选择结构 循环结构第一次课二. 双分支条件 语句1.块结构格式：If 条件 Then 语句块1 else 语句块2 Endif说明 ：如果条件为真，则执行语句块1，否则则执行语句块2T（真）F（假）条件满足？语句块1语句块2执行下一条语句二

2、. 双分支条件 语句T（真）F（假）条件满足？语句块1语句2.单行结构格式：if 条件 then 语句块1 else 语句块2注意：then 或 else后面若有多条语句，那么各语句之间用“：”分隔练习：读程序，写结果1. j1=10:j2=20 if j1j2 then print j2; print j12. x=5 :y=36 if not x0 then print “输入的数大于0”Else if x60 then I=1 if a70 then I=2 if a80 then I=3 if a90 then I=4 print “I=”;I 2.a=val(inputbox(“请输

3、入一个数)i=0 if a60 then I=1 Elseif a70 then I=2 Elseif a80 then I=3 Else i=100 Endif print “I=”;I当从键盘上输入的数为45时,结果为_当从键盘上输入的数为85时,结果为_1. a=752.a=val(input例1：(思考)输入二级考试成绩，要求显示对应三级制的 评定。评定条件为： Mark=Text1.Text If Mark = 90 Then Print “优” ElseIf Mark = 60 Then Print “通过” Else Print “未通过” End If例1：(思考)输入二级考试

4、成绩，要求显示对应三级制的 【例2】输入一个学生的成绩score，根据其所在分数段给出他的考试等级。score60时，打印“不及格”；60=score=70时，打印“一般”； 70score=80时，打印“中等”； 80score=90时，打印“良好”；90score100时，打印“成绩有问题”。【例2】输入一个学生的成绩score，根据其所在分数段给出他1.块结构条件语句中，正确的是A）各个条件对应的语句块中，一定有一个语句块被执行B）找到条件为true第一个入口，便从此开始执行其后的所有语句块C）若有多个条件为true,则它们对应的语句块都被执行D）多行选择结构中的语句块，有可能任何一个语

5、句块都不被执行2.执行下列语句后显示的结果是（）If x then print x else print x-13.a=“1” b=“2” a=val(a)+val(b) b=val(12) if ab then print a-b else print b-a1.块结构条件语句中，正确的是作业:P81 一(1) (2)(3)三P83 二(1)(2) 作业:第二次课 Select Case语句【学习目标】掌握多分支结构的特点、原理掌握多分支select case语句的格式、功能及应用第二次课 Select Case语句【学习目标】Select Case的结构形式为：Select Case Ca

6、se Case Case Case ElseEnd SelectSelect Case的结构形式为：格式说明：（1）“测试表达式”可以是数值表达式或字符串表达式。（2）“表达式列表”与“测试表达式”的类型必需相同。（3）当使用多个表达式组成列表时，表达式与表达式之间要用英文逗号“,”隔开。（4）“表达式列表”由下表形式的表达式组成。形式示例说明（1）表达式Case 100+a数值或字符串表达式（2）一组用逗号分隔的枚举值Case 2,4,6,8测试表达式的值等于2，4，6，8之一（3）表达式1 To表达式2Case 1 To 101 测试表达式 10（4）Is 关系运算符表达式Case Is

7、20 测试表达式 20格式说明：形式示例说明（1）表达式Case 100+a数值或Select Case语句功能：根据“测试表达式”的值，选择第一个符合条件的语句块执行。Select Case语句的执行过程是：先求“测试表达式”的值，然后顺序测试该值符合哪一个Case子句中情况，如果找到了，则执行该Case子句下面的语句块，然后执行End Select后面的语句；如果没找到，则执行Case Else后面的语句块，然后执行End Select后面的语句。Select Case语句功能：根据“测试表达式”的值，选择 读程序1.a=val(inputbox(“a=”) select case a c

8、ase is =60 a=a+1 case is =50 a=a+10Case is = 90 Text2.Text = 优秀 Case Is = 80在x90不成立时，再判断x80是否成立 Text2.Text = 良好 Case Is = 70 Text2.Text = 中 Case Is = 60 Text2.Text = 及格 Case Else Text2.Text = 不及格 End SelectEnd Sub【例1】用Select Case语句代替ElseIf语句来实【例2】某交易中介公司按交易双方成交额收取中介费用，收费标准如下：交易额=10000 5%5000=交易额1000

9、0 3%1000=交易额5000 2%500=交易额1000 1%交易额500 免费假设交易额通过文本框Text1输入，则“计算费用”按钮Command1的事件代码如下：Private Sub Command1_Click() Trade=Val(Text1.Text) Select Case Trade Case Is500 Discount=0【例2】某交易中介公司按交易双方成交额收取中介费用，收费标准 Case Is1000 Discount=0.01 Case Is5000 Discount=0.02 Case Is10000 Discount=0.03 Case Else Disco

10、unt=0.05 End Select Fee = Trade * Discount Print FeeEnd Sub在解决多分支选择情况的程序时，采用Select Case语句比较方便，并且程序结构清楚，便于阅读和修改。 Case Is=2000 Then sj = gz * 0.05Else sj = 0End IfPrint 工资;gz;的所得税为;sjEnd Sub但要计算10000个人的所得税，如何实现呢？实际上就是中间的程序块重复10000次。即：对于 第次到第10000次 输入工资，计算所得税，输出结果 重复下一次如何实现一块程序重复n次呢？用程序的循环控制结构实现。问题：计算1

11、0000个人的所得税：输入工资。如果工资少于20 在程序中，凡是需要重复相同或相似的操作步骤，都可以使用循环结构来实现。循环结构由两部分组成：循环体，即要重复执行的语句序列；循环控制部分，即用于规定循环的重复条件或重复次数，同时确定循环范围的语句。要使计算机能够正常执行某循环，由循环控制部分所规定的循环次数必须是有限的。VB提供了三种不同风格的循环结构，分别是：计数循环（ForNext循环）当循环（WhileWend循环）Do循环（DoLoop循环）其中计数循环常用于已知循环次数的循环，而当循环和Do循环适合于循环次数未知，只知道循环结束条件的循环。 在程序中，凡是需要重复相同或相似的操作步骤

12、，都可一.格式：For 循环变量=初值 To 终值 Step 步长 循环体Next 循环变量 二.循环的说明：循环（控制）变量：也叫“循环计数器”，用于控制循环次数。初值、终值：一般是整数，也可以是实数，实数会自动取整。可以是正数，也可以是负数。步长：循环变量每次循环的增量。实数会取整。 正数：递增循环 负数：递减循环 ：死循环，故不能为 ：加1循环，“Step 1”可以省略。一.格式：Next：循环结束语句，后面的循环变量必须与For语句中的循环变量一样。For与Next必须成对出现，且先有For、后有Next，缺一不可。循环体：每次重复执行的语句。循环体可以是一个语句，也可以是多个语句。甚

13、至可以一个语句也没有（空循环）。Next：循环结束语句，后面的循环变量必须与For语句中的循三.For循环执行过程（1）系统将初值赋给循环变量，并自动记下终值和步长。（2）判断循环变量是否超过终值：未超过终值，执行一次循环体；否则，结束循环（3）执行Next语句，将循环变量加上一个步长。（4）转到（2），继续执行。（5）结束循环，执行Next后面的语句。 循环变量被赋初值T循环变量超过终值？ F next之后的语句循环变量加步长循环体 步长为正数时，循环变量大于终值为“超过”。 步长为负数时，循环变量小于终值为“超过”。（2）终值和初值的取值有以下情况： 步长为正数时，终值应该大于初值，否则循

14、环体不会被执行。 步长为负数时，终值应该大于初值，否则循环体不会被执行。 当终值等于初值时，不管步长是正数是负数，均执行一次循环体。三.For循环执行过程 循环变量被赋例如：分析如下程序的执行过程，并写出结果：s=0For a=1 To 10 Step 2s=s+2*a Next a分析：执 行 过 程a=110, 执行s=s+2*a=0+2*1=2, a=a+2=1+2=3a=310, 执行s=s+2*a=2+2*3=8, a=a+2=3+2=5a=510, 执行s=s+2*a=8+2*5=18, a=a+2=5+2=7a=710, 执行s=s+2*a=18+2*7=32, a=a+2=7+

15、2=9a=910, 执行s=s+2*a=32+2*9=50, a=a+2=9+2=11A=1110, 退出循环程序的最后结果是：s=? a=?循环次数是： ? 次例如：分析如下程序的执行过程，并写出结果：s=0分析： 四.程序分析见上一张ppt 五.循环次数的计算循环次数Int(终值初值)步长)注：循环变量用来控制循环过程，在循环体内可以被引用，但不应被重新赋值，否则将无法确定循环次数，同时也降低了程序的结构化程度。六.For循环程序的一般结构 变量初始化 准备工作 for 循环体 计算处理 Next输出结果 善后工作 四.程序分析【学习目标】熟练掌握实现循环结构的 Doloop循环结构的格式

16、、功能及执行过程复习:1.For循环的循环条件是什么2.Exit for语句的功能是什么引入：现在世界人口约为60亿，若每年以1.4%的速度增长，多少年后人口将超过70亿 第四次课 DoLoop循环【学习目标】 第四次课 DoLoop循环1. Do While 循环体 Loop2. D0 循环体 Loop While 3. Do Until 循环体 Loop4. Do 循环体 Loop Until 1. Do While 2. D0 3. Do U Do While 循环体 Loop执行过程:（先判断，后执行） 先判断循环条件, 若为真则执行循环体,然后再判断循环条件 否则，跳过循环体,执行L

17、oop之后语句1.x=0Do while x50 x=(x+2)*(x+3)N=n+1LoopPrin x,n Do While 执行过程:（先判断， Dim I as integer, s As Integer For I = 1 To 10 s = s + I Next I Print s例1:求1+2+3+4+10的和.Do while loop Dim I as integer, s As Intege D0 循环体 Loop While 执行过程:（先执行，后判断） 先执行循环体,再判断循环条件, 若为真， 继续执行循环体; 否则，结束循环,执行Loop之后语句 D0 执行过程:（先

18、执行，后判断） Dim I,s As Integer I=1 Do While I=10 s=s+I I=I+1 Loop Print I,s Dim I,s As Integer I=1 Do s=s+I I=I+1 Loop While I=10 Print I,s (1)循环体执行几次？ (2)将I先赋值为11， 执行结果如何? Dim I,s As Integer Dim I,s Do While 循环体 Loop D0 循环体 Loop While 区别:(1)执行顺序不同 形式一:先判断,后执行循环体; 形式二:先执行循环体,后判断 (2)执行次数不同（特殊情况下） 形式一:条件不

19、满足,循环体可能一次也不执行 形式二:不论条件如何,至少执行一次 Do While D0 区别:(1)执执行过程:（先判断，后执行） 先判断循环条件： 条件为假: 执行循环体, 然后再判断条件. 条件为真: 跳过循环体, 执行Loop之后语句 Do Until 循环体 Loopx=1:y=4Do until y3x=x*yy=y+1LoopPrint x执行过程:（先判断，后执行） Do Until Do Until 循环体 LoopDim I,s As Integer I=1 Do While I=10 s=s+I I=I+1 Loop Print I,s Dim I,s As Intege

20、r I=1 Do Until I10 s=s+I I=I+1 Loop Print I,s Do 循环体 Loop Until Do Until Dim I,s As In几种形式比较: Do While 循环体 Loop（ While ） Do Until 循环体 Loop（ Until ）区别: While 条件为真时执行循环体,否则退出循环 Until 条件为假时执行循环体,否则退出循环 关系： while和Until可以相互转换，但循环条件取反几种形式比较: Do While Do下列循环能正常结束的是：3.i=6Do i=i-2Loop until i=12.i=1Do i=i+2L

21、oop until i=104.i=10Do i=i+1Loop until i01.i=5Do i=i+1Loop until i0下列循环能正常结束的是：3.2.4.1.第五次课 Select Case语句【学习目标】掌握多分支结构的特点、原理掌握多分支select case语句的格式、功能及应用第五次课 Select Case语句【学习目标】Select Case的结构形式为：Select Case Case Case Case Case ElseEnd SelectSelect Case的结构形式为：Select Case语句功能：根据“测试表达式”的值，选择第一个符合条件的语句块执行。Select Case语句的执行过程是：先求“测试表达式”的值，然后顺序测试该值符合哪一个Case子句中情况，如果找到了，则执行该Case子句下面的语句块，然后执行End Select后面的语句；如果没找到，则执行Case Else后面的语句块，然后执行End Select后面的语句。Select Case语句功能：根据“测试表达式”的值，选择格式说明：（1）“测试表达式”可以是数值表达式或字符串表达式。（2）“表达式列表”与“测试表达式”的类型必需相同。（3）当使用多个表达式组成列表时，表达式