vb第4章New.ppt

第4章 选择结构程序设计 4.1 单行结构条件语句 1. 格式 If 条件 Then [语句组1] [Else 语句组2] 2. 功能 如果条件成立，则执行语句组1 否则执行语句组2 3. 说明 (1) 条件 : 关系表达式、布尔表达式 数值表达式(0为False，非0为True) 字符串表达式(0为False,非0为True) (2) 语句组1、语句组2: 可以有多条语句，各语句之间用冒号隔开。 (3)可以没有Else部分，这时必须有语句组1。 例: If N0 Then A=A+B:B=B+A Else A=A-B:B=B-A 例: If Xaaa Then Print X 【例4-1】设界面如下图所示，用文本框输入x的值，单击“计算Y”按钮时，根据以下公式计算y的值。 4. 注意 (1) 应作为一条语句书写 (2) 无论条件是否成立，都具有共同出口 例: If X = 0 Then X = 1 + X Else X = 5 - X Y = 1 - X Print Y=; Y 若 X=2 则打印 Y=-2 若 X=-2 则打印 Y=-6 4.2 块结构条件语句 1.格式 If 条件1 Then [语句组1] [ElseIf 条件2 Then [语句组2]] …… [ElseIf 条件N Then [语句组N]] [Else [其他语句组]] End If 功能: …… 【例4-3】输入华氏温度F，利用公式C=5/9*(F-32)转换成摄氏温度C，根据转换结果C的不同值，按以下要求给出相应的提示。 Private Sub Command1_Click() C = 5 / 9 * (Val(Text1.Text) - 32) Text2.Text = Format(C, 0.00) If C 40 Then Label2.Caption = HOT ElseIf C 30 Then Label2.Caption = WARM ElseIf C 20 Then Label2.Caption = ROOM TEMPERATURE ElseIf C 10 Then Label2.Caption = COOL ElseIf C 0 Then Label2.Caption = COLD Else Label2.Caption = FREEZING End If End Sub 4.3 多分支选择语句 1. 格式 Select Case 测试表达式 Case 表达式表1 [语句组1] [Case 表达式表2 [语句组2]] … [Case Else [语句组n]] End Select 2. 功能: 根据测试表达式的值,按顺序匹配Case后的表达式,如果匹配成功,则执行该Case下的语句块,然后转到End Select语句之后继续执行。 3. 说明 测试表达式 : 数值或字符表达式 Case 表达式表: 表中的表项为如下形式: (1) 表达式1[,表达式2]... 如: Case 1 , 3 , 5 (2) 表达式1 TO 表达式2 如: Case 10 TO 30 Case A TO Z (3) Is 关系运算符表达式 如: Case Is = 10 Case Is = 0 与 Case 0 相同 注意: 测试表达式的类型应与Case后表达式类型一致，且三种形式可以混用,如: Case Is -5 , 0 , 5 To 100 本章小结: 1. 单行结构条件语句 If 条件 Then [语句组1] [Else 语句组2] * 第四章 选择结构程序设计 * V i s u a l B A S I C 程序设计 本章要点: 条件语句 ? 单行结构条件语句If...Then...Else ? 块结构条件语句If...Then...EndIf ? 多分支选择语句Select Case...End Select 特点: 根据条件是否成立，决定程序的执行分支 |x| x≤0 lnx x0 y