第三章 Visual Basic VB程序设计基础.pdf

第三章Visual B asic程序设计基础主要内容 3.1标识符、程序的书写规则 3.2数据类型 3.3常量3.4变量 3.5运算符3.6数组 3.7基本控制结构3.8常用内部函数 3.9 Visual B asic中的过程 3.1标识符、程序的书写规则一、标识符标识符是为程序中的变量、常量、数据类型、过程、函数 和类等定义的名字，利用标识符实现对上述对象的引用。Visu alB asic中标识符的命名规则如下：1.标识符必须以字母开头，后面可以是手母、数字、下划 线。例如:ab_ c Mybutton b77是合法的标识符,而$11丫*、3 abc就是非法而标识符。2.标识符的长度不能超过255个字符。3.自定义的标识符不能和VisualB asic中已有运算符、语 句、函数和过程名等关键字同名。也不能与系统的方法和属性 同名。4.关键字是VisualB asic保留下来的作为程序中有固定含 义的标识符，不能被重新定义。3.1标识符、程序的书写规则VisualB asic中的关键字如表3.1所示。表3.1 VisualB asic中的关键字XBmyElEfet eHseBipt yButRiseRrRiaidGthpiIsImLetLo ckMdNwRt iirgNilChQl icnQlob1HirtBt hdeBt epert yMiefeu rreSeekSetSt at icSt epSt aigTimUnel bTheWt t Ert s 3.1标识符、程序的书写规则二、程序的书写规则VisualB asic作为一种程序设计语言有自己的程序 书写规则。其主要规则如下：1.程序注释若要为程序代码添加注释，可使用单引号或“Rem”作为注释内容的开头，VisualB asic将在编译时忽略注释部分内 容。例如：Forml.Width=300Temp=Forml.Width将窗体的宽度设置为300将窗体的宽度赋值给变量TempForml.Caption=你好！，修改窗体的标题文字Temp=Temp+20 Rem 变量Temp赋值为自己的原值加20 3.1标识符、程序的书写规则2.将一行语句写成多行使用续行符“_（一个空格紧跟一条下划线）将长语句分 成多行。strTemp=问君归期未有期，&_“巴山夜雨涨秋池，”&_“何当共剪西窗烛，&_“却话巴山夜雨时，”注意：在同一行内，续行符后面不能加注释。3.将多行语句写成一行在一行中写下多条语句，可以使用“：”作为分隔符号。例:Forml.width=300:temp=Forml.width:Forml.Caption=你好 3.1标识符、程序的书写规则4.VisualB asic代码不区分字母大小写(1)VisualB asic的关键字，首字母总被转换成大写，其余 字母被转换成小写。(2)如果关键字有多个英文单词组成，VisualB asic将每个 单词首字母转换成大写。(3)VisualB asic中用户自定义的变量、过程名等，输入时 以定义为准，自动向定义形式转换。3.2数据类型VisualB asic中可以使用的数据类型有如下几种：一、数值型数据类型1.常规整型(I nterger)常规整型简称为整型，表示不带小数点和指数符号的数，其内部存储空间和范围如表3.2所示。十进制整数只能包含数字09、正负号。十进制整型数的 范围为-32768+32767。例如：10,2566,-38,0。八进制数由数字07组成，并以&o引导，其后面的数据位 数E6位，其范围为&o0&0177777。十六进数由数字09、AF或af组成，并以&H引导，其 后面的数据位数W4位，其范围为&H0&HFFFF。3.2数据类型2.长整型(Long)长整型数的数字组成与整数相同，正号可以省略，并且在 婺值中不能出现逗号。长整型数内部存储空间和范围如表3.2所 Z ps o十进制长整数的范围为-2147483648+2147483647。例 如：32768,-25 67898,10o十六进制长整数以&H开头，以&结尾，其范围为&H0&HFF FFFFFF&o八进制数长整数以&。或&开头，以&结尾，其范围为&o0&o37777777777&o 3.2数据类型3.单精度(Single)单精度数内部存储空间和范围如表3.2所示。可表示最多7 位有效数字的数，小数点可以位于这些数字的任何位置，正号 可以省略。单精度数可以有定点形式和浮点形式来表示。单精度数的定点形式是在该范围内含有小数的数。例如：-3.4 120.0+1.234.00069-31.24683单精度数的浮点形式是用科学计数法，即以10的整数次幕 表示的数，以来表示底数10。例如3.4X105,120.0X10-5,1.234X1012,0.00078X1 0-23分别表示为：-3.4E5 120.0E-5 1.234E+12.00078E-23 3.2数据类型4.双精度数(Double)双精度数内部存储空间和范围如表3.2所示。可表示最多15 位有效数字的数，小数点可以位于这些数字的任何位置，正号 可以省略。双精度数也有定点和浮点两种形式。双精度数的定点形式是在该范围内含有小数的数。例如：-31.1234567890123 0.123456789012346双精度数的浮点形式是用科学计数法，以“D”来代表指数 的底的数。例如：-3.12345 67D5 2 120.12345 68D-45 0.2345 6789D+10 3.2数据类型5.货币型(Currency)货币型数的内部存储空间和范围如表3.2所示。Currency 数据类型支持小数点右面4位和小数点左面15位，它是一个精 确的定点数据类型，适用于货币计算。浮点(Single和Double)数比Currency的有效范围大得多，但有可能产生小的进位误 差。6.字节型(B yte)字节型表示无符号的整数，范围为0255。除一元减法外,所有可对整数进行操作的运算符均可操作B yte数据类型。因为 B yte是从0255的无符号类型，所以不能表示负数。因此，在 进行一元减法运算时，VisualB asic先将B yte转换为符号整数,3.2数据类型二、布尔型数据类型（B oolean）布尔型主要用来进行逻辑判断，如果数据的取值只二 True或False、Yes或No、On或Off,则可用B oolean型表后 当转换其他的数值类型为B oolean值时，0会转成False,j 其他的值则变成True。当转换B oolean值为其他的数据类3 时，False成为0,而True成为-1。3.2数据类型三、日期型数据类型(Date)日期型用于存储日期和时间，其可以表示的日期 范围从公元100年1月1日到公元9999年12月31日，而时 间可以从0：00：00到23：59：5 9O日期型数据必须使 用一对号括起来，否则VisualB asic将不能正确 的识别日期：Dim Mydate as dateMydate=#12/5/96#Mydate=#1996-12-5 12：30：00 pm#3.2数据类型四、字符型数据类型(String)字符型用于存放字符串，字符串是用双引号括起 来的一串字符，如：你好！”。使用String类型可以 声明两种字符串：可变长度与固定长度的字符串。字符型变量或参数是一个可变长度的字符串，随着对 字符串赋予新数据，它的长度可增可减。如果变量总 是包含字符串而较少包含数值，就可将其声明为Strin g类型。Dim MyStr A s StringMyStr=VisualB asic 程序设计！3.2数据类型五、对象型数据类型(Object)对象型用于表示任何类型的对象，可以引用程序 中对象。在引用对象时，必须利用Set语句为对象引用 赋值。初学者最容易犯的一个错误就是对Object类型 的变量直接赋值，例如：将窗体对象Forml赋值给Obje ct类型变量temp。错误写法：错误写法：Sub Form Click()Dim temp as Object temp=FormlEnd Sub正确写法：Sub Form Click()Dim temp as ObjectSet temp=Forml End Sub 3.2数据类型六、变体型数据类型(Variant)Variant是一种特殊的数据类型，除了定长String 数据及用户定义类型外，可以包含任何数据类型的数 据。当没有说明数据类型时，则变量自动为Variant型,只是Variant型数据占用的内存比其它数据类型多。我 们可以使用VarType函数或TypeName函数来决定如何处 理Variant中的数据。3.2数据类型在程序代码中，可以用Variant数据类型来替换任 何数据类型，这样会更有适应性。如果Variant变量内容 是数字，它可以用字符串来表示数字或是用它实际的值来 表示，这将由上下文来决定，例如在下面的程序中；Dim MyvarMyvar=3716Myvar=testvar+1，此时等号左边的Myvar为实 际的值3717Myvar=Myvar&“how DoyouDo?”，此时等号 右边的Myvar为字符串表示的数字“371 3.2数据类型Variant变量也可包含Empty、Error及Null等特殊值,1.Empty值Empty值用来标记尚未初始化（给定初始值）的Variant变量。在赋值之前，Variant变量具有值Empty。值Empty是异于0零长度字 符串（”）或Null值的特定值。程序员可以使用I sEmpty函数来测试一个变量是否具有Empty值：I f I sEmpty（z）Then z=0。当Variant变量包含Empty值时，可在表达式中使用它；内含 Empty的Variant在数值的上下文中表示0,如果是用在字符串的 上下文中则表示零长度的字符串（”）。3.2数据类型2.Null值Variant数值类型还可包含一特定值：Null。Null通常用于数据 库应用程序，表示未知数据或丢失的数据。Null具有某些唯一的特 性：(1)对包含Null的表达式，计算结果总是Null。(2)将Null值、含Null的Variant变量或计算结果为Null的表达式作为参数传 递给大多数函数，将会使函数返回Null。测试Variant变量是否包含Null值，可以使用I sNull函数。3.Error值在Variant数据类型中，error是用来指示在过程中出现错误 时的特殊值。用CVErr函数将实数转换为错误值来产生err or值。3.2数据类型七、数据类型之间的转换表3.3 VisualB asic中的类型转换函数转换函数目标类型CBo o lBo o l eanCByt eByt eCCu rCu rrencyCDat eDat eCDblDo u bl eCIntInt egerCLngLo ngCSngSingl eCSt rSt ringCVarVariantCVErrErro r 3.3常量VisualB asic用常量表示在整个程序中事先设置的 和不会改变数值的数据。在整个应用程序执行过程中，值保持不变的量就是常量。常量可分为一般常量和符号 常量。一、一般常量包括：数值常量、字符常量、布尔常量和日期常量。1.字符串常量字符串常量就是用双引号括起来的一串字符。例如：“hello!、你好！、欢迎！、等。其中，双引号中无任 何字符，也不含空格，称其为空字符串。3.3常量2.数值常量数值常量由正负号、数字和小数点组成。VisualB asic的数 值常量包括：整数、长整数、定点数、浮点数和字节数。3.布尔常量布尔常量只有True（真）和False（假）两个值。4.日期常量用两个符号把表示日期和时间的值括起来表示日期常 量。例如：#12/18/2000#。3.3常量二、符号常量符号常量是指在程序中用符号表示的常量。符号常 量又分为用户定义常量和系统内部定义常量。1.系统内部定义常量系统内部定义常量可与应用程序的对象、方法和属性一起 使用，一般以vb为前缀。例如:如vbNormal（正常）、vbMaximized（最大化）、vbMinimized（最小化）等。2.用户定义常量用户定义常量使用Const语句来给常量分配名字、值和类 型。3.3常量声明常量的语法为：Public/Private Const常量名As数据类型）=表达式 说明：表示可以省略的参数，I表示可以选择的参数。常量名的命名规则与建立变量名的规则一样。表达式由数值常量、字符串等常量及运算符组成，可以包含 前面定义过的常量，但不能使用函数调用。例如，以下都是正确的用户定义常量：Const PI=3.14159265358979Const PI as Single=3.1415 926Private Const PI as Single=3.1415 926 3.4变量在程序运行过程中，需要用变量来临时存储数 据，并且变量中存储的这些数据是可以改变的。每个 变量有惟一的名字和相应的数据类型，编程时通过变 量名来引用其中存储的数据。一、声明变量声明变量即通知程序以后在程序中可以使用此变 量。有隐式声明和显示声明：隐式声明：不加任何声明而直接使用显示声明：每个变量必须事先做声明，才能使用。3.4变量设置强制显式声明变量的方法有以下两种：i.在模块的声明部分中添加如下语句：Option Explicit2.选择“工具”菜单|“选项”命令，在弹出的对话框中 选择“编辑器”选项卡，将“要求变量声明”选项前的复 选标记选中即可，如图3.1所示。图3.1“工具”菜单的“选项对话框”3.4变量二、变量的作用范围变量的作用范围确定了能够识别并使用变量的那部 分代码。按作用域不同，可分为局部变量和全局变 量。不同作用范围的变量声明方式：1.普通局部变量：只能在声明它的过程中使用，即不能在 一个过程中访问另一个过程中的普通局部变量。声明此类变量的格式如下：Dim变量名As数据类型名 3.4变量2.静态局部变量：这种变量也只能在声明它的过程中使 用，属于局部变量。但是与普通局部变量的差别在于：静态局部 变量在整个程序运行期间均有效，并且过程执行结束后，只要程 序还没有结束，该变量的值就仍然存在，该变量占有的空间不被 释放。声明此类变量的格式如下：Static变量名As数据类型名3.模块变量：这种变量必须在某个模块的声明部分进行预 声明，可以适用于该模块内的所有过程，但对其他模块内的过 不能使用。一般在声明此类变量时，使用如下格式：Pri va te变量名As数据类型名 3.4变量4.全局变量：这种变量也必须在某个模块的声明部分进行预 先声明，可以适用于该模块及其他模块内的所有过程，也即在整 个程序内有效。一般在声明此类变量时，使用如下格式：Public变量名As数据类型名表3.4不同作用范围的3种变量声明方式作用范围局部变量模块级变量全局变量声明方式变量的声明位置能否被本模块中其他过程访问 能否被其他模块访问Dim,St at ic 过程之中 否 不Dim,Privat e 模块的声明段中 能 不Pu bl ic 模块的声明段中 能 能 3.4变量三、变量赋值变量赋值的格式如下：变量名=表达式可以使用一个表达式的数值来给某个变量赋值。-个普通的常量、变量均属于简单的表达式。例如，给一个变量Temp赋值，可以使用如下几种方式:Temp=7Temp=VariTemp=Var2+1 3.5运算符VisualB asic中的运算符包括赋值运算符、数学运 算符、位运算符、关系运算符和逻辑运算符。一、赋值运算符VisualB asic中的赋值运算符是号，其一般格式如下:变量;值其中，变量，可以是变量、数组的元素或对象属性。“值”可以是常量、变量、表达式或函数返回值。赋值运算符左边必须是变量或对象的属性，不能是数值、常 量和表达式。3.5运算符、算术运算符表3.5算术运算符运算符说明指数运算符负号运算符*/乘法和除法运算符整除运算符Mod求模运算符+加法和减法运算符&连接字符串运算符 3.5运算符三、关系运算符关系运算就是确定两个表达式之间的关系。其优先 级低于数学运算符，各个关系运算符的优先级是相同 的，结合顺序从左到右。关系运算符与运算数构成关系 表达式，关系表达式最后结果为布尔值True和False,如果比较的双方有任何一个是NULL,结果是NULL。表3.6列出了 VisualB asic中主要的关系运算符。3.5运算符表3.6关系谢符说明=或等于 max Then max=a(i)I f a(i)=0 Then y=x+l 3.7基本控制结构需要执行多条语句。语法为：If条件Then若干语句end If例如：I f intage23 ThenPrint“您已经超龄，无法入选国奥队！”Print“感谢您对中国足球的关怀！”end I f 3.7基本控制结构2.I fThenElse结构使用I fThenElse结构可以从两个程序流程分支中选择一 个分支执行。语法为：If条件Then语句序列 1Else语句序列2End If例如：求两个数中最大数I f x y ThenMaxOfTwo=xElseMaxOfTwo=yEnd Tf 3.7基本控制结构当执行到I fThenElse结构时，VisualB asic会首先测 试条件1。如果它为False,VisualB asic就测试条件2,依次类 推，直到找到一个为True的条件。当它找到一个为True的条件 时，VisualB asic就会执行相应的语句序列，然后执行End I f语 句后面的代码。3.7基本控制结构例如：编写程序，随着用户不断单击窗体，更改窗体的标题:Private sub Form ClickOstatic I ndex as I ntegerI ndex=I ndex+1I f I ndex=1 ThenForml.Caption=床前明月光”Elself I ndex=2 ThenForml.Caption=疑是地上霜”Elself I ndex=3 ThenForml.Caption=举头望明月”Elself I ndex=4 ThenForml.Caption=低头思故乡”ElseI ndex=0end I fEnd Sub 3.7基本控制结构3.I I F函数I lf函数的语法结构为：Ilf(条件表达式,真部分,假部分)当条件表达式的值为真时，函数返回值为真部分，否则返回 假部分。例如：输入X,计算y的值，其中：x+1(x=0)y=12x-l(x=0,x+1,2*xT)Text2.Text=yEnd Sub 3.7基本控制结构4.Select Case结构Select Case结构可以很好的完成多重判定任务，这 种结构不但清楚易懂，而且执行也比较快速。Select Case 结构的语法为：Select Case测试条件Case表达式语句序列 1Case表达式2语句序列2Case Else语句序列nEnd Select 3.7基本控制结构卜面我们使用SelectCase结构改写上一个例子：Private Sub Form ClickOStatic I ndex A s I nteger:I ndex=I ndex+1Select Case I ndexCase 1Forml.Caption=Case 2Forml.Caption=Case 3Forml.Caption=Case 4Forml.Caption=Case ElseI ndex=0 end select:End Sub“床前明月光”“疑是地上霜”“举头望明月”“低头思故乡”3.7基本控制结构Select Case语句的表达式结果表列可以有四种格式：(1)表达式结果：此种格式表达式结果表列中只有一个数值或字符串 供用户与表达式的值进行比较。例如：Case 1 或者Case char等。(2)表达式结果1,表达式结果2,表达式结果n：此种格式 在某一个表达式结果表列中有多个数值或字符串供用户与表达式的值 进行比较，多个取值之间用逗号间隔。(3)表达式结果1 To表达式结果2：此种格式在表达式结果表列中提供了 一个数值或字符串的取值范围，可以将此范围内的所有取值与 表达式的值进行比较。(4)I s关系运算符数值或字符串：此种格式使用了关键字“IS”，其后只能使用各种关系运算符：“二”、“”、“”、“，一、“二，和“，等。3.7基本控制结构三、循环结构所谓循环结构，表示在执行语句时，需要对 其中的某个或某部分语句重复执行多次。对于此类 情况可以利用各种循环结构来实现。VisualB asic 支持的循环结构有：For循环、While循环和Do循环 语句结构。1.For循环For循环属于计数型循环，程序按照此种结构中指明的 循环次数来执行循环体部分。3.7基本控制结构格式为：For循环变量=初始值To终值Step步长循环体Exit For循环体Next循环变量格式说明：循环变量:用于统计循环次数的变量，变量为数值型变量。(2)初始值：用于设置循环变量的初始取值，为数值型变量。终值：用于设置循环变量的最后取值，为数值型变量。步长：用于决定循环变量每次增加的数值。3.7基本控制结构(5)循环体：需要重复执行的部分。(6)Exit For：在某些情况下，需要中途退出For循环时 使用。(7)Next循环变量：用于结束一次For循环。For语句时的执行过程是：先令循环变量取为初始值，然 后检验循环变量的取值是否超出终值：若步长为正值，则检 验循环变量是否大于终值；若步长为负值，则检验循环变量 的取值是否小于终值。若循环变量没有超出终值，则执行一 次内部的循环体，然后将循环变量加上步长赋值给循环变量 本身，再与终值进行比较。3.7基本控制结构例如：编写一个函数，求从1到N(正整数)的所有正整数之 和。Private Function SumlToN(N A s I nteger)A s I ntegerDim s,i A s I ntegerFor i=l To Ns=s+iNext iSumlToN=sEnd Function 3.7基本控制结构还有一个集合For循环语句。格式为：For Each集合中元素in集合呼体Next 元素该语句对集合中的每个元素进行一次循环，直到集合中无 更多的元素时，执行Next后面的语句。例如，以下事件过程列出窗体上的所有控件。Private Sub Form_ Click()Dim Control A s ObjectFor Each Control I n Me.ControlsPrint Control.NameNext ControlEnd Sub 3.7基本控制结构2.While循环While循环用于对条件进行判断，如果条件成立，可以 循环执行循环体，直到条件不成立循环结束。格式为：While条件循环体Wend此种循环的执行过程为：首先判断条件是否成立，若条 件成立，则执行循环体内的语句，执行完后再继续判断条件，重复上述过程；否则，若条件不成立，则结束循环，执行循环 后的语句。3.7基本控制结构4.格式输出函数用格式输出函数Format。可以使数值、日期或字符型数 据按指定的格式输出。Format函数的语法格式为：Format(表达式,格式字符串)说明：(1)表达式可以是数值型、日期型或字符型的表达式。(2)格式字符串是一个字符串常量或变量，由专门格式说 明字符组成。说明字符决定数据项表达式显示格式和长度。(3)当格式字符串是字符串常量的时候，放在双引号中。(4)格式输出函数Format()返回一个Variant类型的值。3.7基本控制结构3.Do循环Do循环也是按照条件是否成立来决定是否执行相应的循 环体部分。格式一：Do语句体满足某条件时Exit Do语句体Loop While或Until 条件 3.7基本控制结构格式二：Do While或Until 条件语句体满足某条件时Exit DoLoop这两种格式既有共同点又有明显的差异。共同点为:(1)均可以有一定的循环条件，但循环体部分为空(2)均可以从中间用“Exit Do”语句退出循环。(3)均可以没有循环条件。(4)均可以嵌套使用，而且可以互相嵌套。(5)均有两种判断条件的格式。3.7基本控制结构不同点为：(1)第一种格式中的判断条件“While或Until条件”的 位置在整个循环体的最后；而第二种格式中的判断条件Whi le或Until条件”的位置在整个循环体的起始位置。(2)第一种格式的执行过程为：先执行一遍循环体，在 碰到Loop后的条件时再进行判断，根据不同的判断条件格式 执行不同的判断过程，决定是继续执行循环体，还是退出循 环。而第二种格式的执行过程为：先对条件进行判断，仍然 要根据不同的判断条件格式执行不同的判断过程。3.7基本控制结构例如：前面求从1到N(正整数)的所有正整数之和的函 数可以使用Do循环的两种格式改写为：Private Function SumlToN(N A s I nteger)A s I ntegerDim s,i A s I ntegerI f N=1 ThenSumlToN=1Elsei=1Dos=s+i:i=i+lLoop(i=n)SumlToN=sEnd I fEnd Function 3.7基本控制结构Private Function SumlToN(N A s I nteger)A s I nteg erDim s,i A s I ntegeri=1Do While(i=N)s=s+i:i=i+1LoopSumlToN=sEnd Function 3.7基本控制结构4.中途跳出语句在VisualB asic中，有以下几种中途跳出语句：(1)Exit For：用于中途跳出For循环，可以直接使用，也可以用 条件判断语句加以限制，在满足某个条件时才能执行此语句，跳出For循 环。例如：在For循环内部添加语句I f条件Then Exit For”。(2)Exit Do：用于中途跳出Do循环，同上类似，既可以直接使用，也可以用条件判断语句限制使用。(3)Exit Sub：用于中途跳出Sub过程，既可以直接使用，也可以用 条件判断语句限制使用。(4)Exit Function：用于中途跳出Function过程，可以直接使用，也可以用条件判断语句限制使用。3.8常用内部函数在VisualB asic中，有两类函数：内部函数和用户定义函 数。、数学运算函数表3.11常用数学运算函数函数说明Sin返回孤度的正弦Co s返回弧度的余弦At n返回用弧度表示的反正切值Tan返回弧度的正切Abs返回数的绝对值Exp返回e的指定次塞Lo g返回一个数值的自然对数Sgn返回数的符号值Sqr返回数的平方根Int返回不大于给定数的最大整数Fix返回数的整数部分3.8常用内部函数、字符串函数表3.12常用字符串函数函数说明Ltrim返回删除字符串左端空格后的字符串Rtrim返回删除字符串右端空格后的字符串Trim返回删除字符串前导和尾承受空格后的字符串Left返回从字符串左端开始的指定数目的字符Right返回从字符串右端开始的指定数目的字符mid返回从字符串指定位置开始的指定数目的字符Len返回字符串的长度Instr返回字符串在给定的字符串中出现的开始位置Space返回由指定数目空格字符组成的字符串String返回包含个字符重复指定次数的字符串LCase返回以小写字母组成的字符串UCase返回以大写字母组成的字符串Str返回把数值型数据转换为字符型后的字符串val把一个数字字符串转换为相应的数值3.8常用内部函数3.口期和时间函数表3.13常用日期和时间函数函数说明Now返回系统日期和时间(yy-mm-dd hh:mm:ss)Date返回当前日期(yy-mm-dd)Day返回月中第几天(131)Weekday返回是星期几(1-7)Month返回一年中的某月(1-12)Year返回年份(yyyy)Hour返回小时(023)Minute返回分钟(059)Second返回秒(059)Timer返回从午夜算起已过的秒数Time返回当前时间(hh:mm:ss)3.8常用内部函数4.格式输出函数用格式输出函数Format。可以使数值、日期或字符型数据按 指定的格式输出。Format函数的语法格式为：Format(表达式,格式字符串)说明：(1)表达式可以是数值型、日期型或字符型的表达式。(2)格式字符串是一个字符串常量或变量，由专门的格式说明字符组 成。这些说明字符决定了数据项表达式的显示格式和长度。(3)当格式字符串是字符串常量的时候，必须放在双引号中。(4)格式输出函数Format()返回一个Variant类型的值。3.8常用内部函数表3.14常用的数值型格式说明字符字符1说明例子#数字占位符。显示一位数字或什么都不显不。如果 表达式在格式字符串中#的位置上有数字存在，那 么就显示出来；否则，该位置就什么都不显示。Fo rmat(123.45,#.#)返回：123.450数字占位符。显示一位数字或是零。如果表达式在 格式字符串中0的位置上有一位数字存在，那么就 显示出来；否则，就以零显示。Fo rmat(123.45,0000.000”)返回:0123.450*小数点占位符千分位符号占位符Fo rmat(1234.5,#)返回：1,234.5%百分比符号占位符。表达式乘以100。而白分比字 符（给会插入到格式字符串中出现的位置上Fo rmat(0.12345,”0.00%”)返回：12.35%3.8常用内部函数表3.15常用的时间日期型格式说明字符字符说明例子dddddd以完整日期表示法显示日期毓数(包括年、月、日)Format(Date,dddddd)返回：2002年7月5日mmm以全称来表示月(January-December)Format(Date,mmmm)返回：Mayyyyy以四位数来表示年Format(Date,yyyy”)返回:2002Hh以有前导零的数字来显示小时(0023)Nn以有前导零的数字来显示分(0059)Ss以有前导零的数字来显示秒(0059)Format(Time,Hh:Nn:Ss)返回：20:56:01tttt以完整时间表示法显示(包括时、分、秒)，用系统识别的时 间格式定义的时间分隔符进行格式化。缺省的时间格式为 h:mm:ssFormat(Time,tttf,)返回:20:57:06AM/PM在中午前以12小时配合大写AM符号来使用；在中午和11：59P.M.间以12小时配合大写PM来使用Format(Time,“ttttAM/PM)返回:20:57:46PM3.8常用内部函数表3.16常用的字符型格式说明字符字符说明例子字符占位符。显示字符或是空白。如果字符串在格式 字符串中。的位置有字符存在，那么就显示出来；否 则，就在那个位置上显示空白。除非有惊叹号字符(!)在格式字符串中，否则字符占位符将由右而左被 填充Format(“Abab，”)返回：Abab”&字符占位符。显示字符或什么都不显示。如果字符串 在格式字符串有字符&存在，那么就显示出来；否则，就什么都不显示。除非有惊叹号在格式字符串中，否 贝1字符占位各个地区之间将由右而左被填充。Format(“Abab，”&”)返回:“Abab”强制小写。将所有字符以小写格式显示Format(“Abab，”强制大写。将所有字符以大写格式显示。Format(“Abab，”)返回：ABAB”1强制由左而右填充字符占位符。缺省值是由右而左填 充字符占位符Format(“Abab”,”!”)返回:HAbab”3.8常用内部函数5.输入函数I nputB ox将用户从输入的数据作为函数的返回值返回到程序中。在使用该函数时，可以返回的两种类型数据：(1)数值型数据，函数格式如下：InputBox(prompt,ti tie,default,xpos,ypos,he Ip file,context)(2)字符串型数据，函数格式如下：Inpu tBox$(promp t,ti tieJ,default,xpos,ypos,help file,con tex tj)说明：(1)Prompt：字符串型变量，用于表示出现的对话框中的提示信息。3.8常用内部函数(2)Title：为字符串型变量，用于表示对话框的标题信息，即对话 框的名称。(3)Default：为字符串型变量，用于显示在输入区内默认的输入信 息。(4)xpos：为整型数值变量，用于表示对话框与屏幕左边界的距离 值，即该对话框左边界的横坐标，单位是堤(twip,1英寸二1440提)。(5)ypos：也是一个整型数值变量，用于表示对话框与屏幕上边界 的距离值，即该对话框上边界的纵坐标，单位也是提(twip)O(6)Helpfile：为字符串变量或字符串表达式，用于表示所要使用 的帮助文件的名字。(7)Context：为一个数值型变量或表达式，用于表示帮助主题的帮助号。3.8常用内部函数例如：以下事件过程执行出现如图3.4所示的信息 输入框。Private Sub Command1_ Click()Dim Str A s StringStr=I nputB ox(输入1到10之间的整数：,数据输入，1)End Sub图3.4信息输入框3.8常用内部函数6、输出函数MsgB oxMsgB ox函数可以用对话框的形式向用户输出一些必要信 息，还可以让用户在对话框内进行相应的选择，然后将该选 择结果传输给程序。MsgB ox函数使用格式为：MsgBox(prompt,buttons ti tie,he Ip file,context)其中的title、helpfile和context参数与I nputbox函数 中的同名参数类似，下面主要介绍前两个参数。(1)Prompt参数：用于显示对话框的提示信息，通知用户应该做什 么选择，或者直接确认信息。(2)B uttons参数：用于控制对话框中按钮的数目及形式、使用的图 标的样式、哪个按钮为默认按钮以及强制对该对话框做出反应的设置。3.8常用内部函数MsgB ox函数的返回值是一个整数数值，此数值的大小与 用户选择的不同按钮有关。在前面介绍buttons参数时，曾 经提到了可能出现的7种按钮：确认、取消、终止、重试、忽略、是和否。函数的返回值分别与这7种按钮相对应，为 从1到7的七个数值。具体对应情况如表3.18所列。表3.18 MsgBox函数返回值返回常量返回值操作说明vbOK1选择了 OK按钮vbCancel2选择了 Cancel按钮vbAbo rt3选择了 Abo rt按钮vbRet ry4选择了 Re t ry按钮vbl gno re5选择了 Igno re按钮vbYes6选择了 Yes按钮vbNo7选择了 No按钮3.8常用内部函数7.随机数语句和函数在测试、模拟和游戏程序中，经常要使用随机数，随机 数语句和函数如表3.19所示。表3.19随机数函数和语句函数和语句 1说明RanDomize 语句产生随机数的种子Rnd函数产生01之间的随机数3.8常用内部函数8.测试函数表3.20测试函数函数名说明IsArray()测试变量是否为数组IsDate()测试是否为日期IsEmpty()测试是否已被初始化IsError()测试是否发生错误IsNull()测试是否为空IsNumeric()测试是否为数值型数据IsObject()测试是否为对象 3.9 VisualB asic中的过程将程序分割成较小的逻辑部件就可以简化程序设计任务，我们称这些部件为过程。它们可以变成增强和扩展Visual B asic的构件。过程可用于压缩重复任务或共享任务,例如，压缩频繁的计算、文本与控件操作和数据库操作。用过程编程有两大好处：(1)过程可使程序划分成离散的逻辑单元，每个单元都比 无过程的整个程序容易调试。(2)一个程序中的过程，往往不必修改或只需稍作改动，便可以成为另一个程序的构件。3.9 Vis