高级语言程序设计教程——Visual Basic 6.0 中文版 教学课件 作者 张露2 第5章.pptVIP

第5章　选择结构程序设计　;选择结构程序设计 ;选择结构程序设计 ;多分支结构（If … Then … ElseIf … 语句） 多分支结果是双分支结构的一种特例，就是在双分支结构的第二个分支中在加上几个分支，达到多重条件的判断。它的语法可以表示如下： If 条件表达式1 Then 语句块1 ElseIf 条件表达式2 Then 语句块2 ElseIf 条件表达式3 Then 语句块3 …… [Else 语句块n+1 ] End If 这种结构的程序流程图见下页;选择结构程序设计 ;If...Goto结构 Visual Basic提供了一种控制If...goto语句，这种控制语句主要用于程序的出错处理或者是根据条件提前结束程序的操作。这种语句的格式是： If表达式 goto 行号/标签 程序段1 行号/标签： 程序段2 当表达式的值为“真”时，程序跳到行号/标签处，继续执行程序段2，否则将就先执行程序段1，然后再执行程序段2。这种结构就相当于单分支的选择结构。;嵌套结构 在一个If … Then … Else结构的一个或者几个语句块中包含一个或若干个If … Then … Else结构的语句称为嵌套结构。这种结构的语法可以表示如下： If 条件表达式 Then [If 条件表达式 Then … Else … End If] Else [If 条件表达式 Then … Else … End If] End If;Select case 结构 这种结构就是根据我们对于一个事件的不同的选择而使其出现不同的结果。实际上是对多分支结构的另一种表达方式，目的就在于增强程序的可读性，它的理解方法完全和上面所讲述的多分支结构一样，只是在语法上有一定的不同。这种结构的语法结构如下所示，下图是这种结构的程序流程图。 Select case 表达式 Case 常量表达式1 语句块1 Case 常量表达式2 语句块2 …… [Case Else 语句块n+1 ] End select 这种结构的程序流程图见下页;选择结构程序设计 ; 条件函数 在Visual Basic中还提供了两个条件函数，这两个函数分别是：IIF函数和Choose函数，用IIF函数代替IF语句，用Choose函数代替select case语句，但是这两个函数只能用于简单的判断场合。 1) IIF函数 IIF函数的形式： IIF（表达式，条件为真（true）的值，条件为假（false）的值） 例如：判断税率的程序可以写成如下：10万元以上扣除15%，10万元以下扣除10%，写成程序就是： TaxRate = IIF（money 10，0.15，0.1） Tax = TaxRate * money 求两个数中较小的一个的程序代码: Min = IIF (xy, y, x);Choose函数 Choose函数的形式: Choose(Nvar,ret1,ret2,……) 其中：Nvar是一个数值类型的变量，ret1是当Nvar为1时的返回值，ret2是当Nvar为2时的返回值，等等以此类推。 例如：可以根据我们输入的数字来判断运算符的种类： Nop =InputBox（“请输入运算符号码”） Op =choose（Nop，“+”，“-”，“*”，“/”，“^”） 这里当输入1时,op的值为“+”，2时为“-”等等。注意当输入不在1---5之间时，函数将返回一个NULL值；当输入的是一个小数时，系统将先对这个小数取整。然后进行判断运算。 ;On-goto语句 On-goto类似于select case语句，用来实现多分支的结构控制，可以根据不同的条件从多种处理方案中选择一种方案执行。这种语句的结构是： On 数值表达式 GoTo 行号列表|标签列表 该语句的功能是：根据“数值表达式”的值，将其四舍五入处理后得到一个整数，然后根据这个整数的值决定自己转移到第几个行号|标签处继续执行。行号列表|标签列表中的每两个行号|标签之间用逗号隔开。例如： On （x+y）/2 goto 23，12，line2，line5，exits 这个语句执行的情况是： 当（x+y）/2=1时，程序从标签为23的那一行开始往后执行； 当（x+y）/2=2时，程序从标签为12的那一行开始往后执行，以此类推。;On error goto语句 该语句的功能是启动