第三章 VB语言程序设计基础2(程序控制语句).pptVIP

3.6.1 顺序结构程序设计 3.6.2 选择结构程序设计 1.If…Then 结构(单分支结构) 2.If…Then …Else 结构(双分支结构) 3.If…Then …ElseIf 结构 (多分支结构) 4．Select Case结构(多分支结构) 1.If…Then 结构(单分支结构) 格式1：If 〈表达式〉Then 语句 格式2：If 〈表达式〉Then 语句块 End If 说明： ① 表达式都是逻辑表达式，当表达式是数值表达式时，Visual Basic 将这个值解释为 True 或 False：一个为零的数值为 False，而任何非零数值都被看作 True。 ② 语句块可以是一条或多条语句。如果使用格式1的简单形式表示，则只能是一条语句；或用冒号隔开的多条语句，但这些语句必须书写在一行上。 ③ 可以使用单行或多行语法有条件地执行一个语句。 ④ If...Then 的单行格式不用 End If 语句。 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer Dim x1 As Single, x2 As Single, d As Single a = Text1.Text b = Text2.Text c = Text3.Text d = Sqr(b * b - 4 * a * c) 计算△ If d = 0 Then x1 = (-b + d) / (2 * a) x2 = (-b - d) / (2 * a) Label5.Caption = Label5.Caption + Format(x1) Label6.Caption = Label6.Caption + Format(x2) End If End Sub 说明： ① 不管有几个分支，程序执行了一个分支后，其余分支不再执行。 ② ElseIf子句的数量没有限制，可以根据需要使用任意多个ElseIf子句。 ③ 语句中的ElseIf子句和Else子句都是可选项，如果省略这些子句，则成为单分支结构。 ④ If...Then...ElseIf 只是 If...Then...Else 的一个特例。注意，可以使用任意数量的 ElseIf 子句，或者一个也不用。可以有一个 Else 子句，而不管有没有 ElseIf 子句。 Private Sub Command1_Click() Dim x As Single, y As Single x = Text1.text If x 0 Then y = 5 ElseIf x 1 Then y = x + 1 ElseIf x 2 Then y = x ^ 2 + 2 ElseIf x 5 Then y = -x - 3 Else y = -2 * x + 6 End If Label2.Caption = y= y End Sub If intMark = 90 Then MsgBox 优秀 ElseIf intMark = 80 Then MsgBox 良好 ElseIf intMark = 70 Then MsgBox 中等 ElseIf intMark = 60 Then MsgBox 及格 ElseIf intMark = 30 Then MsgBox 补考 Else MsgBox 重修 End If End Sub 格式：Select Case 测试变量或表达式 [Case 表达式表1 [语句块1]] [Case 表达式表2 [语句块2]] …… [Case 表达式表n [语句块n]] [Case Else [语句块n+1]] End Select 功能：根据测试变量或表达式的值，从多个语句块中选择符合条件的一个语句块执行。 说明： ① 测试