新Visual Basic程序设计实用教程 教学课件 匡松 缪春池 VB第6章.pptVIP

VB程序设计与数据库应用 第6章 程序控制结构  6.1 程序控制结构类型 6.2 选择结构程序设计 6.3 循环结构程序设计 6.4 循环控制结构的嵌套 6.1 程序控制结构类型 在结构化程序设计中，基本控制结构包括顺序结构、选择结构和循环结构。 选择结构能根据指定条件的当前值在两条或多条程序路径中选择一条执行 VB中选择结构语句包含If和Select Case两种。 6.1.1 顺序结构 顺序结构是最普遍使用的一种基本控制结构，这种控制结构按照语句的先后排列顺序逐条执行。先执行程序段A，接着执行下面相邻的程序段B。程序段由一条或多条语句组成。顺序结构可以看成是系统默认的控制结构，不需要专门的语句来控制。 6.1.2 选择结构 顾名思义，程序进入选择结构后，就面临走哪一条路和执行哪一条分支的选择。选择是通过对某一个条件进行判断后做出的，条件往往是由关系表达式来描述。选择结构先进行条件判断，如果条件成立，执行程序段A，执行完后转向出口；如果条件不成立，则执行程序段B，执行完后转向出口。A、B两个程序段是处于平行的地位，不可能同时被执行，只可能执行其中的一个程序段，然后就退出选择结构，转向共同的出口。 6.1.3 循环结构 由于功能的要求，在程序设计中，有时需要重复不断地执行某一个程序段，因此引入循环控制结构。程序先要进行循环条件的判断，当循环条件成立时，进入循环体（需要重复执行的程序段）；执行完一遍循环体后，再次进行循环条件的判断；不断重复“判断－执行－再判断”的过程，直到某一次循环条件判断为不成立时，就退出循环结构，执行循环语句后面的语句。Visual Basic的循环控制语句有3个，分别是While型循环语句、Do型循环语句、For型循环语句，各种循环语句在具体格式和使用特点上有所不同。 程序控制结构类型 6.2 选择结构程序设计 if条件语句 Select case语句 条件函数 6.2.1 if条件语句 【典型应用1】铁路托运行李，规定每张客票的托运费的计算方式是：行李重量不超过50千克，每千克0.25元；超过50千克但不超过100千克，其超过部分每千克0.35元；超过100千克，其超过部分每千克0.45元，编写程序，输入行李重量，计算托运的费用 【分析】设行李重量为w千克，应付费用为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.2条件函数 IIf函数可用来执行简单的条件判断操作，它和“If…Then…Else”语句有类似的功能。格式为： iff （表达式 ,真值部分，假值部分） 其中“条件”是一个逻辑表达式。当“条件”为真时，IIf函数返回“True部分”，若“条件”为假，则返回“False部分”。这里“True部分”和“False部分”可以是表达式、变量或其他函数。 例如：Y=IIF(X0,-1,IIF(X0,1,0)) Private Sub Form_Click() Dim num1 As Single, num2 As Single num1 = InputBox(请输入购物总金额) Select Case num1 Case Is = 1000 num2 = num1 * 0.8 Case Is = 500 num2 = num1 * 0.9 Case Is = 300 num2 = num1 * 0.95 Case Else num2 = num1 End Select Print 优惠价格为：, num2 End Sub 6.3 循环结构程序设计 程序设计中，循环是指从某处