VB环境下的应用程序开发.PPT

1、第四章 VB环境下的应用 程序开发,4.1 VB介绍Visual BASIC（以下简称VB）是微软(Microsoft)公司推出的 Windows环境 下基于对象的可视化的程序设计语言.可以用来开发indows环境下的各种应 用软件，也可用来开发多媒体应用,Visual Basic 利用面向对象的概念巧妙地屏蔽了Windows环境下的程序设计的复杂性Visual Basic基于结构化的BASIC语言和一系列的可视化的窗口设计工具，提供了窗口、菜单、按钮、对话框、消息框、滚动条等Windows程序的标准界面对象，以及一整套可视化设计工具,4.1.1 Visual Basic概述,Visual B

2、asic是首批采用事件驱动的程序设计机制的程序语言之一从微软公司于1991年推出Visual Basic1.0版到目前为止，已推出6个版本，获得极大成功,4.1.2 VB程序设计的特点,1. 可视化的界面设计设计者仅需用现有工具在屏幕上进行布局设计，设置对象属性即可，Visual Basic自动产生界面设计代码,2. 基于对象的程序设计思想 VB已经把程序和数据封装起来成为一个对象,并为每个对象赋予各种属性，程序设计人员在设计时无需编写对象的创建和描述程序代码，便可直接使用3. 事件驱动的编程机制 每个事件都能驱动一段程序运行,完成相应的工作4. 方便、易用：结构化的程序结构、更接近于人类的语

3、言和逻辑思维方式、语句简单易懂等,5.基于构件的程序开发 可以使用Visual C+，BC+，Delphi等开发用于VB的专用构件，以扩展VB的应用开发能力，VB构件可以直接加入到VB工具箱中供开发人员使用。6.对象的链接与嵌入(OLE) 利用OLE技术，在VB程序中，可以将其他应用软件作为一个对象嵌入到VB应用程序中，并可以对它赋予各种属性和进行程序。还可把符合OLE标准的Windows应用程序嵌入到VB程序中，实现声音、视像、影像、动画、三维立体、变换几何形状、绘制各种图形图像等多媒体功能,7.数据库访问功能 Visual Basic系统本身提供了非常好的数据库管理功能，利用数据库管理窗口

4、，用户可直接创建Access数据库，还可直接编辑和访问其他外部数据库，如FoxPro、dBASE、FoxBase 等。可以通过ODBC等建立连接的方式来使用和操纵外部数据库8.功能强大的辅助开发工具 Visual Basic中的Setup Wizard可为用户制作生成规范的带安装的用户盘，使程序设计人员采用VB开发工具设计的应用程序在编译生成.EXE可执行文件,4.1.3 消息和事件驱动,所有的Windows应用程序都是基于消息的传递和处理的，每一个Windows程序都要求一个消息循环，应用程序中的每一个窗口都要求有一个消息处理器，用户移动鼠标，Windows系统就产生一条消息告诉相应的应用程

5、序：鼠标已经移动了，移动到了什么地方Windows系统是多任务系统，如果一个程序有消息要处理，它就占用CPU处理消息，如果一个程序不再有要处理的消息，系统就询问其他正在运行的程序是否有消息要处理，并把控制权交给要处理消息的应用程序，消息机制，就是所谓的事件驱动,4.1.4 VB开发环境,主窗口,立即窗口,1. 主(Main)窗口,主窗口:控制VB环境下各种工作模式及操作命令,工具条:,返回,2. 窗体(Form)窗口,3. 工具箱窗口,返回,4. 项目(Project)窗口,标题条:显示项目(应用程序)名称,控制盒及极小化按钮;View Form按钮:查看窗体显示界面;View Code按钮:

6、查看代码程序;文件列表:该项目中包含的所有文件清单,返回,5.属性窗口,属性（Properies）窗口见图2.3，所有窗体或控件的属性如颜色、字体，大小等，可以通过属性窗口来修改。属性窗口由以下部分组成：,返回,6. 程序调试窗口(Debug Window),返回,7. 代码(Code)窗口,对象框：存储并显示当前被选中窗体及其中所有控制的名称。其中general表示与特定对象无关的通用代码过程框： 下拉列表框，存储并显示各种事件名称或用户自定义过程及函数名称。源程序代码框： 以Sub过程名开始，End Sub结束。,返回,8菜单设计窗口(Menu Design Window),4.1.5 V

7、B项目和可执行文件,项目,应用程序,4.1.6 创建VB应用程序的步骤,1.创建用户界面:使用 “New Project”项，创 建一个新工程文件,之后再通过在窗体上画构件和对象来创建一界面2.设置界面对象的属性：既可以在设计时用属性窗口设置初始值，也可以在运行时用代码修改属性3.编写事件代码：在为窗体和对各对象设置初始属性之后，应增加响应事件时所要执行的代码4.保存项目5.测试和调试应用程序,6.创建可执行文件：File-Make EXE File 创建7.创建安装应用程序:应用Setup Wizard创建安装程序,例1：本例演示VB6.0开发环境，介绍可视化地创建用户界面的方法，掌握VB的

8、基本概念和基本操作，并建立一个基本的窗体。,操作步骤如下：1.启动Microsoft Visual Basic 6.0中文版。2.在“新建工程”窗口中选择“标准EXE”选项，单击“打开”按钮。3.进入VB6.0开发环境。,4.单击工具栏上的“保存”按钮，弹出“文件另存 为”对话框，文件按默认值Form1.frm保存。5.在弹出的“工程另存为”对话框中，工程按默认值example1.vbp保存。6.创建工程后，VB会在工程中创建一个默认的窗体。7.在工程窗体的右上方有一个列表窗体，该窗体列出了整个工程的结构。8.在工程窗体的左方有一个可以移动的工具箱，其中包含VB的标准控件。9.在工程窗体的右方

9、有一个属性窗口，可以设置对象的属性。,10.单击“运行”按钮，出现运行结果。11.要改变窗体的背景颜色,可设置窗体对象的属性。在设计窗体上按F4键,切换属性窗口；双击属性窗口的BackColor属性，选择兰色。12.双击工具箱中的Lable控件，在当前窗体的中央出现一个Lable控件。13.在Lable控件上按F4，可以看见属性窗口中的名称为默认的Lable。双击Font属性，可以改变文字的大小和字体等。双击ForeColor属性，可以改变文字颜色。,说明：对象是数据和代码的组合，在VB中，窗体和控件就是对象，因此在控件中已经包含了程序代码，使用控件将简化应用程序的开发过程，并且提高应用程序的

10、开发效率。在VB中，可以通过对象的属性、方法和事件三个基本要素来控制和操作对象。属性是对象的特征和数据，它定义了对象的基本形状和行为，如控件的名称、标题、字体和可见性等。,例2：本例演示如何控制窗体的关闭。运行程序，单击窗体中的“打开另一个窗体”按钮，将弹出另外一个窗体，只有单击此窗体中央的“关闭”按钮，才能关闭窗体。注意右上角的“关闭”按钮是无效的。,具体操作步骤如下：1.创建一个新工程，并命名为example2.vbp，该工程中包含一个默认的窗体Form1.frm.2.添加命令按钮控件CommandButton，设置按钮Caption属性为“打开另一个窗体”。,3.单击“工程”菜单中“添加

11、窗体”选项，在弹出的窗口中选择“窗体”，工程将加入一个新的窗体。4.单击“保存”按钮，将新窗体存为Form2.frm.5.同样在Form2窗体中加入一个命令按钮控件，将其caption属性设置为“关闭窗体”。6.为命令按钮添加事件。双击Form1窗体中的“命令”按钮，将弹出code窗口。7.单击code窗口右上方的下拉列表框，选择控件的事件。（如选择Click事件）。,8.在Command1_Click事件中加入以下代码：Private Sub Command1_Click() Form2.show 显示Form2窗体End Sub9.在Form2窗口的Form_QueryUnload处理程序

12、中加入以下代码： Private Sub Form_QueryUnload(Cancel As Integer,UnloadMode As Integer) if UnloadMode1 Then Cancel=True Cancel 为True 时，窗体才可以关闭。 End If End Sub,10.在Form2窗口的Command1_Click处理程序中添加以下代码：Private Sub Command1_Click() Unload Me 关闭窗体End Sub,说明：VB编程是以事件驱动，事件是对象的某种特定动 作，如单击鼠标（Click）、双击鼠标（DbClick）、属性改变（C

13、hange）等。当事件被触发时，对象就会对该事件作出相应的响应。用户可通过事件过程（EventProcedure）来控制程序的执行。事件过程的格式如下： Sub 对象名称事件名称（参数） 事件执行的程序代码 End Sub, VB对用户程序代码中关键字的首字母总被转换成大写字母，其余字母一律转换为小写字母。提高了程序的可读性。 VB将关键字中每个单词的首字母自动转换成大写字母。 对于用户自定义的变量名、过程名、函数名，VB以第一次定义的为准，以后输入的自动转换成首次的形式。,4.2 VB语言程序设计基础,4.2.1编码规则,1、在VB代码中，字母不区分大小写, VB 在同一行上可以书写一条语句

14、或多条语句。如果多条语句写在一行上，语句间用冒号“：”隔开。 例如：Form1.width=300: Form1.caption= 您好:Temp= Form1.width 为了方便阅读，最好一行写一条语句。,2、语句书写自由, 一条语句如果在一行内写不下，VB允许将单行语句分若干行书写，在行后加入续行符（一个空格后面跟一个下划线“ _”。）将长语句分成多行。 Addresses = “天津市河北工业大学” & _ “现代化教学中心” & _ “计算机技术基础教研室” 原则上，续行符应加在运算符的前后，续行符不应将变量名和属性名分隔在两行上。,注释可以和语句在同一行，并写在语句的后面，也可占据

15、一整行。例如： 这是从屏幕左边 开始的注释。Text1.Text = “Hi!” 在文本框中放欢迎词。,注释有三种情况： 用Rem开头引导注释行。 用撇号“”开始引导语句后的注释。 使用“设置/取消注释块”命令将若干语句行或文字设置/取消为注释块。注意:在同一行内，续行符之后不能加注释。,3、在VB中可以使用注释,功能：用来标记变量名、函数名和类型名构成元素：AZ、az、09或下划线_。形式：以字母或下划线开始，后跟字母、数字 或下划线组成的字符串。注意：标识符不能分行书写。,例如：以下是Visual Basic 6.0中合法的标识符Dim MyString As String Const P

16、i=3.1415926535897932 Public Function getValue () As Integer,4、VB中的标识符,Visual Basic提供了许多基本数据类型，如：Integer(整型), String（字符型）, Boolean（逻辑型）, Currency（货币型）等，每种数据类型占用一定的内存，允许存储一定范围的值。,4.2.2 数据类型, 数值（Numerice）数据类型 有整型（Interger）(%) 长整型（Long）(&) 单精度型（Single）(!) 双精度型（Double）(#) 货币型（Currency）() 字节型（Byte）($) 1)整

17、型（Interger）和长整型（Long）用于保存整数 可以是正整数、负整数或者0。 整型数用两个字节存储，表示数的范围为： -32768+32767 长整型数用4个字节存储,表示数的范围为： -2147483648+2147483647,标准数据类型,2)单精度型（Single） 用来表示带有小数部分的实数,4个字节存储。单精度浮点数最多有7位有效数字，单精度浮点数有多种表示形式： 123.45、0.12345E+3、123.45！都是同值的单精度数。 如果某个数的有效数字位数超过7位，把它赋给一个单精度变量，超出的部分会自动四舍五入。 例如：把213456.2567赋给单精度变量aa，aa

18、的值为213456.3。,3)双精度型（Double）:用8个字节存储。 科学记数法格式 ：aDc或adc 例如 314.159265358979D-2表示3.14159265358979。 双精度浮点数最多可有15位有效数字。 4)字节型（Byte）用来存储二进制数。 如果变量包含二进制数，则将它声明为 Byte 数据类型。Byte 是从 0-255 的无符号类型，不能表示负数。,(2) 字符（String）数据类型 是一组由计算机字符组成的序列，每个字符都以ASCII编码表示。用一个字节表示。在VB中，字符串要用双引号括起来。例如：“Visual Basic”、“中国天津”、“123.45

19、6” 有两种字符串：变长字符串和定长字符串。变长字符串的最大长度为231-1个字符；定长字符串的最大长度为65535个字符 。,形式：Type 自定义类型名 元素名(下标) As 类型名 元素名(下标) As 类型名 End Type其中：元素名 表示自定义类型中的一个成员 下 标 表示该成员是一个数组 类型名 该成员的标准数据类型,自定义类型,例如: 定义班级中学生的基本情况的数据类型如下：Type Students 声名Students是自定义类型名 Name As String * 8 Name是Students类型中的成员之一 Age As Integer Age是Students类型

20、中的成员之一 Address As String * 20 Address是Students类型中的成员之一 End Type,声明变量：Dim Student1 As Students要表示Student1变量中的某个元素，可使用下列方式：变量名.元素名例如：Student1.Name=李萍Student1.Age=19,使用自定义类型应注意的问题： 自定义类型必须在标准模块（.Bas）中定义，默认是Public。, 自定义类型中的元素类型是字符串型时，该字符串必须是定长字符串。 要分清自定义类型名和具有该类型的变量名。前者表示的是一种数据类型，如同Integer、Single等一样；后者是

21、一个具有某种类型的变量，VB根据变量的类型分配必要的存储空间。,4.3常量和变量,4.3.1 常量,1、普通常量： 数值常量：例如： 50、480085、-123、3.12436、123.123、-0.456等。 字符串常量： 是用双引号括起来的一串字符，每个字符占用一个字节，如果是汉字，占用两个字节，但在VB中汉字被认为是一个字符。 “abcd” 长度为4的字符串 “VB5.0中文版” 长度为8的字符串, 逻辑常量： 逻辑真 True、 逻辑假 False2符号常量（用户声明常量） 用户声明常量是用一个符号名来代替数值或字符串，称为符号常量。命名规则：符号名必须是以字母开头，由字母、数字、下

22、划线组成的长度不大于40的字符串。格式：const 符号常量名 As 类型=表达式 ，符号常量名=表达式,功能：设置符号常量为表达式的值。举例：下面的语句分别定义了四个符号常量Const NAME As String =“LiLin“ 定义NAME是符号常量，其值是 字符串“LiLin“ Const NUM As Integer= 4450 定义NUM是符号常量，其值是 整型数4450 Const Pi=3.14159 定义PI是符号常量，其值是单精度 数3.14159,1 变量和变量名,变量是指在程序运行期间其值可以变化的量。命名规则： 变量名必须以字母AZ（或a z）开头。 构成变量名的字

23、符串由英文字母、数字、 下划线符号组成。,4.3.2 变量, 变量名中间不允许有空格。 Visual Basic的保留字不能作为变量名。 在Visual Basic语言中，变量名不区分大小写。如ABC、abc、aBc都认为是一个相同的变量名。为了便于区分，一般变量名首字母用大写字母，其余用小写字母表示，而符号常量全部用大写字母表示。,2 变量的声明及类型, 用Dim关键字声明变量例子： Dim Age As Integer 定义Age为整型变量 Dim StrTemp As String 定义StrTemp为不定长字符型变量 Dim StrName As String * 10 定义StrNa

24、me 为定长字符变量 Dim Number As Single, Count As Single 定义Number和Count都是单精度变量 Dim Number , Count As Single 定义Number为变体变量，Count为单精度变量 从上面的例子可知： 字符串变量有定长和不定长两种形式； 在一个Dim语句中定义多个变量时类型声明不能共用。, Public关键字声明变量用途:在全局模块中使用,定义的变量是全局变量，作用域为整个应用程序。声明的方式：单击“工程”菜单上的“添加模块”选项，添加一个新模块文件或打开现有的模块文件。用Public 语句定义变量，格式为： Public

25、变量名 As 类型名例子：Public PI As Single Public AA As Integer, 用Static 关键字声明变量 格式：Static 变量名 As 类型名 用途：在过程中定义静态变量和静态数组。 说明：该变量的值在函数或过程执行结束后能保存下来 所以，下一次执行时，该值不再初始化。 例子：Private Sub form_Click（） Dim A1 As Integer Static A2 As Integer A1=A1+1 A2=A2+1 End Sub,该过程中A1和A2定义为不同类型的整型变量。A1的值每调用一次过程就自动加1，过程调用一结束，其值就变为0

26、。A2的值每调用一次过程也自动加1，过程调用结束时，A2的值等于调用该过程的次数。, 用类型说明符直接声明变量格式：变量名+类型说明符类型说明符放有：% 表示整型 & 表示长整型！ 表示单精度型 # 表示双精度型 表示货币型 表示字符型例如：Name 定义字符型变量 Price！ 定义单精度型变量 Age% 定义整型变量,3 变量的作用域,局部变量 用Dim语句定义，只能在本过程中使用，其他过程不可访问。随过程的调用分配存储单元，进行变量的初始化，一旦过程结束，变量的内容自动消失，并释放所占用的存储单元。不同的过程中可使用相同的变量名。窗体/模块级变量用Dim语句或Private语句，在“通用

27、声明”段中定义。放在一个窗体/模块的任何过程外，可被本窗体/模块的任何过程访问。,全局变量用Public语句声明，在“通用声明”段中定义，放在标准模块的任何过程或函数外，可被应用程序的任何过程或函数访问。其值在整个应用程序中始终不会消失和重新初始化，只有在整个程序结束时，才会释放。静态变量 用Static语句定义的局部变量，在程序运行过程中该类变量的值可保留。每次调用过程时，用Static定义的静态变量保持原来的值，而用Dim定义的变量要重新初始化。,声明变量时作用域的规则：在窗体、模块中声明的变量是模块级的，对整个模块都有效。在过程内用Dim语句声明的变量只在过程内有效。用Public语句声

28、明的变量是程序级的，在整个程序中起作用。用Static语句声明的变量是静态变量，即使在过程结束后也一直保存着，VB在任何时候都不会去初始化静态变量。, 算术运算符,4.4运算符和表达式,功能：对两个操作数进行大小比较，若关系成立，返回True，否则返回False., 关系运算符,Not 逻辑非，当操作数为假时，结果为真。 And 逻辑与，两个操作数都为真时结果为真 Or 逻辑或，两个操作数只要有一个为真， 结果就为真。 Not 逻辑非，返回操作数的相反逻辑值 Xor 逻辑异或，两个操作数不同时，结果为真，否则为假。 Eqv 逻辑等，两个操作数相同时，结果为真。 Imp 蕴含，第一个操作数为真，

29、第二个操作数为假时，结果为假，其余真。, 逻辑运算符,字符串运算符,运算符：& 或 + “12000”+“12345” 结果为“1200012345” 两个字符串连接 “12000”&”12345” 结果为“1200012345”,约定： N 数值表达式 C 字符表达式 D 日期表达式 $ 函数名后有该字符，表示返回值为字符串,4.5常用内部函数,1 数学函数,说明：在三角函数中，以弧度表示；sqr的自变量不能是负数Log 和Exp是一对互为反函数，即 Log(Exp(N),Exp(Log(N)结果还是原来各自变量的值。, Mid( ) 函数格式：Mid(String,n,m)功能：从Stri

30、ng字符串中从第n 个字符开始连续取m个字符。例子：Mid(“VisualBasic6.0”,7,5) 函数返回值是“Basic,2 字符串函数,” Len( )函数格式：Len(String)功能：计算字符串的长度。例子：Len(“VisualBasic”) 函数返回值为11 InStr( )函数格式: InStr(n, string1, string2)功能: 在string1 中从n开始查找 string2，如果 存在，函数值为string2在string1中的位置值；找不到时函数的值为0。n是可选参数。为数值表达式，设置每次搜索的起点。如果省略，将从第一个字符的位置开始。例子：InSt

31、r(2,” efabcdefg”,”ef”) 函数返回值为7,(1).Asc（） 格式：Asc(String) 功能：将字符串转换成ASCII值。 示例：a=Asc(“C”) a的值为67。(2).Chr（） 格式：Chr(x) 功能：将ASCII码值转换成字符串。 示例：a=Chr(66) a的值为字符“B”。,3 转换函数,(3).Val（） 格式：Val(String) 功能：将字符串量转换成数值量。 示例：a=Val(“-13.456”) a的值为-13.456 b=Val(“13-456”) 出错(4).Str( ) 格式：Str(Number) 功能：将数值型量转换成字符型量。 说

32、明：Number为一个数值型量，返回一个字符 型量。 示例：a=Str(12345) a的值为字符“12345”。,Chr和Asc函数是一对互为反函数，即Chr(Asc(n)、Asc(Chr(c) 的结果为原来各自自变量的值， 如Chr(Asc(122)的结果还是122。Str函数将非负数值转换成字符类型后，会在转换后的字符串左边增加空格，即数值的符号位。 如Str(123)的结果为“ 123”，而不是“123”。Val将数字字符串转换为数值，当字符串中出现非数值字符时，停止转换，函数返回的是停止转换前的结果。 如Val(“ 123.45ty”)结果为-123.45。,程序中的语句依照其在程序

33、中的位置依次顺序地执行，叫做语句的顺序执行。,1. 数据输入 VB可以通过赋值语句、InputBox函数、MsgBox函数、MsgBox过程给程序提供初值。,4.6程序设计,4.6.1 顺序结构程序设计, 赋值语句格式：Let 变量名/对象属性名 = 表达式功能：将赋值号右边表达式的值赋给赋值号左边的变量或对象属性。举例： Form1.width = 300 Form1.caption = 输入框 Temp = 20, InputBox（）函数 格式：InputBox$(prompt,title,default,xpos,ypos） InputBox$(提示,标题,默认,x坐标位置,y坐标位置

34、） 功能：打开一个对话框，等待用户键入内容。当用户单击“确定”按钮或按回车键时，函数返回输入的值，其值的类型为字符串。,说明： “$”：可选项。有此项时，返回的数据类型是字符 串型；省略此项，返回的数据类型是变体型。 “prompt（提示）”：字符串表达式，必选项.在对话框中作为提示信息,可以是字符或汉字,最大长度大约为1024个字符,由所用字符的宽度决定。如果提示信息包含多行，则必须在每行末用回车符（Chr（13）、换行符（Chr（10）或回车换行符的组合（Chr（13）&Chr(10)）来分隔。 “title（标题）”：可选项。显示在对话框标题栏中的字符串表达式.如果省略title，则把应

35、用程序名放在标题栏中。, “default（缺省）”：可选项，显示文本框中的字符串表达式。当在输入对话框中无输入内容时，该缺省值作为输入的内容。如果省略default，则文本框为空。 “xpos,ypos（X坐标位置，Y坐标位置）”：可选项，整型表达式，成对出现。xpos用来指定对话框的左边与屏幕左边的水平距离，ypos用来指定对话框的上边与屏幕上边的垂直距离。如果省略该项，则对话框在水平方向居中，在垂直方向距下边大约三分之一的位置。,注意:函数中的各项参数次序必须一一对应，除了“prompt”一项不能省略外，其余各项均为可选项，如果要省略某些参数，则必须加入相应的逗号分割符。例li3-2:

36、在InputBox函数的输入框中输入学校名称，按“确定”按钮，窗体显示输入值，按“取消”按钮，返回空字符。, MsgBox函数和MsgBox过程 MsgBox函数格式： 变量% = MsgBox (提示 ,按钮 ,标题) MsgBox过程格式： MsgBox (提示 ,按钮 ,标题),功能： 打开一个消息框，等待用户选择一个按钮。MsgBox函数返回所选按钮对应的整数值，其数值的意义见下表。若不需要返回值，则可作为MsgBox过程使用。,MsgBox函数返回所选按钮整数值的意义,说明： “提示”和“标题”的含义与InputBox()函数中对应的参数相同。 “按钮”：可选项，为整型表达式。用来设

37、定要显示的按钮的数目、类型和出现在消息框中的图标类型。其设置见下表： “变量%”： 返回值。当用户按下消息框按钮时，系统将返回按键相对应的数值，利用这个返回信息，用户可以在以后的程序中作出不同的响应。,例如在打印文件时，如果选择“确定”按钮，那么程序就应该打印文件；如果选择“取消”按钮，程序就不再打印文件；如果选择“重试”，那么程序就应该能重新开始打印文件。,例li3-3 利用InputBox和MsgBox函数设计一个文件名输入对话框和提示对话框,“按钮”设置值及意义,（3）格式输出函数格式:Format$(表达式 ，格式字符串 )功能:将数值型量转换为字符型量，并根据格式字符串中的结构将其格

38、式化。说明:“表达式”是要格式化的数值、日期和字符串类型表达式。“格式字符串”有三类：数值格式、日期格式和字符串格式。格式字符串一定要用引号括起来。下面分别说明三种格式字符串的形式及使用方法。,数值格式化 数值格式化是将数值表达式的值按“格式字符串”指定的格式输出。日期和时间格式化 将日期或数值表达式的值按“格式字符串”指定的格式转换。字符串格式化 将字符串按指定的格式进行转换。, Print方法Print方法的作用是在对象上输出信息。形式：对象.PrintSpc(n)/Tab(n)表达式表其中：对象可以是窗体（Form）、图形框(PictureBox)或打印机（Printer）。如果省略了对

39、象，则在窗体上输出。, 数据输出 标准显示输出语句格式：Print 表达式 ，|；,Spc(n)函数： 用于在输出时插入n个空格。Tab（n）函数：用于在输出表达式列表前向右移 动n列。表达式表：要输出的数值或字符串表达式，其开始打印的位置是由对象CurrentX和CurrentY属性决定的，缺省时打印在对象的左上角0,0处。,3Rem、Stop、End语句 Rem语句格式：Rem 注释内容 或 注释内容, Stop语句格式：Stop功能：暂时停止语句执行。 Stop语句可以放在程序的任何地方，它的作用相当于在程序代码中设置的断点。 Stop语句只是暂停程序的执行，不会关闭任何文件或清除变量。

40、但当VB程序以编译后的可执行文件（.ExE）运行时，该功能失去。 执行Stop语句，程序暂停执行，若要继续运行，则可用鼠标单击运行按钮。, End语句格式：End功能：在过程中关闭代码执行、关闭以Open语句打开的文件并清除变量，停止执行,Visual Basic 选择结构的实现： IfThen 语句（单分支结构） If.ThenElse 语句（双分支结构） Select Case 语句（多分支结构）,4.6.2 选择结构程序设计,格式1：If 表达式Then 语句 格式2：If 表达式Then 语句块 End If,功能：当条件表达式的值为“真”时，则执行Then后面的语句或语句块；否则不执

41、行任何操作。,1. IfThen语句（单分支结构）,格式1： If Then Else End If格式2：If Then Else ,2.IfThenElse语句结构（双分支结构）,语句格式：If 表达式1 Then 语句块1 ElseIf 表达式2Then 语句块2 Else 语句块 n+1 End If,IfThen Else If 语句 （多分支结构）结构,说明： 不管有几个分支，程序执行了一个分支后，其余分支不再执行。 ElseIf子句的数量没有限制，可以根据需要使用任意多个ElseIf子句。 语句中的ElseIf子句和Else子句都是可选项，如果省略这些子句，则成为单分支结构。If

42、.Then.ElseIf只是 If.Then.Else 的一个特例。,If 语句的嵌套是指if或else语句后面的语句块中又包含if语句。语句形式为：,If then if then endif endif,4.If语句的嵌套,例如:已知X、Y、Z三个数，比较他们的大小并 排序，使得XYZ。,If xyEndifIf yz if x=80,当有多个Case子句的取值范围和测试表达式的值域相符时，只执行符合要求的第一个Case子句后的语句块。Select Case语句只对单个表达式求值，并根据求值结果执行不同的语句块；而If Then Else语句可以对不同的表达式求值，然后执行不同的操作。这是两者的主要区别。,循环是在指定的条件下多次重复执行一组语句，这可通过循环结构来实现。VB中提供了两种类型的循环语句：一种是计数循环语句；另一种是条件循环语句。Visual Basic 支持的循环结构有： DoLoop For.Next WhileWend For Each.Next 这里只介绍前两种,4.6.3 循环结构程序设计,1. Do.Loop循环,DoLoop循环用于事先不知道循环次数的循环结构。此种语句有四种语法格式： Do While Loop 语句 Do Loop While 语句 Do Until Loop 语句 Do Loop Until 语句,