第五章　选择结构.ppt

第05章　选择结构 主要内容： 程序的执行顺序 行If语句 块If语句 Select多分支选择语句 说明： ①条件可以是关系表达式、逻辑表达式。FalseTrue条件语句序列1语句序列2下一条语句 ②条件判断结果为True或False。 ③程序段可以是一条语句，也可以是多条语句。多条语句在同一行，用分号分隔 “ : ”。 例：随机产生一个10-99间的整数，判断其是否为5的倍数。 例5-1: 输入两个数，比较它们的大小并按从小到大的顺序显示出来 例：找出ＡＢＣ三个数中的最大数。 例5-3：输入三个数a、b、c，判断其中的最大值。利用InputBox函数输入a、b、c三个数。 Private Sub Form_Click() Dim a As Single, b As Single, c As Single, max As Single, min As Single a = Val(InputBox(请输入a的值：) b = Val(InputBox(请输入b的值：)) c = Val(InputBox(请输入c的值：)) max = a 最值判断，先将a的值放入max中 If b max Then 将b的值与max的值进行比较 max = b End If If c max Then 将c的值与max的值进行比较 max = c End If Print 最大值是：; max End Sub 例5-2：奇偶数判断。在文本框(Text1)中输入正整数，按“判断”命令按钮，判断输入的是奇数或偶数，结果显示在文本框(Text2)中。 Private Sub Command1_Click() Dim x As Integer x = Val(Text1.Text) If x Mod 2 = 0 Then 用Mod运算来判断奇偶数 Text2.Text = 偶数 Else Text2.Text = 奇数 End If End Sub 例5-4: 输入学生成绩，评定成绩档次。90分以上为优秀，80～89为良好，70～79为中等，60～69为及格，60分以下不及格。输入成绩应在0～100之间。 Private Sub Command1_Click() Dim score% Lab1: score = Val(InputBox(请输入学生成绩：)) If score 0 Or score 100 Then ‘对输入成绩进行判断，应在0到100之 MsgBox (输入有误，成绩应在0～100之间！) Goto Lab1 Else If score = 90 Then Print 优秀 ElseIf score = 80 Then ‘成绩在80～89之间 Print 良好 ElseIf score = 70 Then Print 中等 ElseIf score = 60 Then Print 及格 Else Print 不及格 End If End If 例 已知x，y，z三个数，使得xyz用一个IF语句和一个嵌套的IF语句实现 GoTo语句 作用：程序执行到GoTo语句时，跳转到“标识”所在行，从该行开始往下执行。 其语句格式为： GoTo 标识 说明：标号是一个标识符或整数。 在同一过程中应有要转移到的语句“标识”，且应该是唯一的。标识格式为： 〈标识：〉〈语句〉 GoTo举例： Start: a = Val(InputBox()) Print a; n = n + 1 If n 5 Then GoTo Start ’这段代码的功能是每行显示5个值 End 程序执行到If语句时，若n5成立，则执行语句标识为Start后的语句，否则执行If语句下一行的End语句（End语句的作用是结束程序运行）。 注意：结构化程序设计中要求尽量少用GoTo语句。 例5-7: 字符分类。在窗体单击时要求输入一个字符，然后将输入字符的类别信息打印出来，类别分为：字母、数字和其他字符