第5章選择结构.docVIP

第五章 选择结构 本章内容及要求： 1.掌握If 条件语句 2. Select Case选择语句 3.选择嵌套结构 本章重点： 学习掌握If条件语句和Select Case语句的格式及其使用。 本章难点： 选择嵌套结构 5.1 if 结构条件语句 选择结构：当设定条件成立时执行某些语句，条件不成立时则跳过这些语句或执行其它的语句。 选择结构中要使用选择语句，在VB中提供了两种语句： If语句和Select Case语句 5．1．1 If。。。then 语句（单分之结构） 格式1: If 表达式 Then 语句块 End if 其中，表达式是一个条件表达式或逻辑表达式 格式2： If 表达式 Then 语句 说明： ① 表达式都是逻辑表达式，数值表达式和关系表达式被视为逻辑表达式的特例。当表达式为数值表达式时，VB 将这个值解释为 True 或 False：一个为零的数值为 False，而任何非零数值都被看作 True。 ② 语句块可以是一条或多条语句。如果使用格式1的简单形式表示，则只能是一条语句；或用冒号隔开的多条语句，但这些语句必须书写在一行上。 ③ 可以使用单行或多行语法有条件地执行一个语句。下面两个例子是等价的： If anyDate Now Then anyDate = Now 和 If anyDate Now Then anyDate = Now End If ④ If...Then 的单行格式不用 End If 语句。 例如，If Data=90 Then Print “优秀” 例5-1 输入一个数，如果是3的倍数则通过消息框输出。 Private Sub Form_Click() Dim Data As Integer Data = InputBox(请输入一个值：) If Data Mod 3 = 0 Then MsgBox Data End Sub if ……then……else 语句结构（双分支结构） 语法格式1： If 表达式 Then 语句块1 Else 语句块2 End If 语法格式2： If 表达式 Then 语句1 Else 语句2 功能：当表达式的值为非0（True）时,执行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 例5-2 输入x，计算y Private Sub Command1_Click() x = Val(Text1.Text) If x = 0 Then y = 1 + x Else y = 1 - x Text2.Text = y End Sub 设计一个接受口令的窗体。 Private Sub Command1_Click() If Text1.Text = 1234567 Then Form2.Show Else Text1.Text = 你不是合法用户，再见！ End If End Sub Private Sub Form_Click() Form3.Show End Sub Private Sub Image1_Click() End End Sub 条件函数： IIf函数形式是： IIf（表达式，当表达式为True时的值，当表达式为False时的值） iif函数等价于双分支结构语句。 例如，求x,y中大的数，放入Tmax变量中，语句如下： Tmax=IIf（x y，x，y） 等价于：If xy Then Tmax=x else Tmax=y 例5-4 算术练习程序 Dim a, b, c As Integer Private Sub Command1_Click() c = Val(Text1.Text) If c = a + b Then MsgBox 正确,请做下一题, vbOKCancel + vbInformation, 提示信息 a = Int(10 * Rnd): b = Int(10 * Rnd) Label1.Caption = Str(a) + + + Str(b) + = Else MsgBox 不正确,请再做一次, vbOKCancel + vbInformation, 提示信息