[院校资料]第三章设计基础ppt课件

1、第第 3 章章 Visual Basic 程序设计程序设计3.1 3.1 代码根底代码根底 数据数据data)data)：是反映客观事物属性的记录。：是反映客观事物属性的记录。数据是计算机程序加工处置的符号数、字符的集合。不同的数据是计算机程序加工处置的符号数、字符的集合。不同的数据类型的存储方式不同，取值范围不同，能参与的运算也不同。数据类型的存储方式不同，取值范围不同，能参与的运算也不同。 字符集字符集(character set)(character set)：它包括三大类；：它包括三大类；1 1数字数字 (digit) (digit)：0 - 90 - 9十个数字。十个数字。2 2字母

2、字母 (Uppercase and lowercase letter) (Uppercase and lowercase letter)3 3特殊字符特殊字符(special character)(special character) Space Space ！ “ # $ & % : ; , = = # $ & % : ; , = = ? _ + - ? _ + - * * / / 等等 关键字关键字Keyword): VBKeyword): VB系统中有固定含义的字符。系统中有固定含义的字符。如：如：Private, Public, Dim, Print, ClickPri

3、vate, Public, Dim, Print, Click 在编写代码时，要声明和命名许多元素。标识符用在编写代码时，要声明和命名许多元素。标识符用于标志这些元素于标志这些元素 的名字，以便在代码中对它们进的名字，以便在代码中对它们进展援用。标识符命名规那么如下：展援用。标识符命名规那么如下：必需以字母开头。必需以字母开头。长度不超越长度不超越255个字符如变量。个字符如变量。控件、窗体、模块的称号不超越控件、窗体、模块的称号不超越40个字符个字符不能运用关键字。不能运用关键字。标识符标识符(identifier)(identifier)语句的书写规那么语句的书写规那么1 1严厉按照严厉按

4、照VBVB的语法格式要求进展书写。的语法格式要求进展书写。本书在提供各种语法成分的通用格式时，格式中的符号采用如下商定本书在提供各种语法成分的通用格式时，格式中的符号采用如下商定 表示其中的参数是可选的。如中括号中的内容省略，那么表示其中的参数是可选的。如中括号中的内容省略，那么VBVB会会运用该参数的缺省值即默许值。运用该参数的缺省值即默许值。| | 为多项选择一表示符。竖线分隔多个选择项，必需选择其中之一。为多项选择一表示符。竖线分隔多个选择项，必需选择其中之一。 大括号中包含多个用竖线大括号中包含多个用竖线“|“|隔开的多个选择项，必需从隔开的多个选择项，必需从中选择一项。中选择一项。，

5、 表示同类工程反复出现，各项之间用逗号隔开。表示同类工程反复出现，各项之间用逗号隔开。 表示省略了在当时表达中不涉及的部分表示省略了在当时表达中不涉及的部分2 2每条语句通常单独占一行，一行允许多达每条语句通常单独占一行，一行允许多达255255个字符。个字符。3 3如在一行中写多条语句，语句之间要用冒号分隔。如在一行中写多条语句，语句之间要用冒号分隔。例如：例如：Form1.FontSize=14 : Form1.BackColor=vbRedForm1.FontSize=14 : Form1.BackColor=vbRed4 4假设想将一条语句写在多行上，那么可以在行末尾加续行字符假设想将

6、一条语句写在多行上，那么可以在行末尾加续行字符一个空格加一个下划线一个空格加一个下划线 ) )表示此行尚未终了。例如：表示此行尚未终了。例如： Text3.Text = Val(Text1.Text) + _ Text3.Text = Val(Text1.Text) + _ Val(Text2.Text) Val(Text2.Text)为了便于代码的阅读和维护，通常要给代码添加注释，注释的为了便于代码的阅读和维护，通常要给代码添加注释，注释的对象可以是一条语句，一段代码或整个程序。注释语句格式如下：对象可以是一条语句，一段代码或整个程序。注释语句格式如下： | Rem | Rem 注释内容注释

7、内容 表示可以运用单引号或表示可以运用单引号或RemRemremark)remark)来引入注释。来引入注释。 RemRem与注释内容之间应至少空一个空格。与注释内容之间应至少空一个空格。 假设需求延续多行书写注释，需在每行开场以假设需求延续多行书写注释，需在每行开场以RemRem或或 开头开头 注释语句是非执行语句，它不被解释和编译，但在程序清单中，注释语句是非执行语句，它不被解释和编译，但在程序清单中， 将完好地列出注释。将完好地列出注释。 注释语句不能放在续行符的后面。注释语句不能放在续行符的后面。 在调试程序时，对于某些暂时不用的语句以后还要运用，可以在调试程序时，对于某些暂时不用的语

8、句以后还要运用，可以 在这些语句之前添加在这些语句之前添加RemRem或或 暂时停顿其执行，在需求的时候再暂时停顿其执行，在需求的时候再去掉去掉RemRem或或 ，使其起作用，这样可减少代码的修正量。，使其起作用，这样可减少代码的修正量。给代码添加注释给代码添加注释第二章 程序设计根底3.2 数据类型数据类型3.2.1 系统定义的数据类型系统定义的数据类型 3.2.2 用户自定义数据类型用户自定义数据类型 3.2.1 规范数据类型规范数据类型1 1数值型数值型Numeric TypeNumeric Type2 2字符型字符型String TypeString Type3 3货币型货币型Curr

9、ency TypeCurrency Type4 4日期型日期型Date TypeDate Type5 5布尔型布尔型Boolean TypeBoolean Type6 6对象型对象型Object TypeObject Type7 7变体型变体型Variant TypeVariant Type8 8字节型字节型Byte TypeByte Type 1 1单精度单精度Single!Single!： 2 2、浮点数、浮点数 4 4个字节，个字节，7 7位有效数，位有效数，123.45! 123.45! 1.2345E+51.2345E+5 float 2 float 2双精度双精度Double #D

10、ouble # 8 8个字节个字节,15,15位有效数，位有效数，- -345.88#, -3.08D-5345.88#, -3.08D-53、货币型、货币型 8个字节，个字节， 123.56 Currency 可保管小数点右边可保管小数点右边4位位,左边左边15位位 1根本整型根本整型 basic Integer % suffix 占占2Byte, 34% 、&O34% 、&34%、&H12FF% 1、整型、整型 2长整型长整型Long integer：&, integer 占占4Byte, 12&, &12&, &H12&am

11、p;. 3字节型字节型Byte 占占1Byte,0-255定义标志变量定义标志变量 1、数值型、数值型 Numeric2、字符串数据类型、字符串数据类型String $ 必需用一对西文双引号括起来。必需用一对西文双引号括起来。 “hello , “他好他好,“342String类型的数据所占的空间与字符串的长度有关类型的数据所占的空间与字符串的长度有关 1、定长字符串、定长字符串fixed-size String Dim a As string * 9 (最长最长65535个字符个字符 2、变长字符串、变长字符串(Dynamic-size String) Dim b As string双引号在

12、代码中起字符串的定界作用，不是字符串的一部双引号在代码中起字符串的定界作用，不是字符串的一部分。分。在字符串中，字母的大小写是有区别的。在字符串中，字母的大小写是有区别的。假设字符串本身包括双引号，可用延续两个双引号表示假设字符串本身包括双引号，可用延续两个双引号表示print You must study hard , he said. you must study hard , he said.3 3、日期、日期/ /时间型时间型DateDate： # 1 Jan 2002 #, # 25/10/02/ # # 1:00:00 # # 1 Jan 2002 #, # 25/10/02/ #

13、 # 1:00:00 # 自动转换日期为自动转换日期为“月月/ /日日/ /年年 ，输出，输出 “ “ 年年- -月月- -日日 自动转换时间为自动转换时间为1212小时制小时制(AM/PM)(AM/PM)，输出，输出: : 上上/ /下午下午1212小时制小时制例如例如: :A = # 5 Jan 2002 #, : b= # 1:00:00 PM # A = # 5 Jan 2002 #, : b= # 1:00:00 PM # Print APrint A； b , b , 输出输出 2002-1-5 2002-1-5 下午下午01:00:0001:00:00 日期型数据在内存中占日期型

14、数据在内存中占8 8个字节，个字节， 表示范围：表示范围：100100年年1 1月月1 1日至日至99999999年年1212月月3131日日4 4、逻辑型、逻辑型(Boolean)(Boolean)： (2 (2 个字节个字节) )、只需两个值：、只需两个值：True True 和和 False False Boolean Boolean 转成转成 number number：True - -1True - -1，False - 0 False - 0 number number 转成转成 Boolean Boolean ：非零：非零 - True - True，0 - False 0 -

15、False 6 6、对象型、对象型(Object)(Object)：4 4个字节用于存储个字节用于存储OLEOLE对象对象, ,如电子表格，文档、图片等。如电子表格，文档、图片等。5 5、可变类型、可变类型Variant)Variant)：是一种可以转换的数据类型，它可以根据程序的需求接受是一种可以转换的数据类型，它可以根据程序的需求接受VBVB的各种数据类型的各种数据类型3.4 3.4 变量变量(variable)(variable)：变量是在程序运转期间其值发生变化的量，用降暂变量是在程序运转期间其值发生变化的量，用降暂时存储数据，代表内存中的指定的单元。时存储数据，代表内存中的指定的单元

16、。程序是经过变量名来援用变量的值。程序是经过变量名来援用变量的值。1.1.变量名命名规那么：变量名命名规那么： 必需以字母或汉字开头，由字母、汉字、数字或必需以字母或汉字开头，由字母、汉字、数字或下划线组成，下划线组成， 中间不能有空格，长度小于等于中间不能有空格，长度小于等于256256个字符个字符 不能运用不能运用VBVB中的保管字，但可将保管字嵌入变量中的保管字，但可将保管字嵌入变量名中。名中。 VB VB不区分变量名的大小写，普通变量名首字母用不区分变量名的大小写，普通变量名首字母用大写，其他用小大写，其他用小 写字母表示；常量全部用大写字母表示写字母表示；常量全部用大写字母表示 3x

17、y 数字开头数字开头y - z 不允许出现减号不允许出现减号Wang Ping 不允许出现空格不允许出现空格Dim 不允许不允许VB关键字关键字Cos 规范函数名规范函数名 非法变量名非法变量名1.1.变量的声明变量的声明(Variable declaration(Variable declaration1).1).显式声明变量显式声明变量(explicit declaration):(explicit declaration):【格式】【格式】 声明符声明符 变量名变量名 AS AS 类型类型 例如：例如： Public x As Integer Public x As Integer Pr

18、ivate x%,y!,z$,a&,d Private x%,y!,z$,a&,d Dim a as string Dim a as string * * 50 50 Dim x,y,z As Integer Dim x,y,z As Integer在在VBVB中，变量根据不同的类型有不同的默许初值。中，变量根据不同的类型有不同的默许初值。变量类型变量类型 默许初值默许初值Number 0String “ Boolean FalseObject NothingDate 0/0/0Variant EmptyPublic, Private, Dim, StaticPublic, P

19、rivate, Dim, Static2). 2). 隐式声明隐式声明implicit declaration)implicit declaration) Private Sub Form_Click() Private Sub Form_Click() myString = “hello myString = “hello myString = 1234 myString = 1234 Print myStrng Print myStrng End Sub End Sub 演示演示1 13).3).设置强迫声明变量语句设置强迫声明变量语句(option explicit)(option ex

20、plicit)“工具工具- “- “选项选项- “- “编辑器编辑器- “- “要求变量声明要求变量声明留意：如何援用非当前模块的全局变量留意：如何援用非当前模块的全局变量? ?例如：例如：要在窗体要在窗体Form2Form2中输出窗体中输出窗体Form1Form1中全局变量中全局变量 x x 的值，应的值，应运用语句：运用语句： Print Form1. X Print Form1. X2.2.变量的作用域变量的作用域scopescope：1).1).工程级变量全局变量工程级变量全局变量 Global Variable Global Variable 用用PublicPublic在规范模块或

21、窗体模块的在规范模块或窗体模块的通用通用声明声明 处声明处声明 如：如：Public X As integerPublic X As integer2).2).模块级变量模块级变量( module variable)( module variable)： 用用Private Private 或或 Dim Dim 在在通用通用声明声明处声明处声明 Private x As integer Private x As integer Dim x As integer Dim x As integer 演示演示2 23).3).部分变量部分变量( (过程级变量过程级变量Local Variable)

22、Local Variable) 用用Dim Dim 或或 Static Static 在过程中声明在过程中声明 Dim x As integer Dim x As integer Static x As integer Static x As integer Static Static 称为静态变量称为静态变量 演示演示3 3 练习一练习一 1)1)直接常量直接常量如：数值型：如：数值型：34%34%，23& , 23& , 字符型：字符型：“他好，他好，“ABC“ABC 逻辑常量：逻辑常量：true, false true, false ， 日期常量：日期常量：#2021-2

23、-25#2021-2-25#2)2)用户声明的符号常量：用户声明的符号常量： 格式格式(syntax):(syntax):Public| Private Const Public| Private Const 常量名常量名 AS AS 类型类型= = 表达式表达式例例 Public Const pi# = 3.1415926 Public Const pi# = 3.14159263.3 3.3 常常 量量(constant)(constant)演示43)3)系统提供的符号常量：系统提供的符号常量： 如：如：Form1.WindowState = vbNormalForm1.WindowSta

24、te = vbNormal Text1.Forecolor = vbRed Text1.Forecolor = vbRed颜色常颜色常量组量组工程工程/库库颜色颜色常量常量系统系统定义定义查看内部常量查看内部常量: :运用运用“视图视图| |对象阅读器命令对象阅读器命令3.6 3.6 运算符与表达式运算符与表达式用运算符将运算对象即操作数衔接起来即构成表达式。用运算符将运算对象即操作数衔接起来即构成表达式。 VB VB有以下有以下6 6类运算符和表达式：类运算符和表达式： 1. 1.算术运算符与算术表达式算术运算符与算术表达式 2. 2.字符串运算符与字符串表达式字符串运算符与字符串表达式 3

25、. 3.关系运算符与关系表达式关系运算符与关系表达式 4. 4.布尔运算符与布尔表达式布尔运算符与布尔表达式 5. 5.日期运算符与日期表达式日期运算符与日期表达式 6. 6.对象运算符与对象表达式对象运算符与对象表达式3.6.1 3.6.1 算术运算符与表达式算术运算符与表达式 求指数求指数 exponentiation exponentiation - - 求负数求负数 negative negative * *乘乘 Multiplication Multiplication Mod Mod求余求余 modulus modulus / /浮点数除浮点数除 normal division n

26、ormal division + + 加加 addition addition 整除整除 integer division integer division - - 减减 subtraction subtraction1)1)算术运算符算术运算符(arithmetic operator)(arithmetic operator) 算术运算符两边的操作数应是数值型，算术运算符两边的操作数应是数值型，假设是数字字符或逻辑型，那么自动转换成数值类型后再运算。假设是数字字符或逻辑型，那么自动转换成数值类型后再运算。如：如：False + 10 + 4 = 14False + 10 + 4 = 14 2

27、. 2.参与整除或求余的运算对象应为整型，假设是小数，参与整除或求余的运算对象应为整型，假设是小数，VbVb会自会自动四舍五入变为整型再进展运算。如：动四舍五入变为整型再进展运算。如：11.6 Mod 5.2 = 211.6 Mod 5.2 = 22 2算术运算符的优先级算术运算符的优先级(arithmetic operator precedence)(arithmetic operator precedence)： 例：例：5+10 mod 10 9 / 3 +2 2 =103. 3. 一切的括号都用小括号一切的括号都用小括号. . 如如: q+a: q+a* *b+cb+c* *(a+b)

28、+c (a+b)+c 应改为应改为: q+(a: q+(a* *(b+c(b+c* *(a+b)+c) (a+b)+c) (由内向外计算由内向外计算ST3)3)书写算术表达式时应留意以下几点：书写算术表达式时应留意以下几点：1. 1. 一切符号、数值都应写在一条横线上、必要时加圆括号。一切符号、数值都应写在一条横线上、必要时加圆括号。 如：如：a + x+y a + x+y 2. 2. 乘号乘号* * 不能省。例；不能省。例； x x 乘以乘以y y 应写成：应写成：x x* *y y写成写成VBVB表达式为：表达式为：a+(x+y)/sa+(x+y)/s* *t t4 4“abcd“abcd

29、 + 123 + 123 出错信息出错信息, , 类型不匹配类型不匹配. . 3.6.2 3.6.2 字符运算符与表达式字符运算符与表达式字符串运算符字符串运算符 (string operator) (string operator)有有 “ + + 和和 “ & & 表达式表达式1 + 1 + 表达式表达式2 21 1 “123 “123 + “123 + “123 输出输出123123123123 2)“abc 2)“abc + “xyz + “xyz 输出输出abcxyzabcxyz3 3 “123 “123 + 123 + 123 输出输出 246 2461). “ 1

30、23 1). “ 123 & “ 456 & “ 456 输出输出 123456 123456 2). “abcdef2). “abcdef & 12345 & 12345 输出输出 abcdef12345 abcdef12345 3).“ 123 3).“ 123 & 456 & 456 输出输出 123456 123456 表达式表达式1 & 1 & 表达式表达式2 2留意：留意：运用运算符运用运算符“& &时，变量与时，变量与& &之间应加一个空格，这是由之间应加一个空格，这是由于符合于符合“

31、& &也是长整型的类型符，假设与变量连在一同也是长整型的类型符，假设与变量连在一同,VB,VB系统先把它作为类型符处置，因此就会出现语法错误。系统先把它作为类型符处置，因此就会出现语法错误。1.VB1.VB提供的运算符提供的运算符(relational operator)(relational operator)有有: : = =is equal to is equal to 或或 is not equal to is not equal to、 less than less than = greater than greater than = =greater than an

32、d equal to greater than and equal to 3.3.关系表达式的值是一个逻辑值，即关系表达式的值是一个逻辑值，即True(True(真和真和False(False(假假2.2.关系运算符优先级别关系运算符优先级别 一样，即从左到右运算。一样，即从左到右运算。3.6.3 3.6.3 关系运算符与表达式关系运算符与表达式4. 4. 各种数据类型的比较规那么如下：各种数据类型的比较规那么如下： 两个数值型：按大小比较两个数值型：按大小比较. . 逻辑型逻辑型: False : False 大于大于 True (-1 True (-1 表示表示 T, 0 T, 0 表示表

33、示 F ) F ) 3+( 3 2 ) 3+( 3 2 )的值是的值是 2 , 2 , 而而 3+(3 2) 3+(3 2)的值是的值是 3 3日期型日期型: : 将日期看成是将日期看成是yyyymmddyyyymmdd的的8 8位整数，按数值比较位整数，按数值比较 如：如：#2001/10/24# #2002/10/24# #2001/10/24# 29 “129129, ,结果为结果为FalseFalse 数值型与不能转化为数值型的数据比较： 如：77 “abc 系统出错常用常用ASCIIASCII码值有码值有: : 数字数字0 09 9的的ASCIIASCII码值依次为码值依次为 48

34、48 57. 57. “1 1 “B B F F 字母字母a a z z的的ASCIIASCII码值依次为码值依次为 97 97 122. 122.“a a “b b F F 空格的空格的ASCIIASCII码值为码值为3232 回车的回车的ASCIIASCII码值为码值为13 13 例如例如: : “ABCDEABCDE “ABDABD的值是的值是 False False “aBCDaBCD “ABCDABCD的值是的值是 True True字符型字符型: : 按字符按字符ASCIIASCII码值的大小从左到右一一比较码值的大小从左到右一一比较. .2.2.逻辑运算的结果是逻辑值，逻辑运算的

35、结果是逻辑值， True or False True or False1.VB1.VB提供的逻辑运算符提供的逻辑运算符(logic operator)(logic operator)有有: :NotNot非、非、AndAnd与、与、OrOr或或 XorXor异或、异或、 Eqv Eqv等价、等价、ImpImp蕴含蕴含3. 3. 优先级：优先级： Not Not、 And And、Or Or 、Xor Xor 、EqvEqv、 Imp Imp3.6.4 3.6.4 布尔运算符与表达式布尔运算符与表达式Not: Not: 即即 “ “取反。取反。 如：如： Not True Not True 的值

36、为的值为 False FalseAnd : And : 逻辑逻辑 “ “与运算：与运算：如：如： 32 22 And 55 50 32 22 And 55 50 的值为的值为 True True x y And False x y And False 的值恒为的值恒为FalseFalse Or: Or: 逻辑逻辑 “ “或运算或运算: :如如: 98 34 Or 45 76 : 98 34 Or 45 76 的值为的值为 True True 4. 4. 各个逻辑运算符的意义如下：各个逻辑运算符的意义如下：3.6.5 3.6.5 混合表达式的运算顺序混合表达式的运算顺序True False Tr

37、ue6 True False Falsea + b c + d And a = 5 Or Not c 0 Or d - 算术算术/ /字符串字符串 - - 关系关系 - - 逻辑运算逻辑运算1. -y2+x = -22+2 = -2, -2 = 2 1. -y2+x = -22+2 = -2, -2 = 2 其结果为其结果为 False False例如例如: : 设设 i=1,x=2,y=2, i=1,x=2,y=2, 求下面表达式的值求下面表达式的值 -y2+x = 2 Or Not y0 And (x-y)-5)/i 0 -y2+x = 2 Or Not y0 And (x-y)-5)/i

38、 02. y 0 2. y 0 的结果是的结果是 True True4.4.计算计算 False Or Not True And True False Or Not True And True 的值的值 FalseFalseFalse3. (x-y)-5)/i =(2-2)-5)/1=-5,-5 0 3. (x-y)-5)/i =(2-2)-5)/1=-5,-5 0 其结果为其结果为 True True3.5 3.5 常用内部函数常用内部函数3.5.1 3.5.1 数学数学函函数数3.5.2 3.5.2 字符串函字符串函数数3.5.3 3.5.3 转换转换函函数数3.5.4 3.5.4 日期日

39、期时间时间函函数数3.5.5 3.5.5 格式格式输输出函出函数数3.5.6 Shell 3.5.6 Shell 函函数数3.3 3.3 常用内部函数常用内部函数 VB VB 包括：内部函数包括：内部函数 (Internal Function) (Internal Function) 用户自定义函数用户自定义函数 (Selfdefined function) (Selfdefined function)VBVB常用的内部函数有：常用的内部函数有：数学函数数学函数(math )(math )、日期与时间函数、日期与时间函数Date and time Date and time 、转换函数转换函数

40、conversion conversion 、字符串函数、字符串函数(string )(string )等等函数的普通调用格式为：函数的普通调用格式为：函数名函数名 FunctionName FunctionName 参数表参数表 Arguments) Arguments)留意方法留意方法methodmethod与函数与函数functionfunction的区别的区别函数就是将某些常用的功能事先编好程函数就是将某些常用的功能事先编好程序代码，给定一个名字称为函数名序代码，给定一个名字称为函数名存入系统中，用户在调用时，只需求给存入系统中，用户在调用时，只需求给定自变量这里叫参数的值，就可以定自

41、变量这里叫参数的值，就可以前往一个函数值，前往一个函数值，学习和运用这些函数需留意学习和运用这些函数需留意6 6点：点：准确地掌握函数的功能；准确地掌握函数的功能；运用库函数要留意参数的个数及其数据类型；运用库函数要留意参数的个数及其数据类型；函数的前往值有确定的类型，因此在组成表达式时特别要留意类函数的前往值有确定的类型，因此在组成表达式时特别要留意类型匹配；型匹配；留意函数的定义域自变量或参数的取值范围。留意函数的定义域自变量或参数的取值范围。 例如：函数例如：函数sqr (x)sqr (x)，要求参数，要求参数x=0 x=0；留意函数的值域。留意函数的值域。 例如：例如：exp (237

42、73)exp (23773)的值就超出实数在计算机中的表示范围；的值就超出实数在计算机中的表示范围；函数的调用为：函数的调用为： 函数名函数名( (实践参数列表实践参数列表) ) 有参数函数有参数函数 函数名函数名()()无参数名，调用时可以省略括号无参数名，调用时可以省略括号函数名函数名含义含义实例实例 结果结果Abs(N)Abs(N) 取绝对值取绝对值 Abs(-3.5) Abs(-3.5) 3.5 3.5 Sin(N)Sin(N)正弦函数正弦函数Sin(0)Sin(0)0 0Exp(N)Exp(N)E E为底的指数函数，即为底的指数函数，即e ex xExp(3)Exp(3)20.086

43、20.086Rnd(N)Rnd(N)产生大于等于产生大于等于0 0小于小于1 1的随机的随机数数RndRnd0101之间的之间的随机数随机数Fix(N)Fix(N)无条件取整无条件取整 Fix(-3.5)Fix(-3.5)Fix(3.9)Fix(3.9)-3-3 3 3 Int(N)Int(N)取小于或等于取小于或等于N N的最大整数的最大整数 Int(-3.5)Int(-3.5)Int(3.5) Int(3.5) -4-43 3 Round(N1Round(N1,N2),N2)N2N2表示取舍的小数位数，如表示取舍的小数位数，如果省略，即返回整数。果省略，即返回整数。Round(88.48,

44、1)Round(88.48,1)Round(88.43)Round(88.43)88.588.588883.5.1 3.5.1 数学函数数学函数Rnd N Rnd N 函数函数 前往前往0 0和和1 1包括包括0 0但不包括但不包括1 1之间的单精度随机数之间的单精度随机数. . 每次运转时，要产生不同序列的随机数，先执行每次运转时，要产生不同序列的随机数，先执行 Randomize N Randomize N 语句。语句。 产生产生a,ba,b区间范围内的随机整数，可运用下面的公式：区间范围内的随机整数，可运用下面的公式：Int(Rnd Int(Rnd * *(upperbound lowe

45、rbound +1)+lowerbound)(upperbound lowerbound +1)+lowerbound) 例：随机产生例：随机产生1 1个两位数正整数个两位数正整数 private sub form_click() private sub form_click() Randomize Randomize Text1.Text = (Int(Rnd Text1.Text = (Int(Rnd * * 90 + 10) 90 + 10) End sub End sub演示演示5【例【例3-2】运用随机函数模拟掷骰子。】运用随机函数模拟掷骰子。预备好六个图形文件，表示骰子的六个面预备

46、好六个图形文件，表示骰子的六个面 界面设计：界面设计：Image1Label1Command1Command2pic1.jpgpic1.jpgpic2.jpgpic2.jpgpic3.jpgpic3.jpgpic4.jpgpic4.jpgpic5.jpgpic5.jpgpic6.jpgpic6.jpg 首先生成一个首先生成一个1616之间的随机整数之间的随机整数x x，用字符串衔接符，用字符串衔接符号号& &将当出途径将当出途径App.PathApp.Path、字符串、字符串“picpic与该随机整与该随机整数数x x进展衔接，产生当前要显示的骰子文件的途径及文件进展衔接，产生

47、当前要显示的骰子文件的途径及文件名名picFilenamepicFilename：x = Int(6 x = Int(6 * * Rnd + 1) Rnd + 1)picFilename = App.Path & pic & Format(x) & .picFilename = App.Path & pic & Format(x) & .jpgjpg最后用最后用LoadPictureLoadPicture函数给函数给Image1Image1加载该图形。加载该图形。代码设计：代码设计：1 1、删除空格函数、删除空格函数LtrimLtrim字符串表达

48、式：字符串表达式： 该函数用于去掉字符串中左边的空格。该函数用于去掉字符串中左边的空格。 例如：例如：LtrimLtrim ABCDABCD的值为的值为“ABCD“ABCDRtrimRtrim字符串表达式：字符串表达式： 该函数用于去掉字符串中右边的空格。该函数用于去掉字符串中右边的空格。 例如：例如：RtrimRtrimABCDABCD 的值为的值为“ABCD“ABCDTrimTrim字符串表达式：字符串表达式： 该函数用于去掉字符串中左右两边的空格。该函数用于去掉字符串中左右两边的空格。 例如：例如：TrimTrim ABCDABCD 的值为的值为“ABCD“ABCD3.5.2 3.5.2

49、 字符串函数字符串函数2 2取子字符串函数取子字符串函数LeftLeft字符串表达式，字符个数：字符串表达式，字符个数： 该函数前往从字符串左边开场的指定数目的字符。该函数前往从字符串左边开场的指定数目的字符。 例如：例如：Left (“Visual BasicLeft (“Visual Basic, 6), 6)的值是的值是Visual Visual Right Right字符串，字符个数：字符串，字符个数： 该函数前往从字符串右端开场的指定数目的字符。该函数前往从字符串右端开场的指定数目的字符。 例如：例如：Right (“Visual BasicRight (“Visual Basic,

50、 5) , 5) 的值是的值是BasBasicic Mid字符串，起始位置，字符个数 ： 该函数前往从字符串指定位置开场的指定数目的字符例如：Mid (ABCD,2,2)值为“BC Mid (ABCD,2,)值为“BCD3 3求字符串长度函数求字符串长度函数LenLen字符串表达式：字符串表达式： 该函数前往字符串的长度字符数。该函数前往字符串的长度字符数。 例如：例如：LenLen“青岛科技大学值为青岛科技大学值为6 6。LenBLenB字符串表达式：字符串表达式： 该函数前往字符串中所占字节数。该函数前往字符串中所占字节数。 例如：例如：LenBLenB“青岛科技大学青岛科技大学 值为值为

51、1212。4 4产生空格字符串函数产生空格字符串函数 Space (n) Space (n)： 该函数前往产生由该函数前往产生由n n个空格字符组成的字符串。个空格字符组成的字符串。 例如：例如：Space (5)Space (5)值为值为 5 5字符串匹配函数字符串匹配函数InStr(InStr(起始位置起始位置 ，“字符串字符串1 1，“字符串字符串2 2 比较方式比较方式)此函数用来在字符串此函数用来在字符串1 1中查找字符串中查找字符串2 2。阐明：阐明：1 1从从“字符串字符串1 1的的“起始位置处开场查找起始位置处开场查找“字符串字符串2 2，假设找到假设找到“字符串字符串2 2，

52、那么前往，那么前往“字符串字符串2 2在在“字符串字符串1 1中的起始位置；中的起始位置；2) 2) 比较方式可以为比较方式可以为0 0或或1 1。为。为1 1时，比较时不区分大小写；时，比较时不区分大小写； 为为0 0时，区分大小写。默许设置为时，区分大小写。默许设置为0 0；3 3假设指定了比较方式，那么必需指定起始位置，否那么就假设指定了比较方式，那么必需指定起始位置，否那么就会出现语法错误。会出现语法错误。例如：例如：Print InStr(7, ASDFDFDSSDFSF, DF)Print InStr(7, ASDFDFDSSDFSF, DF)值为值为1010。6 6生成字符串函数

53、生成字符串函数String (nString (n，字符串，字符串) )：前往由字符串中首字符组成的前往由字符串中首字符组成的n n个字符串。个字符串。例如：当例如：当x=String (5,abc)x=String (5,abc)时，那么时，那么x=aaaaax=aaaaa。7 7字母大小写转换函数字母大小写转换函数 Lcase Lcase字符串表达式：字符串表达式：把字符串表达式中大写字母转换为小写字母。把字符串表达式中大写字母转换为小写字母。例如：例如：Lcase (Abc)Lcase (Abc)结果为结果为“abc“abc。 Ucase Ucase字符串表达式：字符串表达式：把字符串表

54、达式中小写字母转换为大写字母。把字符串表达式中小写字母转换为大写字母。例如：例如：Ucase (abc)Ucase (abc)结果为结果为“ABC“ABC。1 1求字符的求字符的ASCIIASCII值函数值函数: Asc: Asc字符串表达式：字符串表达式： 前往字符串表达式中第一个字符的前往字符串表达式中第一个字符的ASCIIASCII值。值。 例如：当例如：当x=Asc (“ax=Asc (“a) )时，时，x=97x=97； 当当x=Asc (“abx=Asc (“ab) )时，时，x=97x=972 2求求ASCIIASCII值对应的字符函数：值对应的字符函数：Chr (n)Chr (

55、n) 将将n n的值转换为对应的的值转换为对应的ASCIIASCII字符。字符。 例如：例如：Chr (65)Chr (65)的值为的值为“A“A。3 3将数值转换为字符串函数：将数值转换为字符串函数：StrStr数值数值 用于将数字转化为字符串。用于将数字转化为字符串。例如：例如： Str (34.56) = 34.56 Str (34.56) = 34.56 3.5.3 3.5.3 转换函数转换函数4 4将字符串转换为数值函数：将字符串转换为数值函数： Val Val字符串表达式字符串表达式用于将字符串转化为数值。用于将字符串转化为数值。阐明：阐明：字符串可以是一个字符串，也可以是几个字符

56、串衔接构成字符串可以是一个字符串，也可以是几个字符串衔接构成的字符串表达式。的字符串表达式。假设被转换的字符串是一个非数字字符串，那么该函数假设被转换的字符串是一个非数字字符串，那么该函数的函数值为的函数值为0 0；假设在字符串转换过程中遇到非数字字符，那么转换停假设在字符串转换过程中遇到非数字字符，那么转换停止，非数字字符不转换。止，非数字字符不转换。例如：例如：Val (“23.56Val (“23.56) ) 结果为结果为23.5623.56；Val (“88abc34.45Val (“88abc34.45) ) 结果为结果为8888；Val (abcde) Val (abcde) 结果

57、为结果为0 0。函函 数数说说 明明CDate (x)CDate (x)将将x x的值转换为的值转换为DateDate类型值类型值 CInt(x)CInt(x)将将x x的小数部分四舍五入，转换为整数的小数部分四舍五入，转换为整数 CCur (x)CCur (x)将将x x的值转换为货币类型值，小数部分最多的值转换为货币类型值，小数部分最多保留保留4 4位，且自动四舍五入位，且自动四舍五入CDbl (x)CDbl (x)将将x x值转换为双精度数值转换为双精度数CLng (x)CLng (x)将将x x的小数部分四舍五入转换为长整型数的小数部分四舍五入转换为长整型数CSng (x)CSng (

58、x)将将x x值转换为单精度数值转换为单精度数CStr (x)CStr (x)将将x x的值转换为字符串类型值的值转换为字符串类型值CVar (x)CVar (x)将将x x值转换为变体类型值值转换为变体类型值 数据类型转换函数数据类型转换函数2.5.4 2.5.4 日期函数日期函数 Second(#1:12:56PM#)前往秒前往秒(059)Second(Time)Time前往系统时间前往系统时间Time()Year(#3/3/2003#)前往年代号前往年代号(17532078)Year(Date)Now前往系统日期和时间前往系统日期和时间NowMonth(2003,05,01)前往月份代号

59、前往月份代号(112)Month(Date)Minute(#1:12:56PM#)前往分钟前往分钟(059)Minute(Time)Hour(#1:12:56PM#)前往小时前往小时(024)Hour(Time)Day(2003,05,01)前往日期代号前往日期代号(131)Day(Date)Date前往系统日期前往系统日期Date ()实例实例阐明阐明 函数名函数名本章目录本章目录Weekday(date)前往星期前往星期,1表示星期日表示星期日Weekday(“2021-3-15格式化函数格式化函数Format()Format()使数值、日期或字符型数据按指定的格式输出。普通用于使数值、日

60、期或字符型数据按指定的格式输出。普通用于PrintPrint方法中。方法中。FormatFormat函数的语法格式为函数的语法格式为: :Format(Format(表达式，格式字符串表达式，格式字符串) )3.5.5 3.5.5 格式输出函数格式输出函数Print Format(#2/12/1998#,“mmm-yyPrint Format(#2/12/1998#,“mmm-yy) )的结果是：的结果是：Feb-98Feb-98Print Format(0.123, “0.00%Print Format(0.123, “0.00%) )的结果是：的结果是：12.30%12.30%Print Format(“worldPrint Format(“world, “ , “ ) )的结果是的结果是“WORLD“WORLD例如：例如：在在VBVB中，除了可以调用内部函数之外，还可以调用中，除了可以调用内部函数之外，还可以调用WindowsWindows下的其他运用程序。这一功能经过下的其他