VB2程序设计基础.ppt

《VB2程序设计基础.ppt》由会员分享，可在线阅读，更多相关《VB2程序设计基础.ppt（122页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第二章第二章程序设计基础程序设计基础第二章第二章 VBVB程序设计基础程序设计基础VB应用程序包括两部分，即用户界面和程序代应用程序包括两部分，即用户界面和程序代码。其中用户界面由窗体和控件组成，而程序代码。其中用户界面由窗体和控件组成，而程序代码则由基本的程序元素组成，包括数据类型、常码则由基本的程序元素组成，包括数据类型、常量、变量、内部函数、运算符和表达式等。量、变量、内部函数、运算符和表达式等。2.1数据类型数据类型2.2常量和变量常量和变量2.3运算符与表达式运算符与表达式2.4常用函数常用函数2.1 2.1 2.1 2.1 基本数据类型基本数据类型基本数据类型基本数据类型数据是程序

2、的必要组成部分，也是程序处理的对象。数据是程序的必要组成部分，也是程序处理的对象。在高级语言中广泛使用在高级语言中广泛使用“数据类型数据类型”这一概念。这一概念。VB提供了系统定义的数据类型，并允许用户根据需要定提供了系统定义的数据类型，并允许用户根据需要定义自己的数据类型。义自己的数据类型。基本数据类型：基本数据类型：字符串型数据、数值型数据、字节、字符串型数据、数值型数据、字节、货币、对象、日期、布尔和变体数据类型。货币、对象、日期、布尔和变体数据类型。数据数据类类型型关关键键字字类类 型型说说明符明符所占所占字字节节取取值值范范围围范范围围字字节节型型ByteByte无无1 10 025

3、5255逻辑逻辑型型BooleanBoolean无无2 2TrueTrue或或FalseFalse整整 型型IntegerInteger%2 2-215-215215-1215-1范范围围内的任何整数内的任何整数长长整型整型LongLong&4 4-231-23123-123-1范范围围内的任何整数内的任何整数单单精度精度实实数型数型SingleSingle！4 4绝对值绝对值在在1.401298E-45 1.401298E-45 3.402823E+383.402823E+38内内的任何的任何实实数，有效数字数，有效数字约约6767位位双精度双精度实实数型数型DoubleDouble#8 8

4、绝对值绝对值在在10E-324 10E-324 1.79E3081.79E308内的任何内的任何实实数，有效数字数，有效数字约约6767位位字字符符串串型型变长变长StringString$0 0231(231(约约2020亿亿)个字符个字符定定长长StringString$1 1216216（约约6540065400个字符）个字符）货币货币型型CurrencyCurrency 8 8-922337203685477.5808-922337203685477.5808+922337203685477.5807+922337203685477.5807日期型日期型DateDate无无8 8100

5、100年年1 1月月1 1日日99999999年年1212月月3131日，日，对对象型象型ObjectObject无无4 4变变体型体型VariantVariant无无=16=16（1）字符串）字符串（String）型数据）型数据字符串是一个字符序列，由字符串是一个字符序列，由ASCII字符组成，包括标准的字符组成，包括标准的ASCII字符和扩展字符和扩展ASCII字符。在字符。在VB中，字符串是放在中，字符串是放在双引号双引号内的若干个字符，其中长度为内的若干个字符，其中长度为0（即不含任何字符）的字符串（即不含任何字符）的字符串称为空字符串。称为空字符串。字符串通常放在双引号中，但输出时不

6、显示双引号。例如：字符串通常放在双引号中，但输出时不显示双引号。例如：“Hello”“vb6.0程序设计程序设计”“”（空字符串）（空字符串）Vb中的字符串分为两种，即变长字符串和定长字符串。中的字符串分为两种，即变长字符串和定长字符串。变长字符串的长度是不确定的，从变长字符串的长度是不确定的，从0-2的的31次幂次幂定长字符串是含有确定个数的字符，最大长度不超过定长字符串是含有确定个数的字符，最大长度不超过2的的16次幂次幂在在VB中，中，String数据有可变长度字符型和固定长度字符型两类。数据有可变长度字符型和固定长度字符型两类。例如：例如：DimxasStringDimyasStrin

7、g*8在上面的变量声明中，变量在上面的变量声明中，变量x被声明为可变长度字符型；被声明为可变长度字符型；而变量而变量y被声明为固定长度字符型，其长度为被声明为固定长度字符型，其长度为8个字符。个字符。注意：注意：VB对其语法的大小写没有区别，对其语法的大小写没有区别，但在字符串中，但在字符串中，VB对对大小写是有区别的，大小写是有区别的，如果想忽视字符串大小写的区别，可以如果想忽视字符串大小写的区别，可以在窗体和标准模块的在窗体和标准模块的“通用通用”代码段中加上代码段中加上Optioncomparetext语句。语句。例如：例如：Optioncomparetextx=aaa:y=aAA这两个

8、字符串的值相同，如果去掉这两个字符串的值相同，如果去掉Optioncomparetext，则两字符串的值不同。，则两字符串的值不同。整数（Integer）：以两个字节（16位）的二进制码表示和参加运算，其取值范围为：-32768-32767l十进制整数只能包含数字09和正负号（正号可以省略），l其取值范围为-32768 32767。l十六进制整数由数字09、字母AF（或af）组成，并以&H引导，其后面的数据位数小于等于4位，其取值范围为&H0&HFFFF。l八进制整数由数字07组成，并以&O或&引导，其后面的数据位数小于等于6位，其取值范围为&O0&O177777。整型数分为整数和长整数。整型

9、数分为整数和长整数。（2）数值型数据长整型(Long):以带符号的4个字节（32位）二进制数存储，取值范围为：-2147483648-2147483647长整型数的数字组成与整数相同，正号可以省略，并且在数值中不能出现逗号（分节符）。十进制长整型数的范围为:-2147483648+2147483 647。十六进制长整型数以&H开头，以&结尾，其范围：&H0&HFFFFFFFF&。八进制长整型数以&O或&开头，以&结尾，其范围：&O0&O37777777777&。浮点数：浮点数：也称也称实型数实型数或实数，是带有小数部分的数值。它由三或实数，是带有小数部分的数值。它由三部分组成：符号、指数及尾数

10、。单精度浮点数和双精度浮点数部分组成：符号、指数及尾数。单精度浮点数和双精度浮点数的指数分别的指数分别用用“E”和和“D”来表示。来表示。例如：例如：123.45E3或或123.45e+3单精度数，相当于单精度数，相当于123.45乘以乘以10的的3次幂次幂123.45678D3或或123.45678d+3双精度数，相当于双精度数，相当于123.45678乘以乘以10的的3次幂次幂在上面的例子中，在上面的例子中，123.45或或123.45678是尾数部分，是尾数部分，E3、D3是指数部分。是指数部分。单精度数用来表示带有小数部分的实数，可以精确到7位十进制数，小数点可以位于这些数字的任何位置

11、，正号可以省略。单精度数有两种表示方法：定点表示法和浮点表示法。单精度数的定点表示法 在单精度数表示的范围内，如果这个数值含有小数，而不含指数，则可用定点表示法。例如：-1.4 178.9 +55.8 .000 077 8 -346.788 443 单精度数的浮点表示法 浮点表示法就是数学中的科学计数法，即以10的整数次幂表示的数，以字母“E”来表示底数10。例如：2.3103,0.000 332 21 10-21分别表示为：-2.3E3 .00033221E-21 单精度浮点数（Single）：以4个字节（32位）存储，其中符号占1位，指数占8位，其余23位表示尾数，此外还有一个附加的隐含位

12、。双精度数也有两种表示方法：定点表示法和浮点表示法。双精度数的定点表示法 在双精度数表示的范围内，如果这个数含有小数，而不含指数，则可用定点表示法。例如：-12.234 456 788 0.543 367 775 100 111 111.125 6 双精度数的浮点表示法 这是更大范围的科学计数法，即以10的整数次幂表示的数，以字母“D”来表示底数10。例如：-1.4477332D87 245.65453221D-4 .23456778D+5双精度浮点数（双精度浮点数（Double）：）：以以8个字节（个字节（64位）位）存储，其中符号占存储，其中符号占1位，指数占位，指数占11位，其余位，其余

13、52位表示尾数，位表示尾数，此外还有一个附加的隐含位。此外还有一个附加的隐含位。双精度浮点数可以精确到双精度浮点数可以精确到15或或16位十进制数，位十进制数，其负数的取值范围为：其负数的取值范围为：-1.797693134862316D+308-4.94065D-324，正数的取值范围为：正数的取值范围为：4.94065D-324-1.797693862316D+308使用说明使用说明（1）如果数据包含小数，则应使用单精度数或双精度数。（2）在VB中，数值型数据都有一个有效的范围值，程序中的数如果超出规定的范围，就会出现“溢出”信息。如果该数小于范围的下限值，系统将按0处理；如果大于上限值，

14、则系统只按上限值处理，并显示出错误信息。（3）一般情况下VB使用十进制数计数，但有时也使用十六进制数和八进制数表示，表示值时它们与十进制是等价的。（4）所有数值变量都可以相互赋值，也可对变体(Variant)类型变量赋值。在将浮点数赋予整数之前，VB要将浮点数的小数部分四舍五入，而不是将小数部分去掉。（3）货币（货币（Currency）货币数据类型是为表示钱款而设置的。该数据类型以货币数据类型是为表示钱款而设置的。该数据类型以8个字个字节（节（64位）位）存储，精确到小数点存储，精确到小数点后后4位位（小数点前有（小数点前有15位），位），在小数点后在小数点后4位以后的数字将被舍去。取值范围是

15、：位以后的数字将被舍去。取值范围是：-922337203685477.5808-922377203685477.5807浮点数中的小数点是浮点数中的小数点是“浮动浮动”的，即小数点可以出现在数的的，即小数点可以出现在数的任何位置，而货币类型数据的小数点是固定的，因此称为定任何位置，而货币类型数据的小数点是固定的，因此称为定点数据类型。点数据类型。（4 4）变体（）变体（VariantVariant）Variant数据类型又称为万用数据类型，它是一种特殊的、数据类型又称为万用数据类型，它是一种特殊的、可以表示所有系统定义类型的数据类型。可以表示所有系统定义类型的数据类型。变体数据类型对数据的处理

16、可以根据上下文的变化而变化，变体数据类型对数据的处理可以根据上下文的变化而变化，除了定长的除了定长的string数据及用户自定义的数据类型之外，可以数据及用户自定义的数据类型之外，可以处理任何类型的数据而不必进行数据类型的转换，如上所述处理任何类型的数据而不必进行数据类型的转换，如上所述的数值型、日期型、对象型、字符型的数据类型。的数值型、日期型、对象型、字符型的数据类型。Variant数据类型是数据类型是VB对所有未定义的变量的缺省数据类型对所有未定义的变量的缺省数据类型的定义。通过的定义。通过VarType函数可以检测函数可以检测Variant型变量中保存的型变量中保存的具体的数据类型。具

17、体的数据类型。（5）其它数据类型）其它数据类型字节（字节（Byte）：）：实际上是一种数值类型，以实际上是一种数值类型，以1个字节的无符个字节的无符号二进制数存储，取值范围是号二进制数存储，取值范围是0-255布尔（布尔（Boolean）:布尔型数据是一个逻辑值，用两个字节布尔型数据是一个逻辑值，用两个字节存储，它只取两种值，即存储，它只取两种值，即True或或False，经常用来表示逻辑经常用来表示逻辑判断的结果。判断的结果。日期（日期（Date）:日期存储为日期存储为64位浮点数值形式，表示的日期位浮点数值形式，表示的日期从公元从公元100年年1月月1日日9999年年12月月31日，时间范

18、围为日，时间范围为0:00:0023:59:59。任何在字面上可以被认作日期的文本都可以赋值给日期变任何在字面上可以被认作日期的文本都可以赋值给日期变量，且日期量，且日期文字必须用符号文字必须用符号“#”括起来括起来，如，如#January15,2002#，#1985-10-19:45:00PM#都是合法的日期型数都是合法的日期型数据。据。注意注意注意注意：将其他数据类型的数值转换为日期型时，小数点左边的值表示日期：将其他数据类型的数值转换为日期型时，小数点左边的值表示日期：将其他数据类型的数值转换为日期型时，小数点左边的值表示日期：将其他数据类型的数值转换为日期型时，小数点左边的值表示日期信

19、息，小数点右边的值则代表时间信息。信息，小数点右边的值则代表时间信息。信息，小数点右边的值则代表时间信息。信息，小数点右边的值则代表时间信息。0 0为午夜，为午夜，为午夜，为午夜，0.50.5为正午。负数表示为正午。负数表示为正午。负数表示为正午。负数表示公元公元公元公元18991899年年年年1212月月月月3131日之前的日期。日之前的日期。日之前的日期。日之前的日期。（4）对象（）对象（Object）对象类型的数据主要是以变量形式存在的，用来表示图形、对象类型的数据主要是以变量形式存在的，用来表示图形、OLE对象或其它对象，对象或其它对象，Object变量通过变量通过32位（位（4字节）

20、来存字节）来存储，该地址可以引用应用程序中的对象。储，该地址可以引用应用程序中的对象。（5）用户自定义数据类型）用户自定义数据类型用户可根据实际需要利用用户可根据实际需要利用vb提供的标准数据类型，在提供的标准数据类型，在VB中使中使用用Type关键字可以定义程序员所有的自定义类型数据。关键字可以定义程序员所有的自定义类型数据。如表示一个学生的信息如表示一个学生的信息 学号，姓名，性别，年龄学号，姓名，性别，年龄学号，姓名，性别，年龄学号，姓名，性别，年龄=1001=1001，黎明，男，黎明，男，黎明，男，黎明，男，2121不能用单一的标准类型表示。使用不能用单一的标准类型表示。使用Type关

21、键字可以定义新类关键字可以定义新类型型2.2常量和变量常量和变量计算机所处理的数据，必须先存入内存单元。命名后的内存计算机所处理的数据，必须先存入内存单元。命名后的内存单元就是常量或者变量。单元就是常量或者变量。常量在程序执行期间其值不发生变化，而变量的值是可变的，常量在程序执行期间其值不发生变化，而变量的值是可变的，它们都代表内存中指定的存储单元。它们都代表内存中指定的存储单元。在程序中，不同类型的数据既可以以常量的形式出现，也可在程序中，不同类型的数据既可以以常量的形式出现，也可以以变量的形式出现。以以变量的形式出现。常量常量常常量量，是是指指在在程程序序不不能能发发生生变变化化的的量量。

22、常常量量有有直直接接常常量量和和符符号号常常量量两两种种，符符号号常常量量又又包包括括程程序序员员声声明明的的常常量量和和系系统统提提供供的常量。的常量。直接常量符号常量 (1)程序员声明的常量 (2)系统提供的常量常量常量直接常量直接常量直直接接常常量量在在程程序序中中以以常常规规的的、明明显显的的方方式式来来表表示示。根根据据使使用用的的数数据据类类型型不不同同，直直接接常常量量可可分分为为：数数值值常常量量、字字符符串串常常量量、布尔布尔常量和日期常量。常量和日期常量。(1)数值常量就是常数，包括整型数、长整型数、单精度数、双精度数。例如：123 456789 3.14159 -4.5d

23、-3(2)字符串常量是用两个双引号括起来的一串字符。这些字符可以是除双引号和回车符、换行符以外的所有字符。例如：China、*1234567“(3)布尔常量只有True(真)和False(假)两个值。(4)日期常量是用两个“”号把表示日期和时间的值括起来表示日期常量。例如：#April 13,2001#2001-4-13 10:30:25 PM#常量常量(符号常量符号常量)程序员声明的常量程序员声明的常量在程序中，用标识符表示的常量称为符号常量。在在程序中，用标识符表示的常量称为符号常量。在VB中使中使用关键字用关键字Const定义符号常量，其格式为：定义符号常量，其格式为：ConstAs=符

24、号常量的例子：符号常量的例子：ConstPiAsDouble=3.1415926ConstPi_Two=Pi*2ConstString1=String1注意注意：如果用逗号进行分隔，则在一行中可放置多个常量声明，如果用逗号进行分隔，则在一行中可放置多个常量声明，例如：例如：ConstPi=3.1415926，Max=100，Min=0注意：注意：1、常量声明格式中的、常量声明格式中的As类型类型可以用类型说明符代替可以用类型说明符代替 为了显式地说明常数的类型，可以在常数的后面加上类型说为了显式地说明常数的类型，可以在常数的后面加上类型说明符，以确切地说明数据类型。明符，以确切地说明数据类型。

25、%：整型：整型&：长整型：长整型!：单精度浮点数：单精度浮点数#：双精度浮点数：双精度浮点数：货币型：货币型$：字符串型：字符串型例如：例如：Consta%=100Constname$=“shanxi”2、常量名不能与关键字或所在过程内的其他常量或变量同名，、常量名不能与关键字或所在过程内的其他常量或变量同名，其有效作用范围为常量声明语句所在的程序单位。其有效作用范围为常量声明语句所在的程序单位。3、Vb在判断常量类型时有时候存在多义性。在默认情况下，在判断常量类型时有时候存在多义性。在默认情况下，选择系统开销最小的表示方法。选择系统开销最小的表示方法。4、经过声明的常量是常数值的名字，不能在

26、程序代码中修改、经过声明的常量是常数值的名字，不能在程序代码中修改它的值。它的值。常量常量(符号常量符号常量)系统提供的常量系统提供的常量在在vb的对象库中，提供了应用程序和控件的系统常量。由系统的对象库中，提供了应用程序和控件的系统常量。由系统设定的系统符号常数，它们不需要定义而直接使用。设定的系统符号常数，它们不需要定义而直接使用。如如vbCrlf表示回车换行，表示回车换行，vbRed表示颜色的值为十进制表示颜色的值为十进制255。可以在系统的对象浏览器中找到有关的常数定义。可以在系统的对象浏览器中找到有关的常数定义。例如：例如：form1.WindowState=1form1.Windo

27、wState=vbMinimized“视图视图”“对象浏览器对象浏览器”（或（或F2）变量变量变量变量是指在程序中可以发生变化的量。变量有三是指在程序中可以发生变化的量。变量有三个要素：名字个要素：名字、类型类型和和值。值。变量名字用在程序里，代表这个变量。变量名用在变量名字用在程序里，代表这个变量。变量名用在可以计算的一个式子中，则代表这个变量在内存中的内可以计算的一个式子中，则代表这个变量在内存中的内容，即该变量的值。容，即该变量的值。变量命名变量声明 (1)变量显式声明 (2)变量隐式声明 (3)强制显式声明变量语句Option Explicit常量或变量的命名规则常量或变量的命名规则V

28、B变量或常量名只能用字母、数字、汉字和下划线组成，变变量或常量名只能用字母、数字、汉字和下划线组成，变量名中不能包含小数点。量名中不能包含小数点。VB变量或常量名的第一个字符必须是字母或汉字，最后一个变量或常量名的第一个字符必须是字母或汉字，最后一个字符可以是类型说明符，且组成变量或常量名的字符数不得字符可以是类型说明符，且组成变量或常量名的字符数不得超过超过255个字符。个字符。不得使用不得使用VB的保留名或保留名后加上类型说明符来作为变量的保留名或保留名后加上类型说明符来作为变量或常量名。例如：或常量名。例如：print、print$作为变量名均是非法的。作为变量名均是非法的。变量或常量名

29、在同一个范围内必须是唯一的。变量或常量名在同一个范围内必须是唯一的。变量或常量名不区分大小写。在定义一个变量后，只要字符变量或常量名不区分大小写。在定义一个变量后，只要字符相同，则不管其大小写，指的都是一个变量或常量。相同，则不管其大小写，指的都是一个变量或常量。变量声明变量声明变量显式声明变量显式声明变量在使用前一般需要声明。最常用的变量声明变量在使用前一般需要声明。最常用的变量声明语句是语句是Dim。用用Dim等语句来声明变量称为强制等语句来声明变量称为强制显式声显式声明明。用。用Dim声明变量的语法格式是：声明变量的语法格式是：DimAslDim:用于在模块的通用部分定义模块变量以及过程

30、中定义用于在模块的通用部分定义模块变量以及过程中定义过程变量；过程变量；DimIAsInteger,YourNameAsString2.3运算符和表达式运算符和表达式运算形式通过一些简单的符号来描述，这些符号称为运算形式通过一些简单的符号来描述，这些符号称为运算符。运算符。被运算的对象称为操作数或运算量。运算量可以是常被运算的对象称为操作数或运算量。运算量可以是常量、变量、函数等。量、变量、函数等。由运算符和运算量组成的表达式描述了对哪些数据、由运算符和运算量组成的表达式描述了对哪些数据、以何种顺序进行什么样的操作。以何种顺序进行什么样的操作。在VB中有5类运算符和表达式：l算术运算符和算术表

31、达式l字符串运算符和字符串表达式l关系运算符和关系表达式l逻辑运算符和逻辑表达式算术运算符算术运算符（VB算术运算符：优先级从上至下）算术运算符：优先级从上至下）运算运算运算符运算符 表达式举例表达式举例说明说明乘方乘方XY取负取负-X乘法乘法*X*Y浮点除法浮点除法/X/Y整数除法整数除法XY截去小数，不舍入截去小数，不舍入求余数求余数ModXModY加法加法+X+Y减法减法-X-Y乘方运算乘方运算乘方运算用来计算乘方和方根。运算符为乘方运算用来计算乘方和方根。运算符为。例如：例如：102表示表示10的的2次幂次幂250.5表示表示25的平方根的平方根8（1/3）表示表示8的立方根的立方根注

32、意：当指数是一个表达式时，必须加上括号。注意：当指数是一个表达式时，必须加上括号。例如：例如：x(z+y)浮点数除法与整数除法浮点数除法与整数除法浮点数除法运算符（浮点数除法运算符（/）执行标准除法操作，其结果为浮点数。）执行标准除法操作，其结果为浮点数。例如，表达式例如，表达式3/2的结果为的结果为1.5整数除法运算符（整数除法运算符（）执行整除运算，结果为整型值，不舍入。）执行整除运算，结果为整型值，不舍入。例如，表达式例如，表达式32的结果为的结果为1整除的操作数一般为整型值。当操作数带有小数时，首先被整除的操作数一般为整型值。当操作数带有小数时，首先被四舍五入为整型数，然后进行整除运算

33、，运算结果不舍入。四舍五入为整型数，然后进行整除运算，运算结果不舍入。例如：例如：25.636.78的结果为的结果为3求余数运算求余数运算取模运算符取模运算符Mod用来求余数，其结果为第一个操作数整用来求余数，其结果为第一个操作数整除第二个操作数所得的余数。除第二个操作数所得的余数。例如：例如：7Mod4的结果为的结果为325.68Mod6.99的结果为的结果为5（先进行四舍五入变为（先进行四舍五入变为26和和7，再取模），再取模）例：查看运行结果。例：查看运行结果。PrivateSubCommand1_Click()a=35b=12c$=ssssd$=qqqPrinta+b,a-b,a*b,

34、a/bPrintab,aModb,b2,2*-aEndSub关系运算符关系运算符 也也称称比较运算符，用来对两个表达式的值进行比较，比较的比较运算符，用来对两个表达式的值进行比较，比较的结果是一个逻辑值，即真（结果是一个逻辑值，即真（True）或假（或假（False）。）。VB提供提供了了8个关系运算符。个关系运算符。测试关系测试关系运算符运算符表达式举例表达式举例等于等于=X=Y不等于不等于或或XY小于小于XXY小于等于小于等于=X=X=Y1、数据如何比较？2、日期如何比较？3、字符如何比较？逻辑运算符逻辑运算符也称布尔运算。用逻辑运算符连接两个或多个关系式，组成也称布尔运算。用逻辑运算符连

35、接两个或多个关系式，组成一个布尔表达式。有一个布尔表达式。有6种逻辑运算符。种逻辑运算符。VB逻辑运算符：优先级从上至下逻辑运算符：优先级从上至下逻辑逻辑运算符运算符表达式举例表达式举例 说明说明非非NotNotX原来为真，否定为假原来为真，否定为假与与AndXAndY其一为假，结果为假其一为假，结果为假或或OrXOrY其一为真，结果为真其一为真，结果为真逻辑运算表：逻辑运算表：-1-1为真，为真，0 0为假为假XYNotXXAndYXOrY-1-10-1-1-1000-10-1-10-100-100例：查看运行结果。例：查看运行结果。PrivateSubCommand1_Click()a=1

36、:b=2c=3:d=4PrintabAndcdPrintadPrintNotastring2位置位置07 7、字母大小写转换函数、字母大小写转换函数 UcaseUcase(字符串字符串)：将字符串转换为大写：将字符串转换为大写LcaseLcase(字符串字符串)：将字符串转换为小写：将字符串转换为小写例：使用函数。查看运行结果。例：使用函数。查看运行结果。PrivateSubCommand1_Click()PrintUCase(Rose)返回字符串返回字符串ROSEPrintLCase(Rose)返回字符串返回字符串roseEndSub随机函数：随机函数：函数函数功能功能Rnd(x)产生一个产

37、生一个0-1之间的单精度随机数之间的单精度随机数Rnd(x):当当x0时，序列中的下一个随机数，上一个产生的随机数为下时，序列中的下一个随机数，上一个产生的随机数为下一个随机数的种子。一个随机数的种子。当一个应用程序不断地重复使用随机数时，同一序列的随机数当一个应用程序不断地重复使用随机数时，同一序列的随机数会反复出现，用会反复出现，用Randomize语句可以消除这种情况。语句可以消除这种情况。格式：格式：RandomizenumberRandomize用用number将将Rnd函数的随机数生成器初始化，函数的随机数生成器初始化，该随机数生成器给该随机数生成器给number一个新的种子值。一

38、个新的种子值。如果省略如果省略number，则用系统计时器返回的值作为新的种子则用系统计时器返回的值作为新的种子值。值。例：使用例：使用rnd函数随机生成一个函数随机生成一个1到到6的随机整数。的随机整数。PrivateSubCommand1_Click()Dimmyvaluemyvalue=Int(6*Rnd)+1)PrintmyvalueEndSub公式：公式：Int(upper-lower+1)*Rnd+lower)日期函数：日期函数：函数函数功能功能例例Time返回系统当前时返回系统当前时间间Date返回系统当前日返回系统当前日期期Month(x)返回自变量中的返回自变量中的月份月份M

39、onth(#12/31/2002#)的值为的值为12Year(x)返回自变量中的返回自变量中的年份年份Year(#12/31/2002#)的值为的值为2002;Year(Now)的值的值为当前的年份为当前的年份例：请编制程序，打印下列函数结果，自变量的值自己设置一例：请编制程序，打印下列函数结果，自变量的值自己设置一个数据。个数据。PrivateSubCommand1_Click()PrintDay(Now)PrintDate()PrintMonth(Now)PrintYear(Now)PrintNowEndSub注意：日期和时间函数的自变量注意：日期和时间函数的自变量now是一个内部变量，是

40、一个内部变量，不需要用户定义，用它作自变量，可以用日期和时间函不需要用户定义，用它作自变量，可以用日期和时间函数返回当前系统的日期和时间。数返回当前系统的日期和时间。时间函数：时间函数：函数函数功能功能例例Hour(x)返回自变量中的小返回自变量中的小时（时（0-23）Hour(#12/31/20025:30:20PM#)的值为的值为17Minute(x)返回自变量中的分返回自变量中的分钟（钟（059）Minute(#12/31/20025:30:20PM#)的值为的值为30Second(x)返回自变量中的秒返回自变量中的秒钟（钟（059）Second(#12/31/20025:30:20PM

41、#)的值为的值为20例：请编制程序，打印下列函数结果，自变量的值自己设置一例：请编制程序，打印下列函数结果，自变量的值自己设置一个数据。个数据。PrivateSubCommand1_Click()PrintHour(Now)PrintMinute(Now)PrintSecond(Now)PrintNowEndSub转换函数：转换函数：函数函数功能功能例例Int(x)返回不大于自变量的整数返回不大于自变量的整数Int(5.3)的值为的值为5;Int(-7.8)的值为的值为-8Fix(x)返回自变量的整数部分返回自变量的整数部分Fix(5.3)的值为的值为5;Fix(-7.8)的值为的值为-7Va

42、l(x)将数字字符串转换成数值型常数将数字字符串转换成数值型常数Val(“12ab”)的值为的值为12Oct$(x)返回代表八进制值的字符串返回代表八进制值的字符串Oct$(459)的值为的值为713Asc(x$)返回字符串返回字符串x$的第一个字母的的第一个字母的ASCII码码Asc(Apple)的值为的值为65Chr$(x)返回返回x的值的的值的ASCII码的字母码的字母Chr(65)的值为的值为AStr(x)将自变量将自变量x转换为字符串转换为字符串S Str(-459.65)的值为的值为-459.65Cint(x)将自变量将自变量x转换为整数，小数部分四舍五入转换为整数，小数部分四舍五

43、入Cint(7/2)的值为的值为4Ccur(x)将自变量将自变量x转换为货币型，小数部分最多转换为货币型，小数部分最多4位，四舍五入位，四舍五入Ccur(31.245678)的值为的值为31.2457CDbl(x)将自变量将自变量x转换为双精度数转换为双精度数CLng(x)将自变量将自变量x转换为长整形，小数部分四舍五入转换为长整形，小数部分四舍五入CLng(31.32)的值为的值为31CSng(x)将自变量将自变量x转换为单精度数转换为单精度数CVar(x)将自变量将自变量x转换为变体类型转换为变体类型注意：注意：当小数部分恰好为当小数部分恰好为0.5时，时，Cint和和CLng函数会将它转

44、函数会将它转换为最接近的偶数值。换为最接近的偶数值。例：请编制程序，打印下列函数结果，自变量的值自己设置一例：请编制程序，打印下列函数结果，自变量的值自己设置一个数据。程序如下：个数据。程序如下：PrivateSubCommand1_Click()PrintInt(7.6),Int(-7.8)PrintFix(7.8),Fix(-7.8)PrintStr(7.8)+aaaaPrintCInt(3.5);CInt(4.5);CInt(4.6);Int(5.3)PrintCLng(3.5);CLng(4.5);CInt(4.6);CInt(5.3)EndSub与Print 方法有关的函数和方法Ta

45、b函数 Spc函数Tab函数格式格式：Tab(nTab(n)效果：效果：Tab函数是在输出前将光标移动到第函数是在输出前将光标移动到第n列。列。说明：说明：（1）参数）参数n值为整数，表示在输出前把光标（或打印头）移到值为整数，表示在输出前把光标（或打印头）移到该列。如果当前显示位置已经该列。如果当前显示位置已经超出超出n n，则，则自动下移一行自动下移一行。（2）当一个）当一个print方法中有多个方法中有多个Tab函数时，每个函数时，每个Tab函数对应函数对应一个输出项，各输出项之间用一个输出项，各输出项之间用分号分号分隔分隔例子例子：printtab(10),”abc”;printtab

46、(30),”def”Spc函数格式：格式：SpcSpc（n n）效果：效果：Spc函数是在显示（输出）下一个表达式之前插入函数是在显示（输出）下一个表达式之前插入n个个空白。空白。说明：说明：参数参数n是一个数值表达式，取值范围为是一个数值表达式，取值范围为032767032767的整数的整数。Spc函数与输出项之间用函数与输出项之间用分号分号分隔。分隔。例子：例子：print“abc“;spc(3);”def”文本数据输入输出对话框InputBox函数函数用来接受用户通过键盘输入的数据用来接受用户通过键盘输入的数据Var=InputBox(提示信息,对话框标题,默认值)提示信息：提示用的文字

47、信息，字符串类型，长度：提示用的文字信息，字符串类型，长度=y，则不需要做处理 如果xy，则做交换处理实现：If x y Thentemp=xx=yy=tempEnd If用格式2描述：If x=“a”And ch=“A”And ch=“0”And ch=“a a”And And chch=“A A”And And chch=“0 0”And And chch=10 Then x10 y=3*Cos(x)-x 2+9ElseIf x 3 Then 3 3 And x 3 And x=10可以，但可以，但ElseElse已经包含了已经包含了x=10 x y ThenPrint x&“”&yEls

48、eIf xy ThenPrint x&“”&yElse Print x&“=”&yEnd If End If一条一条IfIf语句语句一条一条IfIf语句语句6.1 If语句的嵌套(续)注1：内层If语句必须完整地出现在外层If语句的Then子句或Else子句中。外层外层IfIf内层内层IfIf内层内层IfIf内外层不能有交叉内外层不能有交叉内外层不能有交叉内外层不能有交叉！6.1 If语句的嵌套(续)注2：ElseIf的匹配原则Else总是与上面距离其最近的未被匹配过的 If匹配 If ThenIf Then Else End IfElseIf Then If Then Else End If

49、End If6.1 If语句的嵌套(续)为使程序结构更为清晰，要养成良好的书写习惯。If ThenIf Then Else End IfElseIf Then If Then Else End IfEnd If为为体体现现层层次次，可可以以使使用用TabTab键键排排放放不不同同层层次次的的语句语句Private Sub cmdcalculate_Click()Dim a,b,c As Double a=Val(txta.Text)b=Val(txtb.Text)If labsign.Caption=+Then c=a+b ElseIf labsign.Caption=-Then c=a-b

50、ElseIf labsign.Caption=Then c=a/b ElseIf labsign.Caption=Then c=a*b Else MsgBox(您输入的符号不正确,vbOKOnly,错误信息)End If txtc.Text=c 将运算结果c输出到文本框txtc中 cmdcls.SetFocusEnd Sub例：简单计算器除数为除数为除数为除数为0 0 0 0？If b 0 Then c=a/bElse MsgBox 被被0除除 exit subEnd If Select Case语句(多分支语句)格式：Select CaseSelect Case 测试表达式测试表达式 Cas