vb选择语句.ppt

1、1,VB语句,- 选择结构,2,顺序结构,概念： 在一个事件内，按照所写的语句的位置，依次从上到下 ，逐个语句执行的结构 框架图： 语句1 语句2 语句3,3,选择结构,概念： 根据所给定的条件，来决定从各个实际出发， 执行可能的操作过程的结构。 条件：关系表达式，逻辑表达式，算术表达式 流程图1： y 条件 n 语句1 语句2 下一语句,说明： 从上面执行下来，判断条件是否成立？ 成立，执行语句1 不成立，执行语句2 然后，依顺序结构 执行下一语句,4,流程图2： y 条件 语句1 n 下一语句,说明： 从上面执行下来，判断条件是否成立？ 成立，执行语句1 不成立，不用执行语句，直接跳过 然

2、后，依顺序结构 执行下一语句,5,选择语句,行if语句 要求：对于条件，语句1，语句2等均在同一行内。 格式： if then else 说明：条件成立，执行语句1，不成立执行语句2，其中else语句可以省略 注意：其中的语句，可以包括多个语句（2句，2句以上） 举例说明 if(a0) then print “a为正数” else print “a为非正数”,6,实例说明,分段函数 流程图： 输入数据x,X5,y,n,(x-5)0.25,1-x2,Print,语言： Dim x as single,y as single X=val(inputbox(“输入x的值”，“数据输入”）) If(x

3、5) then y=(x-5)0.25 else y=1-x2 Print y,7,块if语句,格式： If then else end if 注意： 与行if的区别：在与块if语句，不能写在同一行，语句1，else，语句2都要另起一行书写。而且，在最后必须要有end if 语句来结束。 在任何情况下，有if 就必定会有then 最后一个else 中，没有then语句,8,If then elseIf then elseif then else end if,说明： 当存在多个选择情况的时候，出现的选择结构。 1.当条件1 成立，执行语句1 2.当不成立，判断条件2，成立执行语句2，不成立，判

4、断3 3.依次类推下去 注意：elseif 必须连起来书写,9,举例：,求方程的根 要求:编程求一元二次方程ax2+bx+c=0的根,其中a不等于零. a,b,c的值可使用inputbox函数输入.,10,If 语句的回顾,行if语句 书写要求：if then else 及其语句块 都必须写在同一行。 格式： if then else 如果在条件不成立的时候，没有需要执行的语句，就不必要书写else 语句 如果语句太长，则可以用连接符号 来续行书写 如果执行完毕，则跳出选择结构，顺序执行下面语句 举例 ： 分段函数 y =1+x (x=0) , 1-2x(x=0 then y=1+x else

5、 y =1-2*x,11,输入两个数据，从大到小输出 说明：输入数据后，如果xy则只需要输出print，而如果x=y,则必须交换后，在进行输出。 If语句形式为： If x=y then t=x:x=y:y=t Print x, y,12,块if语句： 书写要求：if语句块，else语句块等必须要分行书写。 结尾必须要用endif语句来结束 同样在条件不成立的情况下，不需要else语句 举例：将上面的语句改成块if语句 If x=0 then if xy then y= 1+x t=x Else x=y Y=1-2*x y=t End if end if,13,执行情况： If x=0 the

6、n y= 1+x Else Y=1-2*x End if,说明： 当条件成立时，执行y=1+x 语句，然后，不执行else语句，跳到end if语句。 当条件不成立时，执行y=1-2*x，然后跳到end if 语句。,14,If then else If then else end if end if,执行情况： 当条件1成立时，执行语句1，然后不执行else语句，跳出到end if语句。 当条件1不成立时，执行else部分， A. 判断条件2，如果成立，执行语句2，然后 跳到 第一个end if语句，再执行 end if 语句 B. 如果条件2 不成立，执行语句3，然后跳到第一个end if

7、 ，然后在执行最后一个end if,15,注意 end if的位置 If then End if If then else end if,与上述if 嵌套的区别 条件1成立，执行语句1 然后，跳到end if 条件不成立，直接跳到end if 无论上述条件成立与否，都要执行下面的if 语句。,16,两个程序运行结构的比较： 输入x的值 If x0 then Print 1+x Else if x10 then Print 1+2*x Else Print 1+3*x End if End if,输入x的值 If x0 then Print 1+x End if if x10 then Prin

8、t 1+2*x Else Print 1+3*x End if,17,Elseif 语句 If then elseIf then end if,说明： 多种选择结构的情况： 从上向下执行，只要条件I中 有一个成立，就执行相对应的语句I 程序执行完之后，就跳出 end if 语句。,18,a = InputBox(请输入一学生的成绩：, 数据输入) If a 90 then Print 该学生成绩： + str(a)+ 优 Elseif a 80 then Print “该学生成绩：” + str(a) + 良 Elseif a 70 then Print 该学生成绩： + str(a) + 中

9、等 Elseif a 60 then Print 该学生成绩： + str(a) + 及格 else Print 该学生成绩： + str(a) + 不及格 End if,19,多分支选择,当存在多个选择的情况时，还可以使用如下格式： Select case Case Case else End select,20,说明,测试表达式：数值或字符串表达式（不能为逻辑） 表达式列表：可以是单个，可以是多个，还有就是可以是关系型（使用IS与其他的值进行比较） 执行过程：自上向下，判断条件是否成立，成立执行这个语句，然后跳到end select 语句（结束选择）。不成立，跳到下一个判断条件中。依次类推

10、。,21,对于select case 和 if 语句的嵌套使用 Dim y As Integer, m As Integer, d As Integer y = InputBox(请输入年份, 数据输入) m = InputBox(请输入月份, 数据输入) Select Case m Case 1, 3, 5, 7, 8, 10, 12 ： d = 31 Case 4, 6, 9, 11 ： d = 30 Case 2 If y Mod 4 = 0 And y Mod 100 0 Or y Mod 400 = 0 Then d = 29 ： Else ： d = 28 End If ： End

11、 Select Print y 天,22,a! = InputBox(请输入一学生的成绩：, 数据输入) Select Case a Case Is 60 Print 该学生成绩： & a & 及格 Case Is 70 Print “该学生成绩：” & a & “中等 Case Is 80 Print “该学生成绩：” & a & “良 Case is90 Print “该学生成绩：” & a & “优” Case else Print “该学生成绩：” & a & “不及格” End Select,23,a! = InputBox(请输入一学生的成绩：, 数据输入) Select Case a C