[高等教育]VB新生课件第5章5-1_2_3学时北邮.pptVIP

Visual Basic程序设计 Visual Basic 选择结构 （第6次1，2，3学时） 2012级 周丽华 第5章 选择结构 5.1 单行条件语句 5.2多行条件语句 5.3 多分支条件语句 5.4 If条件语句嵌套 5.5 GoTo语句 5.6 情况语句(case) 5.7 IIf函数和Choose函数 选择结构 5.1 单行If条件语句 5.1 单行If条件语句 单分支结构 分析 输入： x y 处理 要求结果 ： x (保存较小值) y (保存较大值) 显示顺序：x ,y 5.2多行条件语句 If 条件 Then 语句序列1 [Else 语句序列2] End If 5.2多行条件语句（省Else子句） If 条件 Then 语句序列1 End If 例5-2：奇偶数判断。 在文本框(Text1)中输入一个整数，按“判断”命令按钮，判断输入的是奇数或偶数，结果显示在文本框(Text2)中。 偶数判断方法 条件成立为偶数：X Mod 2=0 条件成立为奇数： (考虑负数的情况) x Mod 2 =1 Or x Mod 2 =-1 Abs(x) Mod 2 = 1 Abs( x Mod 2) =1 If 条件1 Then … If 条件2 Then … End If [Else ...] End If If 条件1 Then ... Else If 条件2 Then ... End If End If 例5.4 输入学生成绩，评定成绩等级。 90分以上为优秀 80～89为良好 70～79为中等 60～69为及格 60分以下不及格。 输入成绩应在0～100之间。 要求：输入成绩应在0～100之间 输入成绩 If 成绩不在0～100之间 then 显示输入有错 输入成绩 Else 进行分等级处理 End If 分级处理 处理选择多分支条件语句 处理方法： 从高分段到低分段依次进行 从低分段到高分段依次进行 5.5 GoTo语句 程序执行到GoTo语句时，跳转到“标识”所在行，从该行开始往下执行。其语句格式为： GoTo 标识 ①标识是一个标识符或整数。 ②在同一过程中应有要转移到的语句“标识”，且应该是唯一的。 标识格式为：〈标识：〉〈语句〉 少用GoTo语句 滥用GoTo语句会使程序结构混乱，可读性变差。因此，结构化程序设计中要求尽量少用GoTo语句。 例5-5: 求一元二次方程ax2+bx+c=0的根。 分析 计算： 程序中设： d=b^2-4*a*c 根据d的值分别进行处理： 当d0时，X1，X2 当d=0时，一个根x 当d0时，显示“无解” 启动、输入 Private Sub Command1_Click() Dim a!, b!, c!, d!, x!, x1!, x2! a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) 处理 d = b * b - 4 * a * c If d 0 Then x1 = (-b + Sqr(d)) / (2 * a) x2 = (-b - Sqr(d)) / (2 * a) MsgBox (x1= x1 , x2= x2) Else If d = 0 Then x = -b / (2 * a) MsgBox (x= x) Else MsgBox (此方程无根) End If End If End Sub 5.6 情况语句(Select Case) 多分支选择结构还可以用Select Case语句实现，这种语句结构清晰，表达直观。 If score = 90 Then Print 优秀 ElseIf score = 80 Then Print 良好 ElseIf score = 70 Then Print 中等 ElseIf score = 60 Then Print 及格 Else Print 不及格 End If Select Case＜测试表达式＞’数值或字符表达式 Case＜表达式列表1＞ ’与测试表达式类型相同 ＜语句序列1＞ ’一行或多行语句 Case＜表达式列表2＞ ＜语句序列2