Vb程序设计教程 控制结构复习 幻灯片.pptVIP

控制结构复习 一、IF语句 If语句举例 二、for语句 For语句流程图及功能 For语句举例 三、While语句 While语句流程图及功能 While语句举例 4.4.2 多分支select case 语句 Select case语句的功能 Select case应用举例 Select case语句讨论 例四实现二 Select case 不同用法举例 循环控制其它语句 Goto语句举例 * 语句格式一： if 条件 then 语句 或 if 条件 then 程序段 end if 程序功能流程图 条件 T 程序段 F 说明：当“条件”成立（即结果为true）时，则执行“程序段”或“语句”，“条件”不成立（结果为false）时，执行后面的程序。 语句格式二： if 条件 then 语句1 else 语句2 或 if 条件 then 程序段1 else 程序段2 end if 程序功能流程图 条件 T 程序段1 F 程序段2 例一：将存放在x中的实数的绝对值存放到y中。 实现一： y=x if y0 then y=-y msgbox x “的绝对值是” y 实现二： if x0 then y=x else y=-x msgbox x “的绝对值是” y 语句格式： for 循环变量=初值 to 终值 [step 步长] 程序段 next 说明： 1）适应于某一值（称为循环变量）连续地变化（即按照一定的值递增或递减）情况；（亦可认为“程序段”重复执行的次数已知） 2）“步长”是一个实数，表示递增的值（0)或递减的值(0)； 3）“步长”为1时可以省略。 将初值存入循环变量 循环变量到达终值？ 未到终值 程序段 循环变量+步长存入循环变量 达到或超过终值 程序实现 s=0 for n=1 to 1000 step 1 s=s+1/(n*n) next 或 s=0 for n=1000 to 1 step -1 s=s+1/(n*n) next 例二：计算下面数列的前1000项和。 Step 1可以省略 语句格式： while 条件 程序段 wend 说明： 1）适用于仅知“程序段”需要重复多次执行，但执行多少次不清楚； 2）“条件”表示是不重复执行“程序段”的条件，当“条件”成立（即为true）时，执行“程序段”； 3）“程序段”的执行应该影响到“条件”。 条件成立？ T 程序段 F 首先判断“条件”是否成立，如果成立，则执 行“程序段”，执行完“程序段”后，再判断“条件”， 如果“条件”不成立，执行后面程序。 例三：当n最小为何值时，n!值1000？ 程序实现 s=1 n=1 while s=1000 n=n+1 s=s*n wend msgBox n 语句格式： select case 表达式 case 表达式1 程序段1 …… case else 程序段n+1 end select 首先计算“表达式”的值，然后计算“表达式1”的值，并比较其是否与“表达式”值相同，如果相同，则执行“程序段1”，否则，计算“表达式2”的值并比较“表达式”与“表达式2”的值是否相等，……。如果“表达式”与每一个“表达式I”的值不等，则执行“程序段n+1” 注：select的功能相当于根据“表达式”的值确定转移到与之值相等的“表达式i”处执行相应的“程序段i”，如果没有与之相等值，则执行“程序段n+1” 例四：输入一个学生考试成绩x（百分形式），将其转换成等级分，然后通过消息框显示结果。 注：转换规则如下： 100=x=90：优 90x=80：良 80x=70：中 70x=60：及格 60x=0：不及格 Dim score$, s$ score = Val(Text1.Text) Select Case score \ 10 Case 10 s = 优 Case 9 s = 优 Case 8 s = 良 Case 7 s = 中 Case 6 s = 及格 Case 5 s = 不及格 Case 4 s = 不及格 Case 3 s = 不及格 Case 2 s = 不及格 Case 1 s = 不及格 Case 0 s = 不及格 Case Else s = 输入错误！ End Select MsgBox