电子教案·《Visual课件1.ppt

1、Visual Basic 语言程序设计2121世纪职业教育规划教材世纪职业教育规划教材目 录 第第1章章 Visual Basic概述概述 第第2章章 Visual Basic基本知识基本知识 第第3章章 分支和循环分支和循环 第第4章章 Visual Basic控件基础知识控件基础知识 第第5章章 创建应用程序界面创建应用程序界面 第第6章章 错误处理与调试错误处理与调试 第第7章章 数组数组 第第8章章 过程过程 第第9章章 文件文件第第1章章 Visual Basic概述概述1.1 Visual Basic1.1 Visual Basic简介简介 1 1什么是什么是Visual Basi

2、cVisual Basic Visual Basic是Microsoft公司于1991年推出的基于窗口的可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发Windows环境下的各类应用程序。Visual Basic具有以下两个两个主要的组件组件：Visual Basic提供了一个工具集-“控件”。Visual Basic提供了一个完整的程序命令集 第第1章章 Visual Basic概述概述1.1 Visual Basic1.1 Visual Basic简介简介 2 Visual Basic 6.0的三种版本 1 1）学习版）学习版：Visual Basic 6.0的基础

3、版本，适用于初学者。它包括所有的内部控件、选项卡和数据绑定控件。2 2）专业版）专业版：为专业编程人员提供了一整套功能完备的开发工具。它除了具有学习版的全部功能外，还包括Active和Internet控件开发等高级特性。3 3）企业版）企业版：Visual Basic 6.0的最高版本，使得专业编程人员能够开发功能强大的分布式应用程序。第第1章章 Visual Basic概述概述1.2 Visual Basic1.2 Visual Basic的基本概念的基本概念 1 1 事件：事件：程序对用户操作行为的响应称为事件。2 过程过程：响应某个事件后所执行的操作通过一段程序代码来实现，这样的一段程序

4、代码叫做事件过程。3 对象对象：Windows应用程序的基本元素。如窗体、控件等。4 窗体窗体：是 Visual Basic 应用程序的基本构造模块，是运行应用程序时，用户进行交互操作的窗口或对话框。5 控件控件：与用户交互的图标称为控件。6 属性属性：属性是一个对象的特性，定义了对象的外观或行为。7 方法方法：对象包含的特殊程序语句称为方法。第第1章章 Visual Basic概述概述1.3 Visual Basic程序的开发过程程序的开发过程 一般而言，VB程序的编写由以下几个步骤组成：1）设计用户界面。2）设置属性。3）编写代码。4）保存和运行调试程序，生成EXE文件。在VB中，程序被称

5、为工程。每一个VB工程至少由两个独立的文件一个工程文件(该文件的扩展名为.vbp)和一个窗体文件(该文件的扩展名为.frm)组成。第第1章章 Visual Basic概述概述1.4 Visual Basic1.4 Visual Basic编程环境编程环境 Visual Basic 6.0启动后，出现如图1-2所示的窗口。图1-2 VB6.0的启动界面第第1章章 Visual Basic概述概述1.4 Visual Basic1.4 Visual Basic编程环境编程环境 “新建工程”对话框中，有三个选项卡：1）新建新建：创建新的工程。其中列出了Visual Basic 6.0可以创建的所有工

6、程类型。2）现存现存：列出了所有已创建的工程，可以选择并打开它们。3）最新最新：列出了最近打开过的工程及其所在的文件夹。第第1章章 Visual Basic概述概述1.4 Visual Basic 1.4 Visual Basic 6.0集成开发环境 图1-3 VB6.0编程环境菜单栏工具箱工程容器标题栏工具栏窗体设计器立即窗口工程资源管理器属性窗口窗体布局第第1章章 Visual Basic概述概述1.4 Visual Basic1.4 Visual Basic编程环境编程环境 Visual Basic 6.0有三种工作模式：1）设计模式：可进行用户界面的设计和代码的编辑，以完成应用程序的开

7、发。2）运行模式：运行应用程序。此时不可编辑界面和代码。3）中断模式：暂时中断应用程序的运行。此时可以编辑代码，但是不能编辑界面。第第1章章 Visual Basic概述概述1.5 1.5 程序的打开、保存和运行程序的打开、保存和运行 1 1 打开一个已有的工程打开一个已有的工程 通过“文件”“打开工程”来定位一个工程。2 2 保存保存VBVB工程工程 首次保存一个新的Visual Basic工程，从“文件”菜单选择“工程另存为”项。保存一个已经保存但又经过更新的工程，在工具栏中单击“保存工程”按钮。3 运行运行VB工程工程 要运行一个Visual Basic工程，只需要单击工具栏上的“开始”

8、按钮，见图1-6，或者从“运行”菜单中选择“开始”菜单项，或单击F5键。保存工程 运行 暂停 结束图1-6 标准工具栏第第1章章 Visual Basic概述概述1.7 VB工程举例工程举例-创建一个计算圆面积的工程。首先首先打开Visual Basic，然后从“新建工程”菜单中选择“新建”标签，在“新建”标签中选择“标准 EXE”(如图1-2所示)。图1-2 VB6.0的启动界面第第1章章 Visual Basic概述概述1.7 VB工程举例工程举例-创建一个计算圆面积的工程。其次其次，在窗体设计窗口中放置必要的控件。这里在窗体上放置了两个标签、两个文本框、两个命令按钮，如图1-8所示。图1

9、-8 窗体设计窗口第第1章章 Visual Basic概述概述1.7 VB工程举例工程举例-创建一个计算圆面积的工程。选择控件的方法：1）单击工具栏中的控件图标，然后在窗体设计窗口中想要放置控件的位置处单击一下，最后拖动鼠标，直到得到想要得到的大小和形状。2）在工具栏中双击控件，控件被放置在窗体设计窗口的中间，然后将控件拖动到想要的位置上，通过移动它的边界或者是转角来调整控件的大小。第第1章章 Visual Basic概述概述1.7 VB工程举例工程举例-创建一个计算圆面积的工程。接下来定义界面上控件的属性。定义属性的过程实际上只需要修改部分属性的缺省值。最后一步定义事件过程。也就是写Visu

10、al Basic命令。图1-12 工程的完整事件过程第第2章章 Visual Basic基本知识基本知识2.1 基本数据类型2.2 变量2.3 数据类型及声明2.4 运算符和表达式2.5 显示输出Print语句2.6 库函数2.7 程序注释第第2章章 Visual Basic基本知识基本知识2.1 2.1 基本数据类型基本数据类型 1 数值常量:数值常量有(Integer整型)(不含小数点或指数的数)、Long(长整型)(相当于范围扩展了的整数)、Single(单精度)包含了小数点或指数)或者Double(双精度)(相当于范围扩展了的更精确的单精度实型数).例如:2字符串常量:是用双引号括起来

11、的一串字符。这些字符可以是除双引号“”和回车、换行符以外的所有字符。例如：“$12,345.00”、“vb”、“98765”。第第2章章 Visual Basic基本知识基本知识2.2 变量变量命名规则 以字母或汉字开头，后可跟汉字、字母、数字或下划线组成，长度小于等于255个字符；不要使用VB中的关键字；VB中不区分变量名的大小写.为了增加程序的可读性，可在变量名前加一个缩写的前缀来表明该变量的数据类型。(1)要见名知义。比如用sum（或s）代表求和。(2)尽可能简单明了。(3)不能用VB的关键字做变量名。(4)变量名不能与过程名和符号常量名相同。(5)尽量采用VB建议的变量名前缀或后缀的约

12、定来命名。如：intMax。(6)VB不区分变量名和其他名字中字母的大小写。为便于阅读，每个单词开头的字母一般用大写，例如PrintText。第第2章章 Visual Basic基本知识基本知识2.3 数据类型及声明 将变量与一定的数据类型相联系这个过程称为变量声明.声明变量的语句格式如下：Dim 变量名变量名1 As数据类型数据类型1，变量名，变量名2 As 数据类型数据类型2，例2.4下面是几个变量声明：Dim Counter as Integer Dim Area As Single Dim StudentName As String Dim StudentName As Strint*

13、20 第第2章章 Visual Basic基本知识基本知识2.3 数据类型及声明 1 Variant变量 变体型数据是一种可变的数据类型，可以存放任何类型的数据。在程序中不特别说明时，VB会自动将该变量默认为Variant型变量。2 符号常量 声明符号常量的语法为：Const 常量名常量名 As 数据类型数据类型=值值 例2.5下面是一些典型的符号常量声明：Const TW As Single=3.123456 Const Avogadro As Double=6.0225D+23 Const MaxCount As Integer=100第第2章章 Visual Basic基本知识基本知识2

14、.3 数据类型及声明 3 后缀后缀 不是明确声明一个数据类型(使用Dim或Const语句)，要通过增加一个字符后缀到变量或常量后，使变量和符号常量可以与某个数据类型相联系。较为常用的几个后缀如下：后缀后缀 数据类型数据类型%整型&长整型 !单精度型#双精度型$字符串型 货币型第第2章章 Visual Basic基本知识基本知识2.3 数据类型及声明 4 用户定义的数据类型 除了上述数据类型外，在VB中，用户可以根据需要利用Type语句定义自己的数据类型，其格式如下：Type 数据类型名 数据类型元素名 As 类型名 End Type 例例2.6定义一个有关职工信息的自定义类型：Type Cli

15、ent_Record cltName as String*16 cltPassword as String*8 cltDeposit as Currency End Type 第第2章章 Visual Basic基本知识基本知识2.4 运算符和表达式运算符和表达式1算术运算符 表2-1 标准算术运算符第第2章章 Visual Basic基本知识基本知识2.4 表达式表达式 1 表达式的组成 表达式由变量、常量、运算符、函数和圆括号按一定的规则组成，表达式的运算结果的类型由参与运算的数据类型和运算符共同决定。2 表达式的书写规则 1）每个符号占1格，所有符号都必须一个一个并排写在同一基准上，不能

16、出现上标和下标。2）不能按常规习惯省略乘号*，如：2x要写成2*x。3）只能使用小括号（），且必须配对。4）不能出现非法的字符，如。例例2.7下面给出几个算术表达式：2*j+k-1 2*(j+k-1)First+second-third (a2+b2)0.5 4*Pi*Radius3/3 (5/9)*(F-32)B2-(4*a*c)(2*x-3*y)/(u+v)第第2章章 Visual Basic基本知识基本知识2.4 表达式表达式 3 运算符的优先级 一个算术表达式中同时出现几个运算符时，由运算符的优先级来决定，并且在优先级相同时，运算符的执行还有一定的顺序。算术运算符优先级由高至低是：指数

17、运算()、负数()、乘法和除法(*、/)、整数除法()、求模运算(Mod)、加法和减法(+、)。在优先级相同时，运算符按从左至右的顺序执行。4 插入括号 例例2.10 假定我们求代数项的值：对于这个代数式Visual Basic表达式如下：(2*(a+b)2+(3*c)2)(m/(n+1)如果要按照某种特定的顺序来执行运算，可以引入额外的括号对。例如：(2*(a+b)2)+(3*c)2)(m/(n+1)122)3()(2nmcba第第2章章 Visual Basic基本知识基本知识2.4 表达式表达式 5 字符串表达式 字符串运算符有“&”和“+”两个，如表2-2所示 表2-2 字符连接运算符

18、 运算符 说明 示例 结果&连接两个字符串表达式 Micro&soft“Microsoft“+计算和，也可连接字符串 123+456“123456“&”和“+”两个字符连接运算符对于字符串连接功能是一样的，只是在使用“&”时，其左右两边必须加空格，而“+”两边无须输入空格，系统会自动留空；“+”两边必须是字符串，必要时得使用转换函数，而“&”两边连接的可以不是字符串，系统自动将其转换为字符串进行连接运算。第第2章章 Visual Basic基本知识基本知识2.4 表达式表达式 6 变量赋值变量赋值 变量赋值的作用是把指定的值赋给某个变量或某个对象的属性。一般格式为：变量（或变量（或 对象对象.

19、属性）属性）=表达式表达式 说明：（1）“=”为赋值号，不等于数学意义上的等号。（2）赋值语句具有赋值和计算的双重功能，即首先计算赋值号右边的源操作符的值，然后赋给左边的目标操作符。（3）目标操作符和源操作符应具有相同的数据类型。但不管表达式是什么类型，都可以赋给一个Variant变量。（4）如果复合语句（一行有多个语句）含有注释语句，则注释语句必定是最后一个语句。复合语句的各语句可以是任何合法的VB语句，但各语句之间必须用冒号隔开。第第2章章 Visual Basic基本知识基本知识2.5 显示输出显示输出Print语句语句 Print语句的作用是在当前活动窗体中显示信息，显示信息的位置从左

20、上角开始。Print语句由关键字Print组成，后面跟着一系列。输出项可以是数值常量、字符串常量或者表达式。连着的各项必须用逗号或分号隔开。逗号使数据项隔得较开，而分号隔得较近。空的Print语句输出空的一行。例例2.112.11一个Visual Basic程序包含以下的语句：Dim student as string，x as integer，c1 as single，c2 as single Student=“Tom”X=39 C1=7 C2=11 Print“Name:”，student，x，(c1+c2)/2 这个Print语句将产生如下的输出：Name:Tom 39 9第第2章章 V

21、isual Basic基本知识基本知识2.6 2.6 库函数库函数 Visual Basic包含大量的库函数，库函数提供了一个方便快捷的方法来实现许多数学操作、字符串操作以及各种逻辑操作。这些库函数是预先写好的程序，是整个程序设计语言不可缺少的一部分。在一个表达式或者语句中，它们可以出现在变量的位置上。常见函数类型如下：数学函数字符串函数日期和时间函数格式化函数 表2-3 常用数学函数函数说明实例结果Sin返回弧度的正弦Sin(1).841470984807897Cos返回弧度的余弦Cos(1).54030230586814Atn返回用弧度表示的反正切值Atn(1).7853981633974

22、48Tan返回弧度的正切Tan(1)1.5574077246549Abs返回数的绝对值Abs(-2.4)2.4Exp返回e的指定次幂Exp(1)2.71828182845905Log返回一个数值的自然对数Log(1)0Rnd返回小于1且大于或等于0的随机数Rnd01之间的随机数Sgn返回数的符号值Sgn(-100)-1Sqr返回数的平方根Sqr(16)4Int返回不大于给定数的最大整数Int(3.6)3Fix返回数的整数部分Fix(-3.6)-3表2-4 常用字符串函数 函 数说明实例结果Ltrim$(C)返回删除字符串左端空格后的字符串LTrim$(MyName)MyNameRtrim$(C

23、)返回删除字符串右端空格后的字符串RTrim$(MyName )MyNameTrim(C)返回删除字符串前后空格的字符串Trim$(MyName )MyNameLeft$(C,N)返回从字符串左边开始的指定数目的字符Left$(MyName,2)MyRight$(C,N)返回从字符串右端开始的指定数目的字符Right$(MyName,4)NameMid$(C,N1,N2)返回从字符串指定位置开始的指定数目的字符Mid$(MyName,2,3)yNaLen(C)返回字符串的字符数Len(MyName=王青)9LenB(C)返回字符串所占字节数LenB(MyName=王青)6Instr(N1,C1

24、,C2,M)返回字符串在给定的字符串中出现的开始位置InStr(7,ASDFDFDFSDSF,DF)7*InstrRev(C1,C2,N1,M)与Instr函数不同的是从字符串的尾部开始查找InStrRev(ASDFDFDFSDSF,DF,7)5Space$(N)返回由指定数目空格字符组成的字符串Space$(5)String$(N,C)返回包含一个字符重复指定次数的字符串String$(2,A)AALcase(C)字符串中字母转换为小写LCase(ABCabc)abcabcUcase(C)字符串中字母转换为大写LCase(ABCabc)ABCABC表2-5日期和时间函数函数说明实例结果Now

25、返回系统日期和时间(yy-mm-dd hh:mm:ss)Now2006-5-18*16:19:10*Date$()返回当前日期(yy-mm-dd)Date$()2001-5-18*DateSerial(Y,M,D)返回一个日期形式DateSerial(1,2,3)2001-2-3DateValue(C)返回一个日期形式，自变量为字符串DateValue(1,2,3)2001-2-3Day(C|N)返回月中第几天(131)Day(2002-3-5)5WeekDay(C|N)返回是星期几(17)WeekDay(2002-3-5)3(星期二)WeekDayName(C|N)返回星期代号（17）转换为

26、星期名称，星期日为1WeekDayName(3)星期二Month(C|N)返回一年中的某月(112)Month(2002-3-5)3Monthname(N)返回月份名Monthname(12)十二月Year(C|N)返回年份(yyyy)Year(2002-3-5)2002Hour(C|N)返回小时(023)Hour(Now)16*Minute(C|N)返回分钟(059)Minute(Now)31*Second(C|N)返回秒(059)Second(Now)42*Timer$()返回从午夜开始算起的秒数Timer59623.44*Time$()返回当前时间（hh:mm:ss）Time16:35:

27、35*TimeSerial(H,M,S)返回一个时间形式TimeSerial(1,2,3)1:02:03TimeValue(C)返回一个时间形式，自变量为字符串TimeValue(1:2:3)1:02:03*注：由当时系统时间定。表2-6 常用的数值型格式说明字符字符说明#数字占位符。显示一位数字或什么都不显示。如果表达式在格式字符串中#的位置上有数字存在，那么就显示出来，否则，该位置什么都不显示0数字占位符。显示一位数字或是零。如果表达式在格式字符串中0的位置上有一位数字存在，那么就显示出来，否则就以零显示.小数点占位符,千分位符号占位符%百分比符号占位符。表达式乘以100。而百分比字符（%

28、）会插入到格式字符串中出现的位置上$在数字前强加$+在数字前强加+-在数字前强加-E+用指数表示E-用指数表示2.7 程序注释程序注释 注释提供了一个方便的方法来为程序提供文档（也就是提供程序标题、标识重要的变量、区分程序各个主要的逻辑部分以及解释复杂的逻辑等等）。注释由单引号（）开始，单引号后面跟着文本信息。注释可以插在Visual Basic程序的任何部分，而且它们对程序的执行没有任何影响。注释语句的格式：Rem 注释内容注释内容 或或 注释内容注释内容例如：例如：Please Input Yourname!Rem 请输入你的姓名！请输入你的姓名！注释语句是非执行语句，不会被解释和编译。注

29、释语句不注释语句是非执行语句，不会被解释和编译。注释语句不能放在续行符的后面。能放在续行符的后面。第第3章章 分支和循环分支和循环3.1运算符与表达式3.2 IfThen分支语句3.3 IfThenElse分支语句3.4 Select Case多分支语句3.5 ForNext 循环结构3.6 DoLoop循环结构3.7 While-Wend循环结构3.8循环的嵌套3.9 Stop语句第第3章章 分支和循环分支和循环 无论是面向过程的程序设计还是面向对象的程序设计，都要求按照结构化程序设计的思想和方法进行代码编写工作。结构化程序是指运用基本控制结构编写的程序。基本控制结构有三种，即顺序结构，分支

30、控制结构和循环控制结构，本章重点讨论分支控制结构和循环控制结构的语法格式和用法。3.1 运算符与表达式 1 关系运算符和关系表达式 关系运算也称为比较运算，用来比较两个操作数的大小，通常用在程序的条件判断中。由操作数和关系运算符组成的表达式称为关系表达式，关系表达式的运算结果是一个逻辑值，即“真”和“假”，逻辑值也可以用符号常量Ture和False表示。另外，Visual Basic把任何非零的值都认为是逻辑值“真”，但一般以-1表示逻辑值“真”，以0表示逻辑值“假”。第第3章章 分支和循环分支和循环 3.1 运算符与表达式 1 关系运算符和关系表达式 关系运算符用来表示两个或多个值或表达式这

31、间的关系，一般使用语法为：exp1 op exp2exp1 op exp2 其中exp1、exp2是两个表达式，op是关系运算符。表达式通过比较运算符进行运算后，结果为Ture或False。例例3.1求下列关系表达式的值。x+2=10 当x=8时，表达式的结果为Ture(-1)，否则为False(0)100”A”结果为Ture(-1)第第3章章 分支和循环分支和循环 3.1 运算符与表达式 1 关系运算符和关系表达式 字符串数据按字符串数据按ASCIIASCII码、按字典顺序对各字符逐一进行比较码、按字典顺序对各字符逐一进行比较 。只。只有当两个字符串完全相同时，这两个字符串才完全相等。汉字字

32、符有当两个字符串完全相同时，这两个字符串才完全相等。汉字字符大于西文字符。大于西文字符。例例3.2 3.2 “ABCDE“”ABEFY”“ABCDE“”ABEFY”结果为结果为Ture(-1)Ture(-1)“asssdd”=“asseee”“asssdd”=“asseee”结果为结果为False(0)False(0)“ABC123”=“ABC123”“ABC123”=“ABC123”结果为结果为Ture(-1)Ture(-1)对单精度数或双精度数进行关系运算时，必须特别小心，因为机器对单精度数或双精度数进行关系运算时，必须特别小心，因为机器的运算误差，可能会得出非常接近但不相等的结果。例如：

33、的运算误差，可能会得出非常接近但不相等的结果。例如：1.0/3.0*3.0=1.0 第第3章章 分支和循环分支和循环 3.1 运算符与表达式 1 关系运算符和关系表达式 关系运算符的左右操作数一般要求类型相同。当类型不同时，Visual Basic 会按形式值进行转换后再比较。例3.3 176=“176”结果为Ture(-1)156=“abc”出现运行错误，类型不匹配 数学上判断x是否在区间a,b时，习惯上写成axb，但在Visual Basic中不能写成：a=x=b 应写成：a=x And x8 其值为False，而 Not(38)的值为Ture。And(And(与与)只有左右操作数的值都为

34、Ture时，运算结果才为Ture，否则结果为False。操作数通常为关系表达式。例例3.5 3.5 (38)And(59)结果为False 33 And 83 结果为False ab And False 不管a，b为何值，结果恒为False 第第3章章 分支和循环分支和循环 3.1 运算符与表达式 2 2 逻辑运算符和逻辑表达式逻辑运算符和逻辑表达式 Or(Or(或或)只有两个操作数都为False时，运算结果才为False。如果左右操作数其中一个为Ture，结果为Ture。例例3.6 3.6 38 Or 56 结果为Ture 49 Or 1=2 结果为Ture 54 Or 33 结果为Fals

35、e Ture Or x=y 不管x，y为何值，结果恒为Ture Xor(Xor(异或异或)当左右操作数相等，即都是Ture或者都是False时，运算结果为False，否则结果为Ture。例例3.7 3.7 83 Xor 52 Xor 82 Xor Ture 结果为False第第3章章 分支和循环分支和循环 3.1 运算符与表达式 2 2 逻辑运算符和逻辑表达式逻辑运算符和逻辑表达式 Eqv(Eqv(等价等价)当左右操作数相等，即都是Ture或者都是False时，运算结果为Ture，否则结果为False。例例3.83.8 38 Eqv 122 Eqv 82 Eqv Ture 结果为Ture Im

36、p(Imp(蕴含蕴含)当左操作数为Ture，右操作数为False时，运算结果为False，其它三种情况均为Ture。例如：52 Imp 72 Imp Ture 结果为 Ture 在进行逻辑运算时要注意各个逻辑运算符的优先级，逻辑运算符的优先级由高到低为：Not And Or Xor Eqv ImpNot And Or Xor Eqv Imp第第3章章 分支和循环分支和循环 3.2 IfThen分支语句 IfThen语句是最常用和比较简单的双分支语句。IfThenIfThen语句的语句的格式格式 格式1：If If Then Then 格式2：If If Then Then End If End

37、 If IfThen语句的功能是当“条件”的值为“真”时选择要执行的一条或多条语句，否则直接往下执行。IfThen语句的执行过程：(1)对于格式1，首先计算“条件”的值，若“条件”成立(为“真”)，则先执行本行中Then后边的语句，然后顺序往下执行。否则直接往下执行。(2)对于格式2，首先计算“条件”的值，若“条件”成立(为“真”)，则先执行If语句下边的语句块，然后执行End If后面的语句。否则直接执行End If后面的语句。第第3章章 分支和循环分支和循环 3.2 IfThen分支语句 例3.9编写程序，从键盘任意输入一个整数，计算该数的绝对值，然后输出。题目分析：该题需要进行单分支选择

38、。当输入的数是负数时，需要计算它的相反数，否则不进行任何计算。最后输出绝对值。该题的流程图如图3-2所示。此题可以通过IfThen语句来解决，根据流程图可以设计一个窗体From1的单击事件Click()来运行程序，代码如下：Private Sub Form_Click()Dim x As Single,y As Single x=InputBox(“请输入x的值”)y=x If x0 Then y=-y Print “x=”,x Print “y=”,y End Sub 该题的运行结果如图3-1所示。第第3章章 分支和循环分支和循环 3.2 IfThen分支语句 例3.9编写程序，从键盘任意输

39、入一个整数，计算该数的绝对值，然后输出。该题的运行结果如图3-1所示。图3-1 执行结果第第3章章 分支和循环分支和循环 3.3 IfThenElse分支语句分支语句 IfThenElseIfThenElse语句的格式语句的格式 格式1：If If Then Then Else Else 2 格式2：If If Then Then 1 Else Else 2 End If End If IfThenElse语句的功能是当“条件”为“真”时，选择要执行的一条或多条语句，否则选择另外的一条或多条语句执行。IfThenElse语句的执行过程：(1)对于格式1，首先计算“条件”的值，若“条件”成立(为

40、“真”)，则执行语句1，然后执行下一行的语句，否则执行语句2，然后再执行下一行的语句。(2)对于格式2，首先计算“条件”的值，若“条件”成立(为“真”)，则执行语句块1，然后执行End If下边的语句，否则执行语句块2，然后再执行End If下边的语句。第第3章章 分支和循环分支和循环 3.3 IfThenElse分支语句分支语句 例例3.113.11编写程序，计算某数学函数f(x),已知：f(x)=x3+2x2+3x+1，该函数定义在区间-2,1上，也就是说若x的取值大于1或小于2则提示该函数无意义，否则计算函数值并输出。题目分析：该题的首要任务是判断x的值是否在区间-2,1，若是则计算函数

41、值，否则提示无意义，这是一个两分支选择。表达式x1 or x-2 和x=-2都可以作为条件使用，但我们的重点是求函数值，当表达式x=-2的值为“真”时x刚好在区间-2,1内，所以我们选用表达式x=-2作为条件进行程序设计。此题可以通过IfThenElse语句的格式2来解决，设计一个命令按钮Command1的单击事件Click()来运行程序，代码如下：第第3章章 分支和循环分支和循环 3.3 IfThenElse分支语句分支语句 例例3.11编写程序，计算某数学函数f(x),已知：f(x)=x3+2x2+3x+1，该函数定义在区间-2,1上，也就是说若x的取值大于1或小于2则提示该函数无意义，否

42、则计算函数值并输出。此题可以通过IfThenElse语句的格式2来解决，设计一个命令按钮Command1的单击事件Click()来运行程序，代码如下：Private Sub Command1_Click()Dim x As Single,y As Single x=Val(Text1.Text)If x=-2 And x=1 Then y=x*x*x+2*x*x+3*x+1 Text2.Text=y Else Text2.Text=函数无意义 End If End Sub第第3章章 分支和循环分支和循环 3.3 IfThenElse3.3 IfThenElse分支语句分支语句 例例3.113.

43、11编写程序，计算某数学函数f(x),已知：f(x)=x3+2x2+3x+1，该函数定义在区间-2,1上，也就是说若x的取值大于1或小于2则提示该函数无意义，否则计算函数值并输出。该题的运行结果如图3-3所示。图3-3 运行结果第第3章章 分支和循环分支和循环 3.4 Select Case多分支语句多分支语句 如果要处理的问题需要从多个可能的方案中选择其中的一种，就要进行多分支选择，虽然用If语句的嵌套可以实现多分支选择，但是实现起来比较麻烦。所以，在Visual Basic 中，多分支选择通常用Select Case语句来实现。多分支选择结构的特点是：从多个选择结构中，选择第一个条件为真的

44、分支完成操作。1 Select Case语句的格式语句的格式 Select Case 测试条件测试条件 Case 表达式列表表达式列表1 语句块语句块1 Case 表达式列表表达式列表2 语句块语句块2 Case 表达式列表表达式列表n 语句块语句块n Case Else 语句块语句块n+1 End Select第第3章章 分支和循环分支和循环 3.4 Select Case多分支语句多分支语句 Select Case语句的功能是根据测试条件的值，在一组相互独立的可选语句序列中挑选要执行的语句序列。Select Case语句的执行过程：首先计算“测试条件”的值，然后从上到下，从左到右依次检查该

45、值与哪一个Case子句中的“表达式列表”相匹配，如果找到了，则执行该Case子句下面的语句块，然后执行End Select 之后的语句；如果所有的“表达式列表”均不符合要求，则执行Case Else下面的语句块，然后执行End Select 之后的语句，若此时语句中不含有Case Else子句，则什么都不执行，直接转去执行End Select 之后的语句。第第3章章 分支和循环分支和循环 3.4 Select Case多分支语句多分支语句 例例3.133.13某航空公司规定在旅游的旺季(79)月份，如果订票数超过20张，票价优惠15%，20张以下，优惠5%；在旅游的淡季(15)月份、10月份、

46、11月份，如果订票数超过20张，票价优惠30%，20张以下，优惠20%；其它情况一律优惠10%。请设计程序，根据月份和订票张数决定票价的优惠率。题目分析：设月份为m，张数为n。设计一个命令按钮Command1的单击事件Click()来运行程序，代码如下：第第3章章 分支和循环分支和循环 3.4 Select Case多分支语句多分支语句 例例3.133.13 Private Sub Command1_Click()Dim m As Integer,n As Integer,r As Integer m=Val(Text1.Text)n=Val(Text2.Text)Select Case m

47、Case Is=5,10,11 If n 20 Then r=20 Else r=30 Case 7 To 9 If n=7000000000#p=p*(1+r)n=n+1 Loop Print Print n;年后世界人口达到：Print ;p/100000000;亿 End Sub第第3章章 分支和循环分支和循环 3.6 DoLoop3.6 DoLoop循环结构循环结构 例例3.163.16目前世界人口约为60亿，如果以每年1.4%的速度增长，多少年后世界人口达到或超过70亿。请编写程序。该题的运行结果如图3-8所示。图3-8 运行结果第第3章章 分支和循环分支和循环 3.7 While-

48、Wend3.7 While-Wend循环结构循环结构 While-Wend语句的格式 While 循环体 Wend While-Wend语句(又称当循环语句)根据某一条件进行判断，决定是否执行循环体。当条件的值为“真”时，重复执行循环体，否则退出循环。首先计算“条件”的值，如果“条件”为“真”，则执行“循环体”，当遇到Wend语句时，控制返回到While语句并对“条件”重新进行测试，如果仍为“真”，则重复上述过程；如果“条件”为“假”，则不再执行“循环体”，而执行Wend后面的语句。使用While-Wend语句时要特别注意的是，“循环体”中一定要有使“条件”由“真”变为“假”的语句，否则就有可

49、能出现死循环。第第3章章 分支和循环分支和循环 3.7 While-Wend3.7 While-Wend循环结构循环结构 例例3.183.18从键盘上输入一串字符，以“？”结束，并对输入字符中的字母个数和数字个数进行统计。题目分析：由于输入的字符个数没有指定，无法用For循环语句来编写程序。停止计数的条件是输入的字符为“？”，可以用当循环语句来实现。在程序中，用变量ch接收键盘输入的字符，变量num1，num2分别用于统计字母、数字的个数。设计一个窗体Form1的单击事件Click()来运行程序，代码如下：第第3章章 分支和循环分支和循环 3.7 While-Wend3.7 While-Wen

50、d循环结构循环结构 例例3.183.18从键盘上输入一串字符，以“？”结束，并对输入字符中的字母个数和数字个数进行统计。Private Sub Form_Click()Dim ch$,num1%,num2%num1=0 num2=0 ch=InputBox(请输入一个字符：,输入)Print 输入的字符串为：;While ch?Print ch;If ch=a And ch=A And ch=0 And ch=9 Then num2=num2+1 End If ch=InputBox(请输入一个字符：,输入)Wend Print Print 字母的总数为：;num1 Print 数字的总数为：