选择结构程序设计解析.pptxVIP

第5章选择结构程序设计; 选择结构是一种常用的基本结构，是计算机科学用来描述自然界和社会生活中分支现象的重要手段。其特点是：根据所给定的条件为真（即条件成立）与否，而决定从各实际可能的不同分支中执行某一分支的相应操作，并且任何情况下总有：“无论分支多寡，必择其一；纵然分支众多，仅选其一”的特性。;第5章 选择结构程序设计;5.1 条件表达式;5.1.2 布尔表达式;5.1.3 运算符的优先顺序;5.2 简单条件选择结构的程序设计;5.2.2 多行结构条件语句;Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) y = Val(Text2.Text) If x y Then t = x : x = y : y = t End If Label3.Caption = 较大数为 Str(x) End Sub Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) y = Val(Text2.Text) If x y Then Label3.Caption = 较大数为 Str(y) Else Label3.Caption = 较大数为 Str(x) End If End Sub;5.2.3 If语句的嵌套; 铁路托运行李，从甲地到乙地，规定每张客票托运费计算方法是：行李重量不超过50千克时，每千克0.25元；超过50千克而不超过100千克时，其超过部分每千克0.35元；超过100千克时，其超过部分每千克0.45元。编写程序，输入行李重量，计算并输出托运的费用。;Private Sub Command1_Click() Dim w As Single, x As Single w = Val(Text1.Text) If w = 50 Then x = 0.25 * w Else If w = 100 Then x = 0.25 * 50 + 0.35 * (w - 50) Else x = 0.25 * 50 + 0.35 * 50 + 0.45 * (w - 100) End If End If Text2.Text = x End Sub;5.2.4 If语句的嵌套格式ElseIf;某百货公司为了促销，采用购物打折扣的优惠办法，即每位顾客一次购物： (1) 在1000元以上2000元以下者，按九五折优惠； (2) 在2000元以上3000元以下者，按九折优惠； (3) 在3000元以上5000元以下者，按八五折优惠； (4) 在5000元以上者，按八折优惠。 Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) If x 1000 Then y = x ElseIf x 2000 Then y = 0.95 * x ElseIf x 3000 Then y = 0.9 * x ElseIf x 5000 Then y = 0.85 * x Else y = 0.8 * x End If Text2.Text = y End Sub;5.3 多分支条件选择结构的程序设计;为某航空公司设计程序，根据月份和订票张数决定票价的优惠率。假设优惠规定如下： (1) 在旅游的旺季7～9月份，如果订票数超过20张，票价优惠15%，20张以下，优惠5%； (2) 在旅游的淡季1～5月份、10月份、11月份，如果订票数超过20张，票价优惠30%，20张以下，优惠20%； (3) 其他情况一律优惠10%。 Private Sub Command1_Click() Dim m As Integer, n As Integer, r As Integer m = Val(Text1.Text) n = Val(Text2.Text) Select Case m Case Is = 5, 10, 11 If n 20 Then r = 20 Else r = 30 Case 7 To 9 If n 20 Then r