Visual Basic程序设计实用教程第6章.pptVIP

程序控制结构类型 顺序 选择(分支) A B A B p 真 假 p A 真 循环(重复) p A 真 假 假 A B p G 已经证明，由以上三种基本结构顺序组成的程序结构，可以解决任何复杂的问题。 多分支选择结构 * if条件语句 Select case语句 条件函数 6.2 选择结构程序设计 * 6.2.1 if条件语句 1、单行结构条件语句 格式： If条件Then语句序列1 [Else语句序列2 ] 功能： 如果条件为True，执行语句序列1，否则执行语句序列2。 注意： “条件”为关系表达式或逻辑表达式，Else语句2可省略 例如： IF X0 THEN Y=-X ELSE Y=X if a10 then a=a+1:b=b+a:c=c+b * 6.2.1 if条件语句 2、块结构条件语句 格式： If 条件 then 程序段1 [else 程序段2] end if 例如： IF X0 THEN Y=-X ELSE Y=X if a10 then a=a+1:b=b+a:c=c+b IF x mod 2=0 THEN print “偶数” 功能： 如果条件为True，执行程序段1，否则执行程序段2。 等价于: 注意缩进方式 IF X0 THEN Y=-X ELSE Y=X END IF * 6.2.1 if条件语句 3、多分支if语句 格式： if 条件1 then 语句块1 [Elseif 条件2 then 语句块2] [Elseif 条件3 then 语句块3] … [Else 语句块n] End if 功能： 如果条件1为True，执行程序段1，否则判断条件2，若为真执行程序段2，….当Elseif 后的所有条件均不满足时，则执行语句块n * 6.2.1 if条件语句 【典型应用1】铁路托运行李，规定每张客票的托运费的计算方式是：行李重量不超过50千克，每千克0.25元；超过50千克但不超过100千克，其超过部分每千克0.35元；超过100千克，其超过部分每千克0.45元，编写程序，输入行李重量，计算托运的费用 【分析】设行李重量为w千克，应付费用为x元，则计算公式为 0.25w w=50 0.25*50+0.35*(w-50) 50w=100 0.25*50+0.35*50+0.45(w-100) w100 X= * 6.2.1 if条件语句 【程序设计】 [1] x和w的类型 [2] 程序界面 程序运行时； 上面的文本框用于输入 下面的文本框用于输出 按钮的Click事件中写代码 * 6.2.1 if条件语句 【程序代码】 Private Sub Command1_Click() Dim w As Single, x As Single w = Val(Text1.Text) If w = 50 Then x = 0.25 * w ElseIf 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 Text2.Text = x End Sub * 6.2.1 if条件语句 4、if语句的嵌套 格式： If 表达式 then 语句块(可嵌套if) else 语句块(可嵌套if) end if 例如：分段函数的求解 Private Sub Form_Click() Dim x As Single, y As Single x = Val(Text1.Text) If x 0 Then y = 1 Else If x 0 Then y = -1 Else