编程ppt电子课件教案第4章visualbasic语法控制和过程

《编程ppt电子课件教案第4章visualbasic语法控制和过程》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第4章VisualBasic语法：控制和过程4.1基本结构4.2顺序结构－语句序列4.3选择结构－条件语句4.4选择结构－多分支语句4.5选择结构－条件函数IIf()4.6循环结构－循环语句4.7过程和函数4.8变量的作用域4.1结构化程序的基本结构程序结构清晰，可读性好，也易于查错和修改；具有单入口，单出口的特点结构化程序设计方法有三种基本控制结构：顺序结构语句序列AB假真LE真假ABE选择结构条件语句循环结构循环语句4.2顺序结构－语句序列顺序执行：语句依照其在程序中的位置依次顺序地执行。顺序结构语句序列AB4.3选择结构－条件语句

2、选择结构是一种常用的基本结构，其特点是根据所给定的选择条件为真或假，来决定从不同操作中选择执行一种操作。选择结构用条件语句实现。真假ABE选择结构条件语句4.3选择结构－条件语句If条件语句If语句的嵌套多分支语句SelectCase单分支If双分支If多分支If行结构块结构行结构块结构4.3选择结构－条件语句一、单分支Ifx>0Theny=1Ifx>0theny=1Endify=-1’不论x是什么，y＝－1。TF语句（块）表达式单分支结构If表达式Then<语句>If表达式Then<语句块>EndIf4.3选择结构－条件语句二、双分支

3、Ifx>0Theny=1Elsey=2If表达式Then语句1Else语句2If表达式Then<语句块1>Else<语句块2>EndIfFT语句(块)1语句(块)2表达式双分支结构4.3选择结构－条件语句二、双分支Ifx>0Theny=1Elsey=2EndIfFT语句(块)1语句(块)2表达式双分支结构4.3选择结构－条件语句多分支结构FTTT……表达式1表达式2表达式n语句块1语句块2语句块n语句块n+1F……三、多分支If…Then…ElseIf4.3选择结构－条件语句If表达式1Then〈语句块1〉ElseIf表达式2Then〈

4、语句块2〉……Else〈语句块n+1〉EndIf三、多分支If…Then…ElseIf4.3选择结构－条件语句三、多分支If…Then…ElseIfIfx>0Then’实现y=Sign(x)y=1Elseifx=0y=0Elsey=-1EndIf四、If语句的嵌套嵌套：语句块本身又是一个If语句说明VB中对块嵌套的层数没有限制使用条件语句嵌套时，一定要注意If与Else，If与EndIf的配对关系。书写时，采用向右缩进的方式，使程序结构更加清楚，便于阅读和查错。4.3选择结构－条件语句四、If语句的嵌套嵌套例子：Ifx>0Then’实现

5、y=Sign(x)y=1ElseIfx=0Theny=0Elsey=-1EndifEndif4.3选择结构－条件语句1.格式：4.4选择结构－多分支语句SelectCaseSelectCase测试表达式Case表达式表1<语句块1>Case表达式表2<语句块2>……Case表达式表n<语句块n>CaseElse’可选<语句块n+1>EndSelect2.功能根据“测试表达式”的值，选择第一个符合条件的语句块执行。┆┆FTFF语句块n+1┆语句块nT语句块2T语句块1表达式表n表达式表2表达式表1执行过程：（1）计算<测试表达式>的值（2

6、）将<测试表达式>的值与Case语句中的<表达式列表>中的每一个值逐一进行比较。如果与其中的一个值相匹配，则执行该语句中的<语句块>。如果不止一个Case与<测试表达式>相匹配，则只对第一个匹配的Case执行与之相关联的<语句块>。如果在表达式列表中没有一个值与测试表达式相匹配，则执行CaseElse子句（此项是可选的）中的语句。（3）执行EndSelect后面的语句。CaseElse4.4选择结构－多分支语句SelectCase4.4选择结构－多分支语句SelectCase1.测试表达式只能是数值表达式或字符串表达式。2.表达式表与测

7、试表达式的类型必须相同。3.表达式表是一个或几个值的列表。表达式表的形式：类型形式示例单值一个表达式Case100多值一组用逗号分隔的枚举值Case2,4,6,8范围<表达式1>To<表达式2>Case1To10Case"a"To"e"Is<关系运算符><表达式>CaseIs>=20CaseIs<>"Y"混合用逗号分隔的混合表达式CaseIs>=40,1to104.4选择结构－多分支语句SelectCaseDimx,yAsIntegerSelectCasex’实现y=Sign(x)CaseIs>0y=1CaseIs=0y=0CaseIs

8、<0y=-1’CaseElse’y=-1EndSelect4.4选择结构－多分支语句SelectCaseDimx,yAsIntegerSelectCasex’实现y=Sign(x)CaseIs>0y=1Ca