数据库应用与VB程序设计 第5章 程序流程控制.pptxVIP

第5章 程序流程控制 5.1 程序控制结构类型 5.2 程序中常用的基本语句 5.3 选择结构程序设计 5.4 循环结构程序设计 5.5 常用算法与实例 5.1 程序控制结构类型 在结构化程序设计中，基本控制结构包括顺序结构、选择结构和循环结构。选择结构能根据指定条件的当前值在两条或多条程序路径中选择一条执行VB中选择结构语句包含If和Select Case两种。程序控制结构类型选择(分支)顺序循环(重复)真假p假 Ap真 A B B Ap已经证明，由以上三种基本结构顺序组成的程序结构，可以解决任何复杂的问题。 A A B G假p真多分支选择结构5.3 选择结构程序设计 if条件语句Select case语句条件函数 5.3.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 5.3.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=XEND IF 5.3.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 5.3.1 if条件语句【典型应用1】铁路托运行李，规定每张客票的托运费的计算方式是：行李重量不超过50千克，每千克0.25元；超过50千克但不超过100千克，其超过部分每千克0.35元；超过100千克，其超过部分每千克0.45元，编写程序，输入行李重量，计算托运的费用【分析】设行李重量为w千克，应付费用为x元，则计算公式为0.25w w=500.25*50+0.35*(w-50) 50w=1000.25*50+0.35*50+0.45(w-100) w100X= 5.3.1 if条件语句【程序设计】[1] x和w的类型[2] 程序界面程序运行时；上面的文本框用于输入下面的文本框用于输出按钮的Click事件中写代码 5.3.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 = xEnd Sub 5.3.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 y = 0 end if End if Label3.Caption = Str(y)End Sub 5.3.2条件函数IIf函数可用来执行简单的条件判断操作，它和“If…Then…Else”语句有类似的功能。格式为： iff （表达式 ,真值部分，假值部分）其中“条件”是一个逻辑表达式。当“条件”为真时，IIf函数返回“True部分”，若“条件”为假，则返回“False部分”。这里“True部分”和“False部分”可以是表达式、变量或其他函数。例如：Y=IIF(X0,-1,IIF(X0,1,0)) 5.3.3 S