第4单元选择结构程序设计.pptVIP

合肥师范学院 程序设计基础-VB语言 第4单元 选择结构程序设计 第4单元 选择结构程序设计 第一节 if语句 第二节 select语句 选择结构的应用 第三节 选择结构的嵌套 实验1 实验2 第一节 if语句 本节知识点： 用if语句实现选择结构的程序 。 第一节 if语句 1）If…Then语句(单分支结构) If 表达式 Then  语句块 End If 或者： If 条件 Then 语句 如果条件表达式为真，执行Then后面的语句，如果条件表达式为假，不执行Then后面的语句而执行End If 后面的语句。 第一节 if语句 例4.4 设密码。用IF语句来判定输入密码的正确性。 Private Sub Command1_Click() Dim a As String, b As String a = 111111 b = InputBox(请输入密码：, 密码对话框) If a = b Then MsgBox (密码正确) End If End Sub 第一节 if语句 2）If…Then…Else语句(双分支结构) 格式1： If 表达式 Then 语句块1 Else 语句块2 End If 格式2： If 表达式 Then 语句1 Else 语句2 如果表达式为真，执行Then后面的语句块1 ，如果条件表达式为假，执行Else后面的语句块2 。 第一节 if语句 例4.5 计算下列分段函数的值 分析：对于此分段函数，由于包含X=0 和X0两种情况，因此可以选用双分支结构的IF语句编程实现。 Private Sub Command1_Click() Dim x As Single, y As Single x = Val(InputBox(请输入x:)) If x = 0 Then y = (1 - x) ^ 2 Else y = x ^ 2 - 1 End If Print y=; y End Sub 第一节 if语句 3）If…Then…ElseIf语句(多分支结构) 使用形式: If 表达式1 Then 语句块1 ElseIf 表达式2Then 语句块2 … [Else 语句块 n+1 ] End If 第一节 if语句 这种结构称为块If结构。 执行块If结构： 先测试表达式1，如果表达式1成立（True），执行Then后面的语句块1；如果表达式1不成立，继续测试表达式2，如果表达式2成立（True)，执行Then后面的语句块2……如此测试下去，如果所有条件不成立，执行Else后面的语句块n+1。 第一节 if语句 例4.6 输入一学生成绩，评定其等级。方法是：90～100分为“优秀”，80～89分为“良好”，70～79分为“中等”，60～69分为“及格”，60分以下以为“不合格”。 Private Sub Form_Click() Dim x As Integer x = Val(InputBox(请输入成绩:)) If x = 90 Then Print 优秀 ElseIf x = 80 Then Print 良好 ElseIf x = 70 Then Print 中等 ElseIf x = 60 Then Print 及格 Else Print 不及格 End If End Sub 第二节 select语句 本节知识点： 用select语句实现选择结构的程序 。 第二节 select语句 语句格式： Select Case 条件表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 … [Case Else 语句块n+1] End Select 当Case条件表达式的值符合某个Case子句指定的值条件时，就执行该Case子句中的语句，然后跳到End Select，从End Select出口。 如果条件表达式的值与任何一个Case子句都不匹配，就执行Ca