选择结构程序设计单行结构条件语句单分支结构If表PPT课件

1、 If anyDateNow Then anyDate=Now If anyDateNow Then anyDate=Now End If IfThen的单行格式不用End If语句。 例3.5第1页/共23页2.双分支结构条件语句： If Then Else End If If ThenElse 当表达式值为非零时，执行Then后的语句1（或语句1）否则执行Else后面的语句块2（或语句2）。 说明：块结构的条件语句可以嵌套，即把一个IfThen.Elsef块放在另一个IfThen.Elsef块内，嵌套必须完全嵌套，也就是内层条件语句必须完全包含在外层条件语句之中。 例3.6 -3.7 第2

2、页/共23页3.IfThenElseIf（多分支结构） IfThen ElseIfThen Else End If 执行过程为：如果表达式1为真，执行语句块1，否则，如果表达式2为真，则执行语句块2，如果条件都不是真，则执行Else后的语句块。第3页/共23页说明： 不管有几个分支，程序执行了一个分支后，其余分支不再进行。 ElseIf子句的数量没有限制，可以根据需要使用任意多个ElseIf子句。 语句中的ElseIf子句和Else子句者是可选项，如果省略这些子句，则成为单分支结构。 IfThenElseIf只是 IfThenElse的一个特例。可以使用任意数量的ElseIf子句，或者一个也不

3、用。可以有一个Else子句，而不管有没有ElseIf子句。 例3.83.9第4页/共23页 Private Sub Form_Click() Dim a As Single, b As Single, c As Single Dim p As Single, s As Single Text1.Text = : Text2.Text = : Text3.Text = a = val(Text1) : b = val(Text2) t :c = val(Text3) t If a+bc and b+ca and a+cb then p = (a + b + c) / 2 s = Sqr(p *

4、(p - a) * (p - b) * (p - c) Else print “它不能构成一个三角形” End If End Sub第5页/共23页 编写一个统计学生考试成绩的程序： 如果满足条件CJ60时，打印出“成绩不及格”，采用的条件语句是： If CJ60 Then Print 成绩不及格 多行代码： If CJ60 Then Print 成绩不及格“ Print 请准备补考 End If第6页/共23页 Private Sub Command1_Click() Dim score As Integer, temp As String score = Val(Text1.Text) t

5、emp = 成绩等级为： If score 0 Then Label2.Caption = 成绩出错 ElseIf score 60 Then Label2.Caption = temp + 不及格 ElseIf score = 79 Then Label2.Caption = temp + 及格 ElseIf score = 100 Then Label2.Caption = temp + 优良 Else Label2.Caption = 成绩出错 End IfEnd Sub第7页/共23页4. Select Case选择结构（多分支结构） 格式：Select Case 测试变量或表达式 C

6、ase 表达式表1 语句块1 Case 表达式表2 语句块2 Case 表达式表n 语句块n Case 表达式表n+1 语句块n+1 End Select第8页/共23页 Select Case在结构的上方处理一个测试变量或表达式，并且只计算一次，然后根据测试变量或表达式的值，从多个语句块中选择符合条件（值相等）的一个语句块执行,之后自动转到End Select 后的语句执行；如果没有找到与Case 子句中的表达式相匹配的值，则执行Case Else子句后面的语句块，然后转到End Select 后的语句执行。 测试变量或表达式只能是数值表达式或字符串表达式，不能是逻辑表达式。 语句块由一行或

7、多行语句组成。 表达式表与测试变量或表达式的类型必须相同，每一个表达式是一个或几个值的列表。如果在一个列表中有多个值，用逗号分隔。第9页/共23页一个表达式： Case 6一组枚举表达式： Case 1，3，5，7 Case “I”，“YOU”，“Then”表达式1To表达式2。该形式指定某个数值范围，较小的数值在前面，较大的数值在后面：字符串常量则按字母的ASCII码顺序从低到高排列。 Case 1 To 10 Case “a” To “e”第10页/共23页Is。 Case Is=80 Case Is”Y” 当有多个Case 子句的取值范围和测试表达式的值相符时，只执行符合要求的第一个Ca

8、se子句后面的语句块。 Select Case语句只对单个表达式求值，并根据求值结果执行不同的语句块；而IfThenElse语句可以对不同的表达式求值，然而招待不同的操作。 第11页/共23页 表达式表通常是一个具体值(如Case 1)，每一个值确定一个分支。还有三种方法可以确定设定值： (1)一组值(用逗号隔开)。示例： Case 1,3,5 表示条件在1，3，5范围内取值 (2)表达式1 TO 表达式2。示例： Case 60 To 80 表示条件取值范围为6080 (3)Is关系式。示例： Case Is 0计算复根的虚部P = sqr(D) / (2*a)X1 = (b + sqr(D

9、) / (2*a)X2 = (bsqr(D) / (2*a)结束第19页/共23页 Private Sub Command1_Click() Dim a As Single, b As Single, c As Single Dim D As Single, X1 As Single, X2 As Single Dim R As Single, P As Single a = Val(Text1.Text) 取数据a b = Val(Text2.Text) 取数据b c = Val(Text3.Text) 取数据c If a = 0 Then 当a=0 Text4.Text = 不是二次方程 Text5.Text = 不是二次方程 Else a0 D = b * b - 4 * a * c R = -b / (2 * a)第20页/共23页 If D = 0 Then D=0 Text4.Text = R Text5.Text = R ElseIf D 0 Then D0 X1 = (-b + Sqr(D) / (2 * a) X2 = (-b - Sqr(D) / (2 * a) Text4.Text = X1 Text5.Text = X2 Else D0 P