[VB控制结构.pptVIP

第七章 VB控制结构 7.1 选择控制结构 一、单行结构条件语句 格式：If 条件 Then then部分[Else else部分] 功能：如“条件”为True，执行then部分,否则执行else部分。 其中：“条件”是一个逻辑表达式。 then部分或else部分是由VB的语句构成的。也可是If语句。 在这种方式下，其中的then部分或else部分都可以是在一行中的语句，可以是多个语句。 例：If xy Then ? “xy” ? “xy” (同在同一行的结果) 例： (a1:if x10 then x=x-2:debug.print x:goto a1) 再看看符号函数，它是嵌套的IF语句。 If x0 Then y=1 Else If x0 Then y=-1 Else y=0 嵌套中最重要的是注意嵌套的正确性，一般原则：每一个“else部分”都与它前面的、且没有被配对的“if-then”配对。 例： 1 (x0) y= 0 (x=0) -1 (x0) Private Sub Form_Click() Dim x as single,y as single x=Inputbox(“请输入x的值”） if x0 then y=1 else if x=0 then y=0 else y=-1 Print “x=“;x,”y=“;y End sub 二、块结构条件语句 格式：If 条件1 Then 语句块1 [ElseIf 条件2 Then 语句块2] [ElseIf 条件3 Then 语句块3] …… [Else 语句块n] End If 功能：如条件1为True，则执行“语句块1”；否则如果条件2为True，则执行“语句块2”……，否则执行“语句块n”。 这里的语句块可以是一条或多条语句。多个语句写在一行时，各语句之间要用“：”分隔开来。 例：7.1.1.0 If (x0) and (yd) then amount=(x+y+D*2)/2 try.text=str$(amount) Endif 格式中的所有条件都有应是逻辑表达式。 执行的过程是：先测试“条件1”，为真执行后面的语句块，否则继续测试“条件2”，为真执行下面的，否则继续向下测试……，如都不为真，则执行ELSE后的语句。 块语句和 THEN 不能在同一行，否则会认为是单行结构。 ELSEIF 子句的没有限制，即嵌套没有限制。 Elseif 和else语句都有是可选择的。如都没有则简化为 If 条件 Then 语句块 End If 条件中有多个为真时,也只执行第一个后跳出。 例：76.1.1.1 例： 7.1.1.1 Check$=inputbox$(“Enter a string:”,”check Box”) If len(check$)6 then print “input too long” Else if len(check$)6 then ‘如：输入abc ? print “input too short” Else if left$(check$)=“a” then print “can’t start with an ‘a’” Endif (7) 条件结构可以嵌套。[例7.1] 三、iif函数(immediate if) result= iif(条件,True部分,False部分) 例：d=15 print iif(d1,”d大于12“，”D小于12“） 7.2 多分支结构程序设计 在一个条件分支语句中如果有多个条件判断时，可通过情况语句来实现。它根据一个表达式的值，在一组相互独立的语句序列中挑选要执行的语句。 格式：Select Case 测试表达式 Case 表达式表列1 [语句块1] Case 表达式表列2 [语句块2] …… Case Else [语句块n] End Select 说明： (1)测试表达式是一个数值或字符串表达式。