VisualBasic教案-程序设计基础ppt课件

1、计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0第二章第二章 VBVB程序设计基础程序设计基础 面向对象程序设计基础面向对象程序设计基础 VB 语言基础语言基础 基本控制结构基本控制结构 常用函数常用函数 过程过程 常用算法常用算法 夯实基础乘胜前进计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0一一. .面向对象程序设计基础面向对象程序设计基础2. 对象对象 3. 类类 4. VB中的类和对象及其应用中的类和对象及其应用 1窗体和常用控件窗体和常用控件 2） VB中对象的属性设置中对象的属性设置

2、3） VB中对象的事件中对象的事件 4） VB中对象的方法中对象的方法1. 程序设计方法概述程序设计方法概述计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0 属属性性行为行为对象对象=型号型号颜色颜色功率功率启动启动加速加速停顿停顿对象是具有某些特征的具体事物对象是具有某些特征的具体事物(实体实体)。 是代码和数据的集合是代码和数据的集合计算机技术基础计算机技术基础 IVisual Basic 6.0计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0*对象的建立和编辑对象的建立和编辑 建立建立 选定选

3、定 复制复制 删除删除 命名命名计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0对象的属性、事件和方法对象的属性、事件和方法属性属性 (Property) 事件事件 (Event) 事件过程程序和事件驱事件过程程序和事件驱动动 方法方法 (Method)-对象的三要素对象的三要素 属性用于描述对象，方法让对象做一些动作，属性用于描述对象，方法让对象做一些动作，而对象动作时常会引起事件而对象动作时常会引起事件类是创建对象实例的模板，类是创建对象实例的模板，是同种对象的集合与抽象。是同种对象的集合与抽象。笼统笼统对象对象1对象对象2对象对象n类类汽汽

4、车车类类 实际上，类是一种新的数据类型；实际上，类是一种新的数据类型；类的一组属性和方法定义了类的界面，它封装了用于类的全部信息。类的一组属性和方法定义了类的界面，它封装了用于类的全部信息。计算机技术基础计算机技术基础 IVisual Basic 6.0计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0数据数据操作操作帐户类帐户类类是对多个对象的抽象，对象是类的一个实例。类是对多个对象的抽象，对象是类的一个实例。存款、取款、转帐存款、取款、转帐标准控标准控件类件类控件控件对象对象计算机技术基础计算机技术基础 IVisual Basic 6.0窗体和

5、常用控窗体和常用控件件计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0 窗窗 体体 Form ： 窗体是个特例，它即是类也是对象。窗体是个特例，它即是类也是对象。 常用控件：常用控件： 标签标签 Label 文本框文本框 Textbox 命令按钮命令按钮 Command Button1) 窗体和常用控件窗体和常用控件计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0A. 窗体窗体Form）v Name 名称属性名称属性v Caption 标题属性标题属性v Height、Width、Topv 和和Le

6、ft 大小位置属性大小位置属性v BackColor ForeColor 属性属性v Pictrue 属性属性v MaxButton MinButton 属性属性v Enabled 属性属性常用属性：常用属性：常用事件：常用事件： Click Dbclick Load主要方法：主要方法： Cls Move Print计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0v不能作为输入信息的界面；不能作为输入信息的界面；v一般不需要编写事件过程；一般不需要编写事件过程；v常用属性：常用属性：Caption，Font，v Left，Top等。等。B. 标签

7、标签Label） 在窗体中显示某些文本在窗体中显示某些文本计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0C. 文本框文本框Text Box）常用属性：常用属性：Text (无无Caption)常用事件：常用事件：Change，KeyPress，LostFocus, GotFocus主要方法：主要方法：SetFocus 方式：方式： 对象对象.SetFocus ( 将焦点移到文本框将焦点移到文本框) 文本的输入、编辑和显示文本的输入、编辑和显示计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0D. 命

8、令按钮命令按钮Command Button）常用属性：常用属性： Caption, Style(0标准标准 1图形图形), Picture, ToolTipText设置当鼠设置当鼠标在控件上停留时显示的文标在控件上停留时显示的文本）本） 常用事件：常用事件：Click建立实现命令的按钮建立实现命令的按钮计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0E. 基本属性基本属性控件的属性和设置是学习控件的属性和设置是学习VBVB的主要内容之一的主要内容之一v Name 名称属性名称属性v Caption 标题属性标题属性v Height、Width、T

9、opv 和和Left 大小位置属性大小位置属性v Enabled 属性属性v Visible 属性属性v 控件默认属性控件默认属性计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0 属性是用来描述和反映对象特征的参数。对属性是用来描述和反映对象特征的参数。对象中的数据就保存在属性中。属性设置方法：象中的数据就保存在属性中。属性设置方法：（1利用属性框直接设置；利用属性框直接设置；（2在程序代码中通过赋值实现，格式为：在程序代码中通过赋值实现，格式为： 对象对象.属性属性值属性属性值 例：例： label1.caption = “education

10、for all-around development”例：例：Caption素质教育素质教育计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0 事件就是发生在对象上的事情。在事件就是发生在对象上的事情。在VB中，系中，系统为每个对象预先定义好了一系列的事件。统为每个对象预先定义好了一系列的事件。 VB应用程序设计的主要工作就是为对象编应用程序设计的主要工作就是为对象编写事件过程中的程序代码。形式如下：写事件过程中的程序代码。形式如下： Sub 对象名对象名_事件（事件（参数表参数表） 事件过程代码事件过程代码 End Sub 控件是代表一定功能的对

11、象，代码是实现应控件是代表一定功能的对象，代码是实现应用程序功能的具体过程和说明。用程序功能的具体过程和说明。计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0 在传统的面向过程的应用程序中，代码的执在传统的面向过程的应用程序中，代码的执行是从第一行开始，随着程序流执行代码的不同行是从第一行开始，随着程序流执行代码的不同部分。程序执行的先后次序由设计人员编写的代部分。程序执行的先后次序由设计人员编写的代码决定，用户无法改变。码决定，用户无法改变。 在在VB中，程序等待某个事件的发生，然后中，程序等待某个事件的发生，然后执行该事件过程，之后再等待新事

12、件的发生。这执行该事件过程，之后再等待新事件的发生。这就是事件驱动程序设计方式。因此，应用程序每就是事件驱动程序设计方式。因此，应用程序每次运行时的代码路径可能都不同。次运行时的代码路径可能都不同。计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0VB程序的执行步骤如下：程序的执行步骤如下：启动应用程序，装载和显示窗体；启动应用程序，装载和显示窗体；窗体或控件等待事件的发生；窗体或控件等待事件的发生；事件发生时，执行对应的事件过程；事件发生时，执行对应的事件过程；重复执行步骤重复执行步骤 2和和 3），直至），直至End语句。语句。计算机技术基础计

13、算机技术基础 IVisual Basic 6.0Visual Basic 6.0 当某个行为作用在对象时，称对象执行了一个方法。当某个行为作用在对象时，称对象执行了一个方法。方法定义了一系列的计算步骤。方法定义了一系列的计算步骤。 在在VB中，已将一些通用的过程和函数编写好并封装中，已将一些通用的过程和函数编写好并封装起来，作为方法供用户直接调用。对象方法的调用格式：起来，作为方法供用户直接调用。对象方法的调用格式： 对象对象.方法方法 参数名表参数名表其中，若省略了对象，表示为当前对象，一般指窗体。其中，若省略了对象，表示为当前对象，一般指窗体。方法是面向对象的，调用时一定要用对象。方法是面

14、向对象的，调用时一定要用对象。方法方法MethodMethod是在对象上执行指定操作的过程和函数是在对象上执行指定操作的过程和函数计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0 对象对象. Print Spc(n) | Tab(n) 表达式列表表达式列表 ; | , 其中：其中：对象：可以是窗体对象：可以是窗体( Form )、图形框、图形框( PictureBox )或或 打印机打印机( Printer )，若省略则为窗体。，若省略则为窗体。Spc(n)函数：输出函数：输出n个空格，可重复使用。个空格，可重复使用。Tab(n)函数：定位于第函

15、数：定位于第n列。列。表达式列表：若省略则输出空行，多个表达式之间用表达式列表：若省略则输出空行，多个表达式之间用 空格、逗号、分号分隔，也可出现空格、逗号、分号分隔，也可出现Spc和和Tab函数。函数。,标准格式与;紧凑格式 行尾符号(有，；不换行)计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0 Cls方法用于清除运行时方法用于清除运行时 在窗体或图形框中显示的内容：在窗体或图形框中显示的内容： 对象对象. Cls 留意：留意：1Cls方法只在运行时起作用，方法只在运行时起作用， 设计时不清除；设计时不清除； 2Cls方法使用后，方法使用后，

16、CurrentX, CurrentY属性被设置为属性被设置为0。计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0Move方法用于移动窗体或控件，并可改变其大小：方法用于移动窗体或控件，并可改变其大小： 对象对象. Move 左边距离左边距离 , 上边距离上边距离, 宽度宽度, 高度高度 其中：其中： 对象：除时钟、菜单外的所有控件对象：除时钟、菜单外的所有控件 ，省略时为窗体。，省略时为窗体。 移动量：以移动量：以twip为单位，为单位， 1twip=1/20点点=1/567厘米。厘米。计算机技术基础计算机技术基础 IVisual Basic 6

17、.0Visual Basic 6.01. VB语言基本概念语言基本概念 2. 数据类型数据类型 3. 常量和变量常量和变量 4. 表达式表达式 5. 编码规则编码规则计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.01. VB语言基本概念语言基本概念计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0 标识符是为变量、常量、数据类型、过程、函数和标识符是为变量、常量、数据类型、过程、函数和类定义的名字。规则如下：类定义的名字。规则如下：必须以字母或汉字开头，后跟字母、数字、下划必须以字母或汉字开头，后跟字

18、母、数字、下划 线，线， 中间不能空格；中间不能空格；VB中不区分大小写；中不区分大小写；长度不能超过长度不能超过255个字符；个字符； 不能和不能和VB中已有的关键字相同。中已有的关键字相同。例如：例如：3xy；y-z; wang ping; Dim等都不可；等都不可； Cos；sin等也不好，易混淆。等也不好，易混淆。计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0Visual Basic中运算符包括中运算符包括: 赋值运算符赋值运算符 数学运算符数学运算符 关系运算符关系运算符 逻辑运算符。逻辑运算符。计算机技术基础计算机技术基础 IVis

19、ual Basic 6.0Visual Basic 6.0A. 赋值运算符赋值运算符 ： 格式：格式： variable = value variable可以是变量、数组的元素、变长数组或运行时可可以是变量、数组的元素、变长数组或运行时可写的对象的属性；（不能是数值、常量和表达式）写的对象的属性；（不能是数值、常量和表达式） value可以是可以是 常量、变量、表达式或函数调用；常量、变量、表达式或函数调用； 赋值号两端数据类型应匹配。赋值号两端数据类型应匹配。 sin(x)=x+y x=y=z=1 （错误）（错误） sum=sum+1常用）常用） 计算机技术基础计算机技术基础 IVisual

20、 Basic 6.0Visual Basic 6.0 算术运算符：算术运算符：, -(负负) , * , / （除）（除）, （整除）（整除）, Mod取余）取余）, + , （减）（减）结合顺序都是从左到右；结合顺序都是从左到右；可以通过圆括号改变运算优先级和结合顺序。可以通过圆括号改变运算优先级和结合顺序。将数字字符或逻辑型自动转换为数值型。将数字字符或逻辑型自动转换为数值型。 例：例：30True （31） （true -1, false 0）计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0 字符串运算符：字符串运算符：& 和和 “

21、”：两边操作数应均为字符型。（能计算则计算）：两边操作数应均为字符型。（能计算则计算）“&”：先将操作数转换为字符型再连接。：先将操作数转换为字符型再连接。 例：例：“12000”+12345 (=24345), “abc”&123 (=abc123) “120”+“123” (=120193), “120”&”123” (=120193) “abc”+123 (=出错出错), 120&123” (=120193)“123”+120&100 (=243100)计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0

22、 优先级低于数学运算符；优先级低于数学运算符； 各个关系运算符的优先级相同，结合顺序从左到右；各个关系运算符的优先级相同，结合顺序从左到右； 双目运算，结果为双目运算，结果为True（1或或False0）；）； 若操作数是字符型，则按字符的若操作数是字符型，则按字符的ASCII码值码值(A 65)比较；比较； 汉字字符大于西文字符。汉字字符大于西文字符。 Like与通配符？、与通配符？、*、等结合使用，用于模糊查询。、等结合使用，用于模糊查询。 常用于条件语句和循环语句。常用于条件语句和循环语句。 =, , , =, =, Like字符串匹配）字符串匹配）, Is对象应用比对象应用比较）较）计

23、算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0 逻辑运算用于判断操作数之间的逻辑关系，结果为逻辑运算用于判断操作数之间的逻辑关系，结果为True或或False。 逻辑运算符的优先级低于数学运算符和关系运算符；逻辑运算符的优先级低于数学运算符和关系运算符； 优先顺序为：优先顺序为：Not、And、Or、Xor异或）、异或）、Eqv等等价）、价）、Imp蕴含）。蕴含）。 Not、And、Or 常用于将多个关系表达式进行逻辑判断。常用于将多个关系表达式进行逻辑判断。 用逻辑运算符对数值进行运算时，以数字的二进制值逐用逻辑运算符对数值进行运算时，以数字的

24、二进制值逐 位进行逻辑运算。例：位进行逻辑运算。例： 12 And 7 （=100） 1100 0111 计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0v数值数据类型：数值数据类型：Integer（）、（）、Long（&）、）、Single（！）、（！）、 v Double（#）、）、Currency（）和（）和 Byte字节型）字节型）v字符数据类型字符数据类型String）：）：v 表示空字符串，表示空字符串， 表示有一个空格表示有一个空格 ；v 用连续两个双引号表示字符串中的双引号。用连续两个双引号表示字符串中的双引号。v变体数据

25、类型变体数据类型Variant）：未定义变量的默认数据类型。）：未定义变量的默认数据类型。v对象数据类型对象数据类型Object）v日期数据类型日期数据类型Date）v逻辑数据类型逻辑数据类型Boolean）计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0 变量是被命名的内存单元，即保存数据的内存区域。变量是被命名的内存单元，即保存数据的内存区域。命名：遵从标识符命名原则，采用易读、易懂的方式。命名：遵从标识符命名原则，采用易读、易懂的方式。声明：声明：用用Dim语句显式声明语句显式声明 Dim 变量名变量名 As 类型类型 类型声明不能共用，例

26、如：类型声明不能共用，例如：Dim a, b, c, As Integer；可以在变量名后加类型符代替可以在变量名后加类型符代替 As 类型类型 ；对于对于Boolean型变量，缺省值为型变量，缺省值为False；用用Type语句声明自定义变量类型语句声明自定义变量类型不鼓励隐式声明不鼓励隐式声明计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0 常量程序运行时，不变的数值和字符串。常量程序运行时，不变的数值和字符串。 自定义常量：自定义常量： Const 符号常量名符号常量名 As 类型类型=表达式表达式 1)已声明常量，只能引用，不能改变；已声

27、明常量，只能引用，不能改变； 2)常量声明的同时被赋值常量声明的同时被赋值 3)可以指定数据类型；可以指定数据类型；计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0v由变量、常量、运算符、函数和圆括号按一定规则组由变量、常量、运算符、函数和圆括号按一定规则组v 成，运算结果的类型由数据和运算符共同决定。成，运算结果的类型由数据和运算符共同决定。v书写规则：书写规则：1乘号不能省略；乘号不能省略； 2括号必须成对出括号必须成对出现；现；v 3表达式从左到右在同一基准上书写，无高低、表达式从左到右在同一基准上书写，无高低、大小之分；大小之分；v不同数

28、据类型的转换：数据精度采用精度高的数据类不同数据类型的转换：数据精度采用精度高的数据类型，即：型，即：v Integer Long Single Double 字符运算符字符运算符关系运算符关系运算符逻辑逻辑运算符运算符计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0VB代码不区分字母的大小写代码不区分字母的大小写语句书写自由语句书写自由同一行多条语句之间用同一行多条语句之间用 “:” 分隔；分隔；在行尾加入续行符在行尾加入续行符“ 下划线下划线_和空格后，单条语句和空格后，单条语句可分为若干行书写可分为若干行书写;一行最多写一行最多写255个字

29、符。个字符。注释有利于程序的维护和调试注释有利于程序的维护和调试注释行以注释行以Rem开头，或用开头，或用“ ”开始直接写在语言后；开始直接写在语言后；也可使用也可使用“编辑工具栏中的编辑工具栏中的“设置注释块等命令。设置注释块等命令。尽量少用行号与标号尽量少用行号与标号计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0三三. 基本控制结构基本控制结构 顺序结构顺序结构 选择结构选择结构 循环结构循环结构 其它辅助控制语句其它辅助控制语句计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.01. 顺序结构顺

30、序结构 赋值语句赋值语句 人机交互函数和过程人机交互函数和过程计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0 A. A. 表达式类型与变量类型不同时的处理表达式类型与变量类型不同时的处理 (1) (1)表达式为数值型而与变量表达式为数值型而与变量精度不同时，强制转换成左边精度不同时，强制转换成左边 变量的精度；变量的精度； n%=3.5 n%=3.5 (4)(4) (2) (2)表达式是数字字符串，左表达式是数字字符串，左边变量是数值类型，自动转换边变量是数值类型，自动转换 成数值类型再赋值，但表成数值类型再赋值，但表达式有非数字字符或空串时，

31、达式有非数字字符或空串时， 则出错；则出错； n%= n%=“123123” (123) (123) n%=n%=“1a231a23” ( (出错出错) ) (3) (3)当逻辑型赋值給数值型时，当逻辑型赋值給数值型时，TureTure转换成转换成-1-1，FalseFalse转换成转换成 0 0。反之数值型赋值給逻。反之数值型赋值給逻辑型时，非辑型时，非0 0转换成转换成True,True, 0 0转换成转换成FalseFalse。 (4) (4)任何非字符类型赋值給字符类任何非字符类型赋值給字符类型，自动转换成字符类型型，自动转换成字符类型以左边变量类型为准以左边变量类型为准1) 赋值语句

32、赋值语句计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0(1)(1)赋值号和关系运算符等于号相同，在条件表达式中出现的是等号，赋值号和关系运算符等于号相同，在条件表达式中出现的是等号， 否则是赋值号；否则是赋值号； (2)(2)赋值号左边只能是变量，不能是常量赋值号左边只能是变量，不能是常量 常数常数 符号或表达式；符号或表达式； (3)(3)不能在一条语句中，同时不能在一条语句中，同时給給多个变量赋值；多个变量赋值； Dim x% , y% , z%Dim x% , y% , z% x = y = z = 1 x = y = z = 1 (4)

33、 (4)常用：常用： Sum = Sum + xSum = Sum + x n = n + 1 n = n + 1B. B. 应用注意事项应用注意事项计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.02) 人机交互函数和过程人机交互函数和过程 InputBox( )函数：函数： InputBox(提示提示,标题标题,默许默许,x坐标位置坐标位置,y坐标位置坐标位置)例：例： Dim strName As String * 40, strs1 As String * 40 strs1 = 请输入您的姓名请输入您的姓名 + Chr(13) + Chr(

34、10) + 然后单击确定然后单击确定 strName = InputBox$(strs1, 输入框输入框, , 100, 100)提示：不能提示：不能省，为字符省，为字符串表达式。串表达式。默许：字符默许：字符串表达式，串表达式，无输入时以无输入时以此为输入内此为输入内容容计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0 MsgBox( )函数和函数和MsgBox过程：过程： 变量变量%=MsgBox(提示提示,按钮按钮,标题标题) MsgBox 提示提示,按钮按钮,标题标题例：例：MsgBox (“脚数小于头数的倍数，重脚数小于头数的倍数，重新

35、输入新输入”)计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0“按钮设置值及意义：按钮设置值及意义：0 只显示只显示“确定按钮确定按钮1 显示显示“确定确定”“取消按钮取消按钮2 显示显示“终止终止”“重试重试”“忽略按忽略按钮钮3 显示显示“是是”“否否”“取消按钮取消按钮4 显示显示“是是”“否按钮否按钮5 显示显示“重试重试”“取消按钮取消按钮 16 关键信息图标关键信息图标 红色红色STOP标志标志32 询问信息图标？询问信息图标？48 警告信息图标！警告信息图标！64 信息图标信息图标i 1确定确定 2取消取消 3终止终止 4 重试重试

36、 5忽略忽略 6是是 7否否 MsgBoxMsgBox函数返回所选按钮整数值的意义：函数返回所选按钮整数值的意义：资料资料计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.02. 选择结构选择结构 Select Case 语句语句 条件函数条件函数 If 条件语句条件语句计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.01) If1) If条件语句条件语句If Then 语句语句(单分支结构单分支结构): 1) IfThen End If2) IfThen计算机技术基础计算机技术基础 IVisual Ba

37、sic 6.0Visual Basic 6.01IfThen Else End If If Then Else 语句语句(双分支结构双分支结构)：2) IfThen Else 计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0If Then ElseIf 语句语句(多分支结构多分支结构)If 语句的嵌套语句的嵌套 IfThen ElseIfThen Else End If计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.02) Select Case 2) Select Case 语句语句Select C

38、ase 变量或表达式变量或表达式 Case 表达式列表表达式列表 1 Case 表达式列表表达式列表 2 Case Else End Select “变量或表达变量或表达式式”：可以是：可以是数值型或字数值型或字符串表达式符串表达式“表达式列表表达式列表I I”：与：与“变变量或表达式的类型必量或表达式的类型必须相同，可以是以下四须相同，可以是以下四者之一：者之一： 1. 1.表达式表达式 2. 2.一组用逗号分隔的枚一组用逗号分隔的枚 举值举值 3. 3.表达式表达式1 to 1 to 表达式表达式2 2 4.Is 4.Is关系运算符表达式关系运算符表达式计算机技术基础计算机技术基础 IVi

39、sual Basic 6.0Visual Basic 6.03) 条件函数条件函数# I I f ( ) 函数函数: I I f (表达式，当条件为表达式，当条件为True时的值，当条件为时的值，当条件为False时的时的值值) 如：求如：求x、y中大的数，放在中大的数，放在Tmax变量中，变量中，语句为，语句为， Tmax = I I f ( xy,x,y)# Choose ( ) 函数：函数： Choose ( 整数表达式，选项列表整数表达式，选项列表) 如：根据如：根据Nop是是14的值，转换成的值，转换成 运算符的语句为，运算符的语句为，Op = Choose ( Nop, )计算机技

40、术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.03. 循环结构循环结构For 循环语句：循环语句： For 循环变量循环变量 初值初值 to 终值终值 Step 步长步长 Exit For Next 循环变量循环变量循环体循环体计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0Do Loop 循环语句：循环语句：Do While /Until Exit Do Loop Do Exit Do Loop While /Until 循环的嵌套循环的嵌套While-条件为条件为真时执行循环真时执行循环体体 ；Unti

41、l -条件为条件为假时执行循环假时执行循环体体前测型前测型后测型后测型计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.04. 其它辅助控制语句其它辅助控制语句Go To 语句：语句： 方式：方式：GO To 标号标号/行行号号Exit 语句：语句： Exit For ( Do/Sub/Function)End 语句语句: End If(Select/While/Type/)With 语句语句: With 对象对象 语句块语句块 End WithWith

42、MyLabel.Height=2000.Width=2000.FontSize=22.Caption=“This is MyLabel”End With计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0四四. . 常用函数常用函数数学函数数学函数 字符串函数字符串函数 转换函数转换函数 日期函数日期函数 其他函数其他函数计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0 Sin(x), Cos(x), Tan(x), Atan(x), Log(x), Exp(x), Sqr(x), Abs(x) Sin

43、(x), Cos(x), Tan(x), Atan(x), Log(x), Exp(x), Sqr(x), Abs(x) Hex$(x), Oct$(x), Rnd(x), Int(x), Fix(x) Hex$(x), Oct$(x), Rnd(x), Int(x), Fix(x) 留意：留意：1) Sin(x), Cos(x), Tan(x)的自变量及的自变量及Atan(x)的返回值的返回值为弧度；为弧度； 2) Hex$(x), Oct$(x) 分别以字符串的形式返回分别以字符串的形式返回x的十六的十六和八和八 进制值，进制值，x的值带小数时采取四舍五入的方法先变的值带小数时采取四舍五入

44、的方法先变为整数；为整数； 3) 凡函数名后有凡函数名后有$符号的，表示函数返回值为字符符号的，表示函数返回值为字符串数；串数； 4) 取整函数取整函数Int(x),Fix(x)的异同：的异同： 去掉小数返回整数，去掉小数返回整数， 当当x为负数时，为负数时， Int(x)返回小于负数的负整数，返回小于负数的负整数， Fix(x)返回大于负数的负整数。返回大于负数的负整数。 1. 数学函数数学函数计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.05)5)随机函数随机函数Rnd(x),Rnd(x),产生一个大于或等于产生一个大于或等于0 0小于小于1

45、 1的单精度数。的单精度数。 常用形式：常用形式：Int(RndInt(Rnd* *范围范围+ +基数）基数） -产生一定范围的随机整数产生一定范围的随机整数 例如：例如：A.A.产生产生3030，5050之间的随机整数包括之间的随机整数包括3030，5050） x = Int(Rndx = Int(Rnd* *21+30)21+30) B. B. 产生产生=1=1且且=6=6的随机整数的随机整数 Myvalue = Int(RndMyvalue = Int(Rnd* *6+1)6+1) 也可写成：也可写成：Int(upper-lower+1)Int(upper-lower+1)* *Rnd+

46、lower)Rnd+lower) upper : upper : 为随机整数上限为随机整数上限 lower lower ：为随机整数下限：为随机整数下限 留意：包含上下限的值。为什么？留意：包含上下限的值。为什么？计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0 1). InStr(起始位置起始位置，字符串，字符串1，字符串，字符串2，比较类型，比较类型) 查找，返回字符串查找，返回字符串2在字符串在字符串1中第一次出现的位置；中第一次出现的位置； 比较类型：比较类型：0或缺省或缺省区分大小写，区分大小写，1不区分不区分 2). LTrim$(字

47、符串字符串) 3). RTrim$(字符串字符串) 4). Trim(字符串字符串) 去掉字符穿左、右、左右空去掉字符穿左、右、左右空格格 5). Left$(字符串，个数字符串，个数) 6). Right$(字符串，个数字符串，个数) 取出字符串左边、右边指取出字符串左边、右边指定个数的字符定个数的字符 7). Mid$(字符串，起始位置字符串，起始位置,个数个数 ) - 取出指取出指定个数的字符定个数的字符 8). Len(字符串和字符串变量字符串和字符串变量) - 一个汉字和一个字母一一个汉字和一个字母一样为样为1 2. 字符串函数字符串函数计算机技术基础计算机技术基础 IVisual

48、Basic 6.0Visual Basic 6.0举例：表举例：表4-8P889). Ucase$(字符串字符串) - 小写转大写，其它字符不变小写转大写，其它字符不变 10). Lcase$(字符串字符串) - 大写转小写，其它字符不变大写转小写，其它字符不变 11). Space$(个数个数) - 返回指定个数的空字符串返回指定个数的空字符串 12). String(个数，字符个数，字符) - 返回重复字符的字符串返回重复字符的字符串 当当“字符为串时，用其第一个字符字符为串时，用其第一个字符 计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0

49、 Str$(数值表达式数值表达式) Val(字符串字符串) Chr(66) B Asc (B) 66 Asc(Chr(99) 99 Chr(Asc(K) K Ucase$(abcdefg) ABCDEFGChr$(N) ASCIIChr$(N) ASCII码值转换成字符码值转换成字符 Asc(C)Asc(C)字符转换成字符转换成ASCIIASCII码值码值 例如：例如：3. 转换函数转换函数计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.04. 日期函数日期函数 Time返回系统时间、返回系统时间、Date返回系统日期、返回系统日期、 Now返回系

50、统日期和时间返回系统日期和时间 Hour 返回时间值返回时间值 、Day返回日期值、返回日期值、 DateAdd要增减日期形式，增减量，要增减的日期变量）要增减日期形式，增减量，要增减的日期变量） 如：如：DateAdd(“ww”,2,#2/14/2000#) 结果为：结果为：#2/28/2000# DateDiff要间隔日期形式，日期要间隔日期形式，日期1，日期，日期2） 如如 求离你毕业还有多少天：求离你毕业还有多少天： DateDiff（“d”,date, #07/01/2019# ）假定）假定2019年毕业年毕业日期形式：日期形式：yyyy 年 、 q 季 、 m 月、y 一年的天数、

51、 d 日、 w 一周的日数、 ww 星期 、 h 时、 n 分、 s 秒计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0 1) 判断函数：判断函数： Iff(表达式，真部分，假部表达式，真部分，假部分分) 2) 格式输出函数格式输出函数 Format$(表达式表达式,格式字符串格式字符串) 数值格式化；数值格式化； 日期和时间格式化；字符串日期和时间格式化；字符串格式化格式化 3) Shell( )函数函数 调用应调用应用程序用程序 Shell(命令字符串命令字符串,窗口类型窗口类型)窗口类型值为窗口类型值为1表示正常窗口，表示正常窗口，缺省窗口最小化为图标缺省窗口最小化为图标5. 其它函数其它函数计算机技术基础计算机技术基础 IVisual Basic 6.0Visual Basic 6.0Shell函数举例函数举例: i = Shell(c:windowscalc.exe“，1) j=Shell(c:command, 1)计算机技术基础计算机技术基础 IVisual Basic 6.0Visua