vb教程,分支结构vb教程分支结构,分支结构.ppt

第5章 选择结构程序设计 5.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 【例5-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 5. 嵌套 IF ... THEN...IF ... THEN ...ELSE ...ELSE… 【例5-2】平面直角坐标系中，不同的象限内，点的坐标的符号有以下4种情况: Private Sub Command1_Click() X = Val(Text1.Text): Y = Val(Text2.Text) If X = 0 Or Y = 0 Then Print 不在任何象限内: _ Exit Sub If X 0 Then If Y 0 Then Print IN A Else _ Print IN D Else If Y 0 Then Print IN B _ Else Print IN C End Sub 5.2 块结构条件语句 1.格式 If 条件1 Then [语句组1] [ElseIf 条件2 Then [语句组2]] …… [ElseIf 条件N Then [语句组N]] [Else [其他语句组]] End If 功能: …… 【例5-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 5.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 关系运算符表达式