计算机基础与Visual Basic程序设计 教学课件 作者 978 7 302 28844 2 第七章 VisualBasic控制结构 选择结构.pptVIP

第七章 VisualBasic控制结构-选择结构 1.掌握If 条件语句 2. Select Case选择语句 3.选择嵌套结构 选择结构 选择结构：当设定条件成立时执行某些语句，条件不成立时则跳过这些语句或执行其它的语句。 选择结构中要使用选择语句，在VB中提供了两种语句： If语句和Select Case语句 1、If单分支结构 格式1: If 表达式 Then 语句 其中，表达式是一个条件表达式或逻辑表达式 格式2： If 表达式 Then 语句块 End If 1、If单分支结构 说明： ① 表达式都是逻辑表达式，数值表达式和关系表达式被视为逻辑表达式的特例。当表达式为数值表达式时，VB 将这个值解释为 True 或 False：一个为零的数值为 False，而任何非零数值都被看作 True。 ② 语句块可以是一条或多条语句。如果使用格式1的简单形式表示，则只能是一条语句；或用冒号隔开的多条语句，但这些语句必须书写在一行上。 ③ 可以使用单行或多行语法有条件地执行一个语句。下面两个例子是等价的： If anyDate Now Then anyDate = Now 和 If anyDate Now Then anyDate = Now End If ④ If...Then 的单行格式不用 End If 语句。 1、If单分支结构 例5-1：输入一个数，如果是奇数则通过消息框输出该数。 Private Sub Form_Click() Dim x As Integer x = InputBox(请输入一个值：) If x Mod 2 = 1 Then MsgBox x End Sub 格式1： If 表达式 Then 语句块1 Else 语句块2 End If 格式2： If 表达式 Then 语句1 Else 语句2 例如，Dim Data As Integer Data = InputBox(“请输入成绩：) If Data = 90 Then Print “优秀” Else Print “合格” Print 计算完毕 上例的If 语句可以改写为： If Data = 90 Then Print “优秀” Else Print “合格” End If 条件函数： IIf函数形式是： IIf（表达式，当表达式为True时的值，当表达式为False时的值） iif函数等价于双分支结构语句。 例如，求x,y中大的数，放入Tmax变量中，语句如下： Tmax=IIf（x y，x，y） 等价于：If xy Then Tmax=x else Tmax=y 格式： If 表达式1 Then 语句块1 ElseIf 表达式2Then 语句块2 … [Else 语句块 n+1 ] End If 说明：不管有几个分支,依次判断，当某条件满足，执行相应的语句块，其余分支不再执行；若条件都不满足，且有Else子句，则执行该语句块，否则什么也不执行。 ElseIf不能写成 Else If。 Select Case选择语句 Select Case选择语句 Select Case选择语句 上面学习了选择结构语句的基本形式，可以通过这些基本形式加以复合，获得更为复杂的选择结构，称为选择结构语句的嵌套。可根据实际情况选择采用何种结构。例如： 本章重点： 学习掌握If条件语句和Select Case语句的格式及其使用。 本章难点： 选择嵌套结构 本章内容及要求： T F 语句（块） 表达式 单分支结构 Data是3的倍数 X是奇数? 输出x T F 2、If双分支结构 功能：当表达式的值为非0（True）时,执行Then后面的语句块1，否则执行Else后面的语句块2。 表达式 语句块1 语句块2 T F 2、If双分支结构 Data=90? 输出“优秀” T F 输出“合格” 输出“计算完毕” 3、If多分支结构 说明： ① 不管有几个分支，程序执行了一个分支后，其余分支不再执行。 ② E