VisualBasic程序设计简明教程.ppt

1,21世纪高等院校规划教材Visual Basic程序设计简明教程,王晓东主编,2,第1章 概述,本章内容：程序设计语言 VB语言的特点 VB程序的开发环境 简单的VB程序介绍,Visual Basic程序设计简明教程,3,1.1 程序设计语言,关于程序：程序：是一组有序指令的集合，由某种程序设计语言编写而成。程序设计语言：是人与计算机之间进行交流的工具。,Visual Basic程序设计简明教程,4,1.1 程序设计语言 面向机器的程序设计语言,机器语言是计算机能够直接执行的二进制指令代码，每条指令都用0和1组成的序列串表示，这些指令的集合就是指令系统。汇编语言主要由汇编指令构成，这些汇编指令与机器语言的二进制指令一一对应。,机器语言和汇编语言都是面向机器的程序设计语言，它们与计算机的硬件紧密相关。,Visual Basic程序设计简明教程,5,1.1 程序设计语言 面向过程的程序设计语言,FORTRAN语言和随后出现的BASIC语言、Pascal语言、COBOL语言以及C语言等等，都被称为高级语言。程序员在使用高级语言编写程序时，不需要熟悉计算机的指令系统，可以将精力集中于解题思路和方法上。计算机不能直接执行高级语言程序，必须先翻译成为机器语言程序之后才能执行。,Visual Basic程序设计简明教程,6,1.1 程序设计语言 面向对象的程序设计语言,面向对象的程序设计方法力求符合人们自然的思维习惯，运用类和对象的观点描述问题域，然后用程序设计语言对问题进行描述和实现。面向对象的程序设计语言大致可以分为两类，一类是纯面向对象语言，例如Eiffel语言和Java语言；另一类是混合型面向对象语言，它们往往是由面向过程的语言发展而来的，例如C+语言和Visual Basic语言。,返回,Visual Basic程序设计简明教程,7,1.2 VB语言的特点,VB语言的发展概况：Visual Basic语言（简称VB）是微软公司推出的基于Windows环境的应用软件开发工具，其语法基础是Basic语言。微软公司于1991年推出VB 1.0版，历经数年的更新换代，1998年升级为VB 6.0版，并有学习版、专业版和企业版等3种版本。,Visual Basic程序设计简明教程,8,VB语言的特点,可视化的程序设计方法 结构化的程序设计语言 事件驱动的编程机制 数据库访问 良好的可扩充性,返回,Visual Basic程序设计简明教程,9,1.3 VB程序的开发环境,VB6.0的启动：在“开始”菜单中的“程序”菜单项中，选择“Microsoft Visual Studio 6.0”级联菜单中的“Microsoft Visual Basic 6.0”命令，即可启动VB 6.0。首先弹出“新建工程”对话框，其中列出了VB 6.0能够创建的工程类型。系统默认的工程类型是“标准EXE”。,Visual Basic程序设计简明教程,10,Visual Basic 6.0项目类型,（1）标准EXE项目（2）ActiveX DLL项目（3）ActiveX EXE项目（4）ActiveX 控件项目（5）ActiveX 文档项目（6）DHTML 应用程序项目（7）IIS 应用程序项目,Visual Basic程序设计简明教程,11,新建工程：,图1-1“新建工程”对话框,Visual Basic程序设计简明教程,12,Visual Basic 6.0 集成开发环境,图1-2 Visual Basic 6.0集成开发环境,Visual Basic程序设计简明教程,13,菜单组成：,“文件”菜单“编辑”菜单“视图”菜单“工程”菜单“格式”菜单“调试”菜单“运行”菜单“工具”菜单“外接程序”菜单,“文件”菜单：,（1）新建工程（2）打开工程（3）添加工程（4）移除工程（5）保存工程（6）工程另存为（7）保存文件（8）文件另存为（9）生成工程,Visual Basic程序设计简明教程,14,图1-3“文件”菜单,文件菜单,“编辑”菜单：“编辑”菜单用于编辑操作，以方便对工程进行修改。,图1-4“编辑”菜单,Visual Basic程序设计简明教程,15,“视图”菜单,“视图”菜单用于显示各种窗口,图1-5 视图菜单栏,“工程”菜单,“工程”菜单用于为当前工程创建模块、引用对象或提供各种设计器。,图1-6 工程菜单栏,Visual Basic程序设计简明教程,16,“格式”菜单,“格式”菜单用于界面设计，可以使得界面中的控件按照一定的规则有序排列。,图1-7 格式菜单栏,“调试”菜单,“调试”菜单用于调试、监视程序。,图1-8 调试菜单栏,Visual Basic程序设计简明教程,17,“运行”菜单,“运行”菜单用于执行程序。,图1-9 运行菜单栏,“工具”菜单,图1-10 工具菜单栏,Visual Basic程序设计简明教程,18,“外接程序”菜单,图1-11 外接程序菜单栏,工具栏：,图1-12 选取工具栏,Visual Basic程序设计简明教程,19,表1-1 标准工具栏上的图标按钮,Visual Basic程序设计简明教程,20,续表1-1 标准工具栏上的图标按钮,返回,Visual Basic程序设计简明教程,21,1.4 简单的VB程序介绍,建立VB应用程序的方法：创建一个工程为窗体添加对象设置对象属性编写代码 运行工程 调试工程 保存工程,Visual Basic程序设计简明教程,22,控件的画法：,l单击工具箱中的控件按钮，在窗体编辑区拖动鼠标画出对应的控件。l双击工具箱中的控件按钮，即可自动在窗体中央画出对应的控件，再拖动到适当位置。l按住Ctrl键，单击工具箱中的控件按钮，松开Ctrl键，在窗体编辑区拖动鼠标可画出多个对应的控件。画完之后单击工具箱中的其他控件。,Visual Basic程序设计简明教程,23,程序的执行：,编译运行解释运行VB的三种工作模式:设计、运行、和中断。生成可执行文件(EXE)，可以在Windows环境下直接运行。,Visual Basic程序设计简明教程,24,可视化程序设计的概念：,对象（Object）对象的属性（Property）对象的方法（Method）对象事件（Event）事件过程,Visual Basic程序设计简明教程,25,对象：,对象是实体或者事物的抽象表示。对象由属性和方法组成，属性描述对象的特征，方法是对象所能够执行的操作。,Visual Basic程序设计简明教程,26,事件：,事件是由系统预先设置的，能够被对象识别和响应的动作。事件通常由用户触发，例如鼠标单击、键盘输入等等；有时也可以由系统触发，例如定时器产生定时信号。不同类的对象能够识别的事件有所不同。,Visual Basic程序设计简明教程,27,事件过程：,事件过程是一个相对独立的代码段，一旦触发某个事件并被对象识别之后，就会自动执行。为了使程序中的某个对象在识别了一个特定事件之后，能够按照程序员的意图进行正确的响应，就必须针对这个特定事件，为该对象编写相应的事件过程。,返回,28,第2章 VB语言基础,本章内容：数据类型 常量与变量 运算符与表达式 语句 窗体,Visual Basic程序设计简明教程,29,2.1 数据类型,计算机中的数据是现实世界中信息的具体表现形式，它有一定的数据类型，数据类型确定了数据的取值范围和能够进行的操作。在计算机的存储器中，不同类型的数据所占存储空间的长度也有所不同。,Visual Basic程序设计简明教程,30,VB 语言的数据类型,Visual Basic程序设计简明教程,31,标识符,（1）关键字关键字又称保留字，是VB语言预先规定的具有固定含义的一些单词。（2）标识符 标识符的命名规则是，以字母开始，由字母、下划线和数字组成。标识符不能与关键字同名。在标识符中并不区分字母的大小写。,返回,Visual Basic程序设计简明教程,32,2.2 常量与变量,常量是指在程序执行期间其值不发生变化的量，变量的字面含义是指在程序执行期间其值可以变化的量，实际上对应了内存的一段存储空间。常量有不同的数据类型，它可以分为直接常量和符号常量。,Visual Basic程序设计简明教程,33,2.2.1 常量整型常量,（1）十进制整数。（2）八进制整数，以&或者&O作为前缀。（3）十六进制整数，以&H作为前缀。如果在一个整型数据的尾部附上&，则表示长整型常量。,Visual Basic程序设计简明教程,34,2.2.1 常量实型常量,（1）定点形式，由数字和小数点组成。（2）指数形式，由尾数、指数符号（E）和指数组成。尾数不能省略，指数是整数。如果在一个实型数据的尾部附上#，或者用指数符号（D）代替指数符号（E），则表示双精度型常量。,Visual Basic程序设计简明教程,35,2.2.1 常量字符型常量,字符型常量又称为字符串，是由一对双引号括起来的字符序列，例如“CHINA”、“Mp3”和“集结号”等等。字符串的长度是指字符串中字符的个数，“”是空串，表示不包含任何字符，长度为0。VB采用Unicode编码，用两个字节表示一个字符，每一个字符对应一个Unicode码，汉字也有自己的Unicode码。,Visual Basic程序设计简明教程,36,2.2.1 常量逻辑型常量,逻辑型常量只有True和False两个值，分别表示“真”和“假”。,2.2.1 常量日期型常量,l日期型常量由一对“#”括起来，表示日期和时间。l标准格式：#月/日/年 时/分/秒 AM|PM#,Visual Basic程序设计简明教程,37,2.2.1 常量符号常量,定义符号常量的一般格式为：Const 符号常量As 类型=表达式例如：Const PI As Single=3.14159 VB提供了很多符号常量，它们均以vb开头，程序员可以在程序中直接使用。,Visual Basic程序设计简明教程,38,2.2.2 变量,变量代表了内存中某一段存储空间，其中可以存放数据即变量的值，存储空间的大小则由变量的数据类型来决定。变量有名字，程序员在程序中可以通过变量名访问变量所对应的内存空间。变量的取值范围是有限的，而且其所占内存的字节数越多，相应的取值范围就越大。,Visual Basic程序设计简明教程,39,VB基本类型的变量,Visual Basic程序设计简明教程,40,变量定义语句,Dim 变量1 As 类型,变量2 As 类型,例如：Dim a As Integer,b As Single,c As String 如果定义变量时在其尾部附上类型符，则可以省略类型说明部分。Dim a%,b!,c$,Visual Basic程序设计简明教程,41,字符串变量,字符串变量一般能够存放不固定长度的字符串，也可以在程序中定义定长的字符串变量。例如：Dim s As String*20 如果变量未经定义而直接使用，或者在定义时没有进行类型说明，则系统默认该变量为变体型（Variant）。,返回,Visual Basic程序设计简明教程,42,2.3 运算符与表达式,运算符用于对数据进行运算，被运算的数据称为操作数。表达式描述对哪些数据以什么顺序施以什么样的操作，它由运算符和操作数组成。操作数既可以是常量，也可以是变量，还可以是函数调用。,Visual Basic程序设计简明教程,43,2.3 运算符与表达式算术表达式,Visual Basic程序设计简明教程,44,说明：,整除（）运算是取整数相除的商，取余（Mod）运算是取整数相除的余数。除（/）与整除（）不同，它是针对实数的除法运算。指数（）运算的幂次既可以是整数，也可以是实数。,Visual Basic程序设计简明教程,45,算术运算的数据类型,如果参加算术运算的操作数具有不同的数据类型，为保证数据运算的精度，VB规定运算结果的数据类型以高类型为准。所谓高类型，是指其所占内存的字节数较多。例如Integer型数据和Double型数据进行运算，则运算结果的数据类型为Double型。,Visual Basic程序设计简明教程,46,2.3 运算符与表达式字符串表达式,连接运算符（&）用来连接两个字符串，它的优先级低于算术运算符。加（+）也可以用来连接字符串，例如字符串表达式“Visual”+“Basic”的值是“Visual Basic”。,Visual Basic程序设计简明教程,47,字符串连接运算符的比较,Visual Basic程序设计简明教程,48,2.3 运算符与表达式日期表达式,（1）两个日期型数据相减，结果是一个数值，表示两个日期之间相差的天数。（2）一个日期型数据与一个数值相加或者相减，结果是一个日期型数据，表示向后或者向前推算日期。例如#5/3/2008#-#4/29/2008#的值是4，#5/3/2008#+5的值是#5/8/2008#。,返回,Visual Basic程序设计简明教程,49,2.4 语句,语句是构成VB程序的最小单位，程序中的语句经过编译之后，生成了若干条机器指令。根据这些指令，计算机系统就能够完成运算操作，或者实现对操作流程的控制。,Visual Basic程序设计简明教程,50,2.4 语句书写规则,1注释（1）使用单引号（）引导，一般出现在一条语句的后面。（2）使用Rem引导，必须单独一行。2续行 续行符（_）的写法是空格紧跟下划线，它只能出现在一行的末尾。3语句分隔 用冒号（:）把几条语句分隔，然后写在同一行。,Visual Basic程序设计简明教程,51,2.4 语句赋值语句,变量|对象.属性=表达式（1）=是赋值运算符，它需要两个操作数，优先级最低。（2）赋值运算符的右操作数通常是算术表达式、字符串表达式和函数调用表达式，左操作数是变量或者对象的属性。（3）执行赋值语句时，首先计算赋值运算符右边的表达式，然后把值赋给左边的变量或者对象的属性。,Visual Basic程序设计简明教程,52,赋值语句的作用,保存数据运算的结果。v=4/3*3.14*r 3 计算球的体积在程序中修改对象的属性值。Text1.BackColor=vbRed,Visual Basic程序设计简明教程,53,函数调用表达式,一般形式为：函数名(参数列表)VB语言提供了大量的内部函数，它们能够完成一些预先设定好的功能，诸如计算数学函数值、字符串处理以及类型转换等等。例如：Dim a As Integer a=Val(123abc),Visual Basic程序设计简明教程,54,2.4 语句流程控制语句,流程控制语句并不参与对数据的操作，而是控制程序执行的流程。它可以分为两类：一类是流程结构语句，另一类是流程转向语句。End语句End语句的功能是立即结束程序的执行。,返回,Visual Basic程序设计简明教程,55,2.5 窗体,窗体（Form）是VB程序的重要对象，也是所有控件的容器。程序的每一个窗体都是VB工程中的一个模块，并单独保存在一个窗体文件（.frm）中。在程序运行时，每一个窗体对应于一个具有Windows风格的窗口。如右图所示：,Visual Basic程序设计简明教程,56,窗体的常用属性,Visual Basic程序设计简明教程,57,说明：,Name是所有控件都具有的属性，其属性值就是控件对象在程序中的对象名。程序第一个窗体的默认对象名是Form1。窗体的高度、宽度以及距离等属性值的单位是Twip，1英寸=1440Twip。,Visual Basic程序设计简明教程,58,窗体的常用事件,Visual Basic程序设计简明教程,59,说明：,装入窗体时会自动触发Load事件，因此可以在窗体的Load事件过程中对控件对象和变量进行初始化。Activate 事件和DeActivate事件往往发生在拥有多个窗体的VB程序中。,Visual Basic程序设计简明教程,60,窗体的常用方法,Visual Basic程序设计简明教程,61,说明：,方法的调用形式：对象.方法 参数列表Print方法不仅用于窗体，而且也可以用于图片框和打印机等其它对象。装入窗体并不表示一定会自动显示，需要调用Show方法显示窗体。Move方法的调用形式：对象.Move left,top,width,height,返回,62,第3章 顺序结构,本章内容：数据输入 数据输出 标签 文本框 命令按钮 程序举例,Visual Basic程序设计简明教程,63,3.1 数据输入,VB程序的执行则采用事件驱动机制，由用户或者系统触发某个事件去执行相应的事件过程。尽管事件处理过程之间并无特定的执行顺序，但是每个事件过程的内部却依然包含着顺序、选择和循环三种基本控制结构。顺序结构是结构化程序设计中最基本的控制结构之一，其语句按照书写的顺序依次逐条执行。,Visual Basic程序设计简明教程,64,3.1 数据输入InputBox函数,调用InputBox函数时，系统将弹出一个输入对话框。InputBox函数的格式：InputBox(Prompt,Title,Default,)说明：（1）InputBox函数返回一个字符串，该字符串就是用户在对话框中输入的数据。（2）参数Prompt是必选项，它是一个字符串，用于提示用户当前应输入哪些数据。（3）Title和Default这两个参数均为可选项，前者作为对话框的标题，后者作为对话框的默认输入内容。（4）如果位于参数列表中间的可选项参数被省略，则必须用逗号标示这些被省略的参数。,Visual Basic程序设计简明教程,65,举例：,Dim name As String,score As Integername=InputBox(“请输入学生的姓名”,“姓名输入”)省略了默认值score=Val(InputBox(请输入学生的成绩,80)省略了标题,Visual Basic程序设计简明教程,66,3.1 数据输入文本框控件,用户可以在文本框控件中输入数据，然后在程序中通过赋值语句把它赋给某个变量。一般形式：变量=文本框对象.text举例：Dim name As String,score As Integer name=Text1.text 输入学生的姓名 score=Val(Text2.text)输入学生的成绩,返回,Visual Basic程序设计简明教程,67,3.2 数据输出标签控件,一般形式：标签对象.caption=表达式 Label1.caption=name 输出学生的姓名Label2.caption=Str(score)输出学生的成绩。,3.2 数据输出文本框控件,一般形式：文本框对象.text=表达式 Text1.text=name 输出学生的姓名 Text2.text=Str(score)输出学生的成绩文本框控件既可以用于输入数据，也可以用于输出数据，这取决于控件对象是作为赋值运算符的左操作数还是右操作数。,Visual Basic程序设计简明教程,68,3.2 数据输出 MsgBox函数,l调用MsgBox函数时，系统将弹出一个消息对话框，该对话框能够显示一些提示性的信息，并接收用户做出的选择。MsgBox函数的格式：MsgBox(Prompt,Buttons,Title,),Visual Basic程序设计简明教程,69,说明：,（1）参数Prompt是必选项，它是一个字符串，可以作为输出的数据。（2）参数Buttons和参数Title均为可选项，前者是一个整型表达式，确定了消息对话框的类型；后者作为对话框的标题。Buttons的默认值是vbOKOnly，实际设置时可以由4个分组值相加而成。例如弹出一个采用应用模式的消息对话框，显示“终止”、“重试”和“忽略”按钮，图标为严重错误信息，默认是第一个按钮，Buttons的值可以写为2+16+0+0，也可以直接写为18。（3）MsgBox函数返回一个整数，该整数代表用户在对话框中选中的按钮。如果在函数调用时只给出第一个参数（Prompt）的值，就不必使用赋值语句；如果明确给出了其它参数的值，则必须用赋值语句把函数的返回值予以保存。,Visual Basic程序设计简明教程,70,举例：,Dim name As String,score As Integername=宋开莉score=80MsgBox(学生姓名：&name&vbCr&学生成绩：&score),Visual Basic程序设计简明教程,71,3.2 数据输出 Print方法,Print的功能是在对象上输出信息，其中对象可以是窗体、图片框、立即窗口和打印机。Print方法的格式：对象.Print 表达式列表;|,Visual Basic程序设计简明教程,72,说明：,（1）调用Print方法时如果未给出对象名，则默认对象是窗体。（2）表达式列表是可选项，如果省略则输出一个空行。Print输出信息之后通常将会自动换行，如果语句末尾有分号（;）或者逗号（,），则表示不换行。（3）表达式列表中可以有多个表达式，表达式之间用空格、分号或者逗号分隔，其中空格和分号的效果相同。如果是数值表达式，就输出它的值；如果是字符串，则原样输出。（4）如果用分号（;）分隔表达式，按照紧凑格式输出数据；如果用逗号（,）分隔表达式，按照标准格式输出数据，此时当前数据项在下一个输出区中显示。,Visual Basic程序设计简明教程,73,举例：,Dim name As String,score As Integer name=宋开莉 score=80 Print 学生姓名：;不换行 Print name Print 学生成绩：;score,Visual Basic程序设计简明教程,74,相关函数：,1Spc函数 Spc函数的功能是在当前输出位置插入指定数量的空格，其格式是：Spc(n)2Tab函数 Tab函数的功能是将当前输出位置定位至指定的地方，其格式是：Tab(n)Dim name As String,score As Integer name=宋开莉 score=80 Print 学生姓名：;Print Spc(5);name Print 学生成绩：;Tab(15);score,Visual Basic程序设计简明教程,75,相关函数：,3.Format函数Format函数一般用于Print方法中，可以使得数值、字符串或者日期按指定的格式输出。Format函数的格式：Format(表达式,格式字符串)Print Format(3.14159,00.000)输出结果为03.142Print Format(3.14159,#.#E+#)输出结果为31.416E-1,返回,Visual Basic程序设计简明教程,76,3.3 标签,标签（Label）控件能够显示一些用户无法直接更改的文本信息，它通常作为一种辅助性的控件，用来标注那些自身不具备Caption属性的控件。在工具箱中表示为：,标签的常用属性,Visual Basic程序设计简明教程,77,说明：,（1）程序第一个标签控件的默认对象名是Label1，依次类推。（2）Caption是标签控件最重要的属性之一，其属性值是一个字符串，即显示的文本，最多允许有1024个字符。,返回,Visual Basic程序设计简明教程,78,3.4 文本框,文本框（TextBox）控件是一种常用的标准控件，兼备数据输入和输出的功能，还提供了插入、选择以及复制等文本编辑手段。在工具箱中表示为：,文本框的常用属性,Visual Basic程序设计简明教程,79,说明：,（1）程序第一个文本框控件的默认对象名是Text1，依次类推。（2）Text是文本框控件最重要的属性之一，其属性值是一个字符串，即显示的文本。只允许输入单行文本时，最多可以有2048个字符；如果允许输入多行文本，则最多可以有32K个字符。,Visual Basic程序设计简明教程,80,文本框的常用事件：,Visual Basic程序设计简明教程,81,说明：,（1）当用户在文本框中输入新内容，或者程序运行时修改了Text属性值，都会自动触发Change事件。（2）只有对象的Enabled和Visible的属性值是True时，它才有获得焦点的能力。在程序运行时，用户可以通过鼠标单击或者按Tab键切换，使某个控件获得焦点。（3）当用户按下并且释放键盘上的一个键，将会触发焦点所在控件的KeyPress事件。该事件返回所输入字符的Unicode码，在程序中加以判断，就会识别出用户刚才按下了哪个键。,Visual Basic程序设计简明教程,82,例3.1：在文本框中输入密码，然后单击窗体，在标签中显示该密码。,完成步骤：新建一个工程，在窗体上分别创建2个标签、1个文本框和1个命令按钮。在属性窗口中对窗体和控件的属性进行设置。文本框的PasswordChar属性值设置为“*”，表示输入的字符都显示为“*”；标签Label2的BorderStyle属性值设置为1，表示该标签有边框。,Visual Basic程序设计简明教程,83,Private Sub Form_Click()Label2.Caption=您输入的密码是：+Text1.TextEnd SubPrivate Sub Command1_Click()EndEnd Sub,代码及实现结果：,返回,Visual Basic程序设计简明教程,84,3.5 命令按钮,命令按钮（CommandButton）控件通常用来接受用户的操作命令，一般通过单击命令按钮来触发事件过程，执行指定的操作，从而实现特定的功能。在工具箱中表示为：,命令按钮的常用属性,Visual Basic程序设计简明教程,85,说明：,（1）程序第一个命令按钮控件的默认对象名是Command1，依次类推。（2）设置Caption属性时，在标题的某个字母前插入一个连接符（&），即可为命令按钮设置快捷键。（3）当某个命令按钮的Default属性值为True时，按下Enter键就相当于用鼠标单击了该按钮；当某个命令按钮的Cancel属性值为True时，按下Esc键就相当于用鼠标单击了该按钮。（4）当某个命令按钮的Enabled属性值是False时，它就会失效并呈灰色，此时既不能接受用户的操作命令，也不能响应事件。当某个命令按钮的Visible属性值是False时，它在程序运行时将不会显示在窗体中。（5）当Style属性值是1时，表示在命令按钮上可以显示图形。此时即可在Picture属性中选择图片文件，程序运行时该命令按钮就会成为图形按钮。,返回,Visual Basic程序设计简明教程,86,3.6 程序举例例3.2：输入3位学生的成 绩，求其平均值。,新建一个工程，在窗体上分别创建1个标签、1个文本框和2个命令按钮，并设置属性值。代码：Private Sub Command1_Click()Dim num1 As Integer,num2 As Integer,num3 As Integer,aver As Singlenum1=Val(InputBox(请输入第1位学生的成绩)num2=Val(InputBox(请输入第2位学生的成绩)num3=Val(InputBox(请输入第3位学生的成绩)aver=(num1+num2+num3)/3Text1.Text=averEnd SubPrivate Sub Command2_Click()EndEnd Sub,Visual Basic程序设计简明教程,87,例3.4：,1、交换两个整型变量的值。2、在窗体上分别创建3个标签、2个文本框和3个命令按钮，并设置属性值。,Private Sub Command1_Click()Dim a%,b%,t As Integera=Val(Text1.Text)b=Val(Text2.Text)t=aa=bb=tLabel3.Caption=交换后Text1.Text=aText2.Text=bEnd SubPrivate Sub Command2_Click()Label3.Caption=交换前Text1.Text=Text2.Text=End SubPrivate Sub Command3_Click()EndEnd Sub,返回,88,第4章 选择结构,本章内容：关系表达式 逻辑表达式 If语句 Select Case语句 框架 单选按钮 复选框,Visual Basic程序设计简明教程,89,4.1 关系表达式,在程序中经常需要描述数据之间的关系并进行判断，从而决定下一步应执行什么动作。关系运算符可以用来构建关系表达式，以描述和比较两个数据之间的大小关系。,Visual Basic程序设计简明教程,90,4.1.1 关系运算符,VB语言提供了6个常用的关系运算符：、=、（不等于），它们都是双目运算符，优先级彼此相同。关系运算的结果显然是逻辑值，即关系成立为True，否则为False。,Visual Basic程序设计简明教程,91,说明：,（1）关系运算符的操作数可以是数值、字符串或者日期型数据。一般要求两边的操作数类型一致。（2）两个字符串按词典序进行比较，即都从各自的第一个字符开始，相应位置的字符依次按Unicode码比较大小，直到出现不同的字符或者字符串结束为止。VB语言规定逻辑值转换为数值时，-1代表True，0代表False。,Visual Basic程序设计简明教程,92,4.1.2 关系表达式,用关系运算符连接起来进行关系运算的式子，称为关系表达式。如：Dim a%,b%,c%a=7:b=6:c=5 a*2=b+c abc 2=2=2,Visual Basic程序设计简明教程,93,4.2 逻辑表达式,关系表达式可以用来构造一些简单的条件，但是还不足以构造复杂的条件。这些条件是由一些子条件复合而成的，表达了一种逻辑关系，无法用关系表达式完成，需要用逻辑表达式构造。例如不仅任意两边之和大于第三边，而且其中的两边相等，才能构成等腰三角形。,Visual Basic程序设计简明教程,94,4.2.1 逻辑运算符,VB语言提供了3个常用的逻辑运算符：Not、And和Or，分别表示逻辑非、逻辑与和逻辑或运算。逻辑运算的结果当然为逻辑值：True（真）或者False（假）。Not是单目运算符，其余两种是双目运算符。Not的优先级最高，其次是And，最低为Or。,Visual Basic程序设计简明教程,95,逻辑运算规则表：,Visual Basic程序设计简明教程,96,4.2.2 逻辑表达式,l用逻辑运算符将表达式连接起来的式子称为逻辑表达式。例如：Dim a%,b%,c%a=7:b=6:c=5 a=b And bc Not a=ba=b的值为False，表达式的值为True,Visual Basic程序设计简明教程,97,运算符的优先级顺序：,运算符：,Visual Basic程序设计简明教程,98,计算表达式的结果：3 Mod 5=3 And 132 Or Not 2=1,计算步骤：1）先计算3 Mod 5，值为3。2）再计算3=3，值为True。3）计算32，值为1。4）计算11，值为False。5）然后计算True And False，值为False。6）计算2=1，值为False。7）计算Not False，值为True。8）最后计算False Or True，值为True。整个表达式的结果为True。,Visual Basic程序设计简明教程,99,举例：,（1）描述321这种数学常识。32 And 21（2）描述字符串变量c的值是小写字母。c=“a”And c=“z”（3）描述m是n的倍数。m Mod n=0,Visual Basic程序设计简明教程,100,4.3 If语句If-Else结构,If 表达式 Then 语句块1 Else 语句块2 End If,Visual Basic程序设计简明教程,101,说明：,If-Else结构是一种双分支的选择结构，用来处理“非此即彼，二者择一”的情况。If语句的表达式通常是关系或者逻辑表达式，以构成条件。如果是算术表达式，则按照“非0为真”的原则，把算术表达式的值转换为逻辑值。Else不能单独出现，只能与If语句配合使用。语句块可以有多条语句。如果语句较少而且表达式也较为简单，VB语言允许把If语句写在同一行上，此时即可省略End If。,Visual Basic程序设计简明教程,102,例4.1 从键盘输入1个字符，判断其是否为字母。,Private Sub Command1_Click()Dim s As String,t$s=InputBox(请输入一个字符)If s=A And s=a And s=z Then t=s&是字母 Else t=s&不是字母 End If MsgBox(t)End Sub,Visual Basic程序设计简明教程,103,4.3 If语句If结构,If 表达式 Then 语句块 End If说明：If结构用于处理触发型情况，一旦触发某个条件，则会引发后续的动作。,Visual Basic程序设计简明教程,104,例4.2 按升序输出两个整数。,Private Sub Command2_Click()Dim a%,b%,t%a=Val(InputBox(请输入第1个整数)b=Val(InputBox(请输入第2个整数)If ab Thent=aa=bb=tEnd IfPrint a;bEnd Sub,Visual Basic程序设计简明教程,105,4.3 If语句ElseIf结构,If 表达式1 Then 语句块1 ElseIf 表达式2 Then 语句块2 ElseIf 表达式n Then 语句块n Else 语句块n+1 End If,Visual Basic程序设计简明教程,106,说明：,判断某个条件时存在一个前提，即前面的所有条件都不成立。尽管ElseIf结构有多个分支，但是仍然只有一个分支的语句块会被执行。这种结构特别适合处理有多个互相排斥的条件存在的情况，例如计算分段函数的值。,Visual Basic程序设计简明教程,107,例4.3 计算分段函数的值,Private Sub Command3_Click()Dim x As Single,y!x=Val(InputBox(请输入x的值)If x2 Then 判断x是否小于2 y=2*x+1ElseIf x8 Then 判断x是否在2和8之间 y=x-3Else 前面两个条件都不满足 y=3*x-1End IfPrint y=;yEnd Sub,Visual Basic程序设计简明教程,108,4.3 If语句If语句的嵌套,If 表达式1 Then If 表达式1_1 Then 语句块1_1 Else 语句块1_2 End IfElse If 表达式2_1 Then 语句块2_1 Else 语句块2_2 End If End If,Visual Basic程序设计简明教程,109,例4.4 用If语句的嵌套实现例4.3。,Private Sub Command4_Click()Dim x As Single,y!x=Val(InputBox(请输入x的值)If x8 Then 判断x是否小于8If x2 Then 判断x是否小于2y=2*x+1Else x在2和8之间y=x-3End IfElse x8 y=3*x-1End IfPrint y=;yEnd Sub,Visual Basic程序设计简明教程,110,4.3 If语句IIf函数,IIf(表达式1,表达式2,表达式3)说明：如果表达式1的值为True，则以表达式2 的值作为函数的返回值，否则以表达式3的值作为函数的返回值。例如：max=IIf(ab,a,b),Visual Basic程序设计简明教程,111,4.4 Select Case语句,Select Case 表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 Case 表达式列表n 语句块n C