第3章VB程序设计基础教材

第3章VB程序设计基础

3.1VB程序代码的组织方式 3.2数据类型 3.3常量和变量 3.4常用内部函数 3.5运算符与表达式 3.6常用的基本语句3.1VB程序代码的组织方式VB应用程序通常由若干模块组成，包括多个窗体模块、多个标准模块、多个类模块。在各个模块中，分别添加过程，在过程中编写语句代码。3.1.1模块VB的代码存储在模块中，模块有三种类型：窗体模块标准模块类模块窗体模块（.frm）包含窗体及其控件的描述(属性及其值)；包含常数、变量、类型和外部过程的窗体级声明；包含事件过程以及自定义的通用过程。3.1.1模块VB的代码存储在模块中，模块有三种类型：窗体模块标准模块类模块标准模块(.bas)用于组织多个窗体共享的代码，可以包含变量、常量、类型、外部过程和用户自定义过程的全局（Public）声明或模块级(Private)声明。3.1.1模块VB的代码存储在模块中，模块有三种类型：窗体模块标准模块类模块类模块(.cls)用于创建新的类，包含类的属性、方法的定义。有关类模块的内容，可参阅有关的VB手册。3.1.2过程

过程就是具有特定书写格式、具有一定功能的程序单元。过程子程序过程(Sub过程)通用过程事件过程函数过程3.1.3代码行的书写规则一条语句写在多行当一条语句比较长时，可以在行末加续行符“

_”，而分写在多行上。例如：

DimStudent_numberAsString,Student_nameAsString

可以写成：DimStudent_numberAsString,_

Student_nameAsString3.1.3代码行的书写规则一条语句写在多行多条语句写在一行允许将多个语句写在同一行上，但语句之间需要用冒号“:”分隔。例如：t=x x=y y=t

可以写成： t=x:x=y:y=t3.2数据类型数据类型基本数据类型用户自定义的数据类型数值型字符型逻辑型日期型对象型变体型整数型长整型单精度型双精度型货币型字节型3.2.1基本数据类型数值型：整数型长整型单精度型双精度型货币型字节型3.2.1基本数据类型数值型：整数型长整型单精度型双精度型货币型字节型类型名称为：Integer类型符号为：%存储空间：2B取值范围为：

-32768～327673.2.1基本数据类型数值型：整数型长整型单精度型双精度型货币型字节型类型名称为：Long类型符号为：&存储空间：4B取值范围为：-231～231-13.2.1基本数据类型数值型：整数型长整型单精度型双精度型货币型字节型类型名称为：

Single类型符号为：

!存储空间：4B取值范围为：-3.402823E38～-1.401298E-45;1.401298E-45～3.402823E383.2.1基本数据类型数值型：整数型长整型单精度型双精度型货币型字节型类型名称为：

Double类型符号为：

#存储空间：8B取值范围为：-1.79769313486232E308～-4.94065645841247E-324;4.94065645841247E-324～1.79769313486232E3083.2.1基本数据类型数值型：整数型长整型单精度型双精度型货币型字节型类型名称为：

Currency类型符号为：

@存储空间：8B取值范围为：

-922337203685447.5808

～922337203685447.58073.2.1基本数据类型数值型：整数型长整型单精度型双精度型货币型字节型类型名称为：

Byte存储空间：1B取值范围为：0～28-1（0～255）3.2.1基本数据类型字符型：类型名称为：

String类型符号为：

$存储空间：与串长有关3.2.1基本数据类型逻辑型：类型名称为：

Boolean存储空间：2B取值为：True或False3.2.1基本数据类型日期型：类型名称为：

Date存储空间：8B取值范围为：

100年1月1日 ～9999年12月31日3.2.1基本数据类型对象型：类型名称为：

Object存储空间：4B取值范围为：任何对象引用3.2.1基本数据类型变体型：类型名称为：

Variant存储空间：>=16B取值范围为：数值型可达Double型的范围变体型是VB数据的缺省数据类型，它可以存储各种类型的数据。3.2.2用户自定义数据类型用户自定义类型也称记录类型。可在模块的通用声明部分，使用Type语句来定义，格式如下：[Public|Private]Type<数据类型名> <成员1>As<类型名> <成员2>As<类型名> … <成员n>As<类型名>EndTypePrivateTypeStudentnoAsString '学号nameAsString'姓名sexAsString '性别birthAsDate '出生日期EndTypePrivateSubForm_Click()Dimstu1AsStudent,iAsIntegerstu1.no="1101122001"i=1Printstu1.no,iEndSub例如：3.3常量和变量PrivateSubCommand1_Click()ConstPiAsSingle=3.14159DimrAsSingle,sAsSingle,cAsSingle

r=10.0

c=2*Pi*r

s=Pi*r*rPrint"r=";r,"c=";c,"s=";sEndSub程序中，r、c、s为变量，

3.14159、10.0、2、“

r=”等为常量，Pi为符号常量，2*Pi*r、Pi*r*r为表达式。[引例]已知圆的半径r，求圆的周长c和面积s。编程如下：3.3.1常量常量是在程序的运行过程中其值保持不变的量。在VB中有三种常量，分别是：直接常量用户声明的符号常量系统提供的符号常量1.直接常量直接常量就是各种数据类型的具体值。根据数据类型划分有：字符串常量数值常量整型常量长整型常量单精度型常量双精度型常量逻辑型常量日期型常量用一对双引号（""）括起来的一串字符。例如："VisualBasic""12345""12a"等都是合法的字符串常量。1.直接常量直接常量就是各种数据类型的具体值。根据数据类型划分有：字符串常量数值常量整型常量长整型常量单精度型常量双精度型常量逻辑型常量日期型常量一般的数值常量由正负号、数字和小数点组成，正数的正号可以省略。1.直接常量直接常量就是各种数据类型的具体值。根据数据类型划分有：字符串常量数值常量整型常量长整型常量单精度型常量双精度型常量逻辑型常量日期型常量有十进制、八进制和十六进制三种形式。十进制数由0-9数字组成八进制数由0-7组成，前加&O十六进制数是由0-9、A-F组成，前加&H。例如：123，&O123，&H123，-120，120%1.直接常量直接常量就是各种数据类型的具体值。根据数据类型划分有：字符串常量数值常量整型常量长整型常量单精度型常量双精度型常量逻辑型常量日期型常量十进制、八进制和十六进制三种形式。在数后跟类型符&，说明长整型常量。八进制数前加&O。十六进制数前加&H。例如：120&，43210，-12345678&，&O1234&，&HFFFFF，&HF&，都是长整型常量1.直接常量直接常量就是各种数据类型的具体值。根据数据类型划分有：字符串常量数值常量整型常量长整型常量单精度型常量双精度型常量逻辑型常量日期型常量两种形式：十进制小数形式，指数形式。十进制小数形式。例如：

31.456、123！、-12.7、.0315。指数形式格式为：

mmmEeee其中mmm是尾数，eee是指数，指数必须是整数，可带正号或负号。例如：1.234E5表示的是1.234×105；-8.9763E-3，表示的是-8.9763×10-3。1.直接常量直接常量就是各种数据类型的具体值。根据数据类型划分有：字符串常量数值常量整型常量长整型常量单精度型常量双精度型常量逻辑型常量日期型常量两种形式：十进制小数形式，指数形式。十进制小数形式。例如：31.456#、-12.7#、.0315#，123#。指数形式格式为：

mmmDeee其中mmm是尾数，eee是指数，指数必须是整数，可带正号或负号。例如：

1.234D5，表示的是1.234×105；-8.9763D-3，表示的是-8.9763×10-3。1.直接常量直接常量就是各种数据类型的具体值。根据数据类型划分有：字符串常量数值常量整型常量长整型常量单精度型常量双精度型常量逻辑型常量日期型常量两个取值：True

False1.直接常量直接常量就是各种数据类型的具体值。根据数据类型划分有：字符串常量数值常量整型常量长整型常量单精度型常量双精度型常量逻辑型常量日期型常量日期型常数表示形式为：#mm/dd/yyyy#例如：#6/15/2012#表示2012年6月15日#Jan1,2013#表示2013年1月1日2.用户声明的符号常量声明格式为：

[Public|Private]Const<常量名>[As类型]=<表达式>Public在标准模块中声明全局性的符号常量。Private在标准或窗体模块中，声明模块私有的符号常量。省略时，默认为Private。常量名命名规则与变量相同。习惯大写字母表示。[As类型]指定数据类型。也可以用数据类型符。

<表达式>为常量表达式，其中不能出现变量。在一行中可声明多个符号常量，用逗号分隔。例如：PublicConstPIAsSingle=3.14,G!=9.83.系统提供的符号常量VB定义了许多符号常量，以“vb”开头，如：

vbRed、vbCrLf等在VB编程时可以直接使用，例如：Text1.ForeColor=vbRed3.3.2变量变量的命名规则变量的声明变量作用域1.变量的命名规则变量名必须是以字母或汉字开头的，由字母、汉字、数字、下划线组成的串，长度≤255个字符。不能取关键字作为变量名。变量名不区分字母的大小写。例如：re，工资，intSum，Stu1，为合法变量名。

mydata，re.er，8re，Integer，非法变量名。2.变量的声明(1)显示声明变量，格式：

Public|Private|Dim|Static变量名[As类型]…PrivatekAsInteger,dAsDoublePublicnAsInteger PrivateSubForm_Load()StaticiAsInteger

DimxAsSingle,yAsSingle

k=3:i=2Printk,d,n,i,x,yEndSubPrivateSubCommand1_Click()Printk+1EndSub示例：2.变量的声明(1)显示声明变量，格式：

Public|Private|Dim|Static

变量名[As类型]…关键字声明位置变量级别作用范围Dim或Static在过程内局部变量当前过程Private或Dim在窗体或模块的声明处模块级变量当前窗体或模块的所有过程Public在窗体或模块的声明处全局变量工程内的所有过程2.变量的声明(1)显示声明变量，格式：

Public|Private|Dim|Static变量名[As类型]…

[As类型]用于声明变量的数据类型，其中类型可以是VB的基本数据类型，也可以是用户定义的数据类型。缺省时为变体型。可以在变量名后紧跟一个类型说明符（%、&、！、#、@、$之一），来替代As<类型>。2.变量的声明(1)显示声明变量，格式：

Public|Private|Dim|Static变量名[As类型]…变长字符串变量用String作为数据类型进行声明，存储的字符串可长可短。变长字符串最多可包含231(大约

20亿)个字符。定长字符串变量用String*size作为数据类型进行声明，size取值范围为1-216

。DimS1AsString,S2AsString*6

2.变量的声明(1)显示声明变量，格式：

Public|Private|Dim|Static变量名[As类型]…一条声明变量的语句可声明多个变量，各变量之间以逗号隔开。声明变量时，系统将自动为变量赋一个初始值。数值型变量，初始值为0；变长字符串变量，初始值为空字符串（“”）；定长字符串变量（定长n），则初始值为n个空白字符的串；逻辑型变量的初始值为False。2.变量的声明(2)隐式声明变量

在VB中，允许不显式声明而直接使用变量，这种方式称为隐式声明，此时VB会把该变量指定为变体（Variant）数据类型，并默认为局部变量。(3)OptionExplicit语句强制显式声明变量在模块的通用声明处，输入OptionExplicit语句，编译时系统将检查并通告模块中隐式声明的变量，强制要求显式声明变量。3．变量作用域

按照变量声明使用的关键词，以及声明语句的位置，可以将变量分为：局部变量模块级变量全局变量3．变量作用域

按照变量声明使用的关键词，以及声明语句的位置，可以将变量分为：局部变量模块级变量全局变量又称为过程级变量，是在过程中使用Dim或Static声明的变量，其作用域仅限于声明变量的过程，通常用于过程中保存临时数据。3．变量作用域

按照变量声明使用的关键词，以及声明语句的位置，可以将变量分为：局部变量模块级变量全局变量在窗体模块或标准模块的通用声明部分，使用Private或Dim声明的变量称为模块级变量。模块级变量可被模块中的任何过程访问，通常用于存放模块中各过程公用的一些数据。3．变量作用域

按照变量声明使用的关键词，以及声明语句的位置，可以将变量分为：局部变量模块级变量全局变量用Public关键词声明的变量，其作用域为整个应用程序，可以供所有模块、所有过程使用，通常用于存放整个应用程序公用的数据。3.4常用内部函数3.4.1数学(Math)函数3.4.2日期(DateTime)函数3.4.3字符串(Strings)函数3.4.4转换(Conversion)函数3.4.1数学函数函数函数类型功能示例函数值Sqr(x)Double求x的平方根(x≥0)Sqr(4)2Log(x)Double求自然对数lnxLog(4)1.38629436111989Exp(x)Double指数函数exExp(2)7.38905609893065Abs(x)与x相同返回x的绝对值Abs(-26)26Sgn(x)Integer符号函数：当x>0时，返回1；当x=0时，返回0；当x<0时，返回-1Sgn(20)Sgn(0)Sgn(-20)10-1Sin(x)Double正弦函数Sin(30*3.14/180)0.499770102643102Cos(x)Double余弦函数Cos(30*3.14/180)0.866158094405463Tan(x)Double正切函数Tan(30*3.14/180)0.576996400392873Atn(x)Double反正切函数Atn(30*3.14/180)0.4821395564077623.4.2

日期函数函数函数类型功能示例结果Now[()]Variant当前日期时间Now5/12/20128:20:24Date[()]Variant当前日期Date5/12/2012Time[()]Variant当前时间Time8:20:24Hour(Now)整数0~23当前的时Hour(Now)8Minute(Now)整数0~59当前的分Minute(Now)20Second(Now)整数0~59当前的秒Second(Now)24Year(Now)年份整数当前的年Year(Now)2012Month(Now)月份整数当前的月Month(Now)5Day(Now)日的整数当前的日Day(Now)123.4.3字符函数函数功能示例结果Len(s)求s长度Len("VB程序设计")6LenB(s)求s的字节个数LenB("VB程序设计")12Left(s,n)取s左边的n个字符Left("VisualBasic",6)"Visual"Right(s,n)取s右边的n个字符Right("VisualBasic",5)"Basic"Mid(s,n1[,n2])取s的n1开始n2个字符Mid("VisualBasic",3,2)"su"UCase(s)将s中的小写字符改大写UCase(s)("Visual")"VISUAL"LCase(s)将s中的大写字符改小写LCase(s)("Visual")"visual"LTrim(s)去掉s左边的空格LTrim("abcd")"abcd"RTrim(s)去掉s右边的空格RTrim("abcd")"abcd"Trim(s)去掉s两边的空格Trim("abcd")"abcd"InStr([n,]s,s1)从s的n位置起找s1出现的位置，找不到为0，缺省n从头开始找InStr("ABaBac","Ba")InStr(3,"ABaBac","Ba")24String(n,s)返回由s的首字符构成的长度为n的新字符串String(4,"*")"****"Space(n)返回n个空格的字符串Space(5)""IsNumeric(e)判断表达式的结果是否为数IsNumeric("12abcd")IsNumeric("12")FalseTrue注：在VB6.0中，字符用Unicode编码，英文字符和汉字均用两个字节存储。3.4.3字符函数

4.转换函数函数名函数类型功能示例结果Int(x)Variant取小于等于x的最大整数Int(3.6)Int(-5.49)3-6Fix(x)Variant返回x的整数部分Fix(3.6)Fix(-5.49)3-5Str(x)String将x转换成字符串(含符号位，+表示为空格)Str(2)Str(-2)“2”"-2"Val(x)Double将数字字符串x转换成数值Val("289")289Chr(x)String返回以x为ASCII代码的字符Chr(65)"A"Asc(x)Integer返回字符串x首字符的ASCII码Asc("B")66CInt(x)Integer将x转换成整数，当小数部分恰好为0.5时，取最接近x的偶数，否则，小数部分四舍五入CInt(2.6)CInt(2.5)32

4.转换函数函数名函数类型功能示例结果CStr(x)Stringx转换成字符串,不留正数符号位CStr(2)CStr(-2)"2""-2"CLng(x)Longx转成长整数,小数为0.5,取x最近的偶数,否则,四舍五入CLng(23.46)23CCur(x)Currency将数值x转换成货币型数据CCur(2.55555)2.5556CSng(x)Single将数值x转换成单精度数据CSng(37.4597812)37.45978CDbl(x)Double将数值x转换成双精度数据CDbl(37.4597812)37.4597812Hex(x)String返回CInt(x)的十六进制数值的字符串Hex(10)"A"Oct(x)String返回CInt(x)的八进制数值的字符串Oct(9)"11"5.其他常用函数(1)随机函数(2)Format(格式)函数（1）随机函数①Rnd随机函数--生成[0,1)范围内的单精度随机数。

格式：Rnd[(x)]

其中：x是可选的单精度参数。当x>0时或省略x时，用上一次调用Rnd产生的随机数作种子，生成随机数；第一次调用Rnd生成随机数时，则直接用初始给定的种子生成随机数。当x=0时，则重复生成最近生成的随机数。当x<0时，则使用x作为种子生成随机数。

说明：Rnd函数通常与Int函数配合使用，生成[m,n]范围内的随机整数，公式如下。Int(Rnd*(n–m+1)+m)（1）随机函数②Randomize语句格式：

Randomize[数值表达式]功能：用“数值表达式”的值，对

Rnd

函数的随机数生成器初始化，给随机数生成器一个新的种子值。如果省略“数值表达式”，则用系统计时器Timer的返回值作为新的种子值。Timer返回值为从午夜开始到现在经过的秒数，是一动态数据。（2）

Format（格式）函数格式：

Format(表达式，格式字符串)说明：①省略“格式字符串”，Format函数功能与Cstr函数相同。②“格式字符串”由格式控制字符组成，常用格式控制字符有如下几种。

#

0

.

,

%

$

E+

其中，“#”、“0”是数位控制符；“.”、“,”是标点控制符；“E+”是指数输出控制符；其它为符号控制符。“格式字符串”可以是一个字符串型的常量或变量，其值为由格式控制字符组成的字符串。（2）

Format（格式）函数示例：PrivateSubCommand1_Click()PrintFormat(1234.567,"00000.0000")PrintFormat(1234.567,"#####.####")PrintFormat(1234.567,"##,###.##")PrintFormat(0.567,"#####.##%")PrintFormat(1234.567,"$#####.##")PrintFormat(1234.567,"0.00E+00")EndSub结果：3.5运算符与表达式3.5.1算术运算符与算术表达式3.5.2字符串连接符与字符串表达式3.5.3

关系运算符与关系表达式3.5.4逻辑运算符与逻辑表达式3.5.5表达式的计算1.算术运算符与算术表达式运算符功能示例优先级表达式值^乘方2^38高

低-负号-3+2-1*和/乘和除1+7/2+3*416.5\整除9\42Mod求余数5Mod32+和-加和减2+3-7-2说明：（1）负号“-”为单目运算符；其余都是双目运算符。（2）算术运算符左、右两边的操作数应该是数值型数据，若是数字字符串或逻辑数据，则需先转换成数值数据(True→-1，False→0)，然后再进行算术运算。例如，123*"1"的值为123，325+True的值为324。（3）对于

+、-、*，如果两操作数类型相同，运算结果也将是同一类型。否则,结果类型为两个操作数中存储长度较长的那个数据类型。对于^和/运算，不论两个操作数类型是否相同，运算结果是双精度数。1.算术运算符与算术表达式说明：（5）对于\、Mod运算符，左、右两边的操作数先取整再运算(相当于Cint)。\运算返回两操作数的整除结果；Mod运算返回两操作数相除的余数，所得余数的符号与第一个操作数的符号相同。两者返回值都为整数。（6）对于/、\、Mod运算，除数不能为零，否则出现运行错误——除数为零。（7）在进行算术运算时，不要超出数据取值范围。例如，Print32765+3就会出现“溢出”错误。1.算术运算符与算术表达式算术表达式就是由算术运算符、圆括号和操作数构成的表达式，操作数可以是常量、变量和函数。计算时，根据运算符的优先级顺序进行计算，同一优先级时，从左到右进行运算。1.算术运算符与算术表达式书写算术表达式时应注意：（1）VB表达式必须表示在同一行上。例如，23要写成2^3；要写成a/b的形式。（2）乘号不能省略。例如，应写成a*b/c。（3）表达式中所有的括号一律用圆括号，并且括号左右必须配对，圆括号可以嵌套。例如，可写成a*b/(2*(c+d))。（4）数学中表示特定含义的符号要写成具体的数值。例如：(2πr+e-5)lnx，可写成

(2*3.1415926*r+Exp(-5))*Log(x)1.算术运算符与算术表达式2.字符串连接符与字符串表达式字符串连接符：&和

+。&强制将两个操作数作为字符串连接起来。+既可作字符串连接操作，又可进行加法运算。示例：组合情况表达式及其值表达式及其值操作数都是字符串类型"123"+"3"→"1233""123"&"3"→"1233"操作数都是数值类型123+3→126123&3→"1233"一个是数值类型，另一个是可以转换为数值的字符串"123"+3→126"123"&3→"1233"一个是数值类型，另一个是不能转换为数值的字符串"123a"+3→出错"123a"&3→“123a3"3.关系运算符与关系表达式6种关系运算符的优先级相同。关系表达式——关系运算符和操作数组成的式子。运算时对两边的操作数进行大小比较，成立则返回True，否则返回False。运算符<<=>>=<>=功能小于小于等于大于大于等于不等于等于（1）数值型数据的比较——比较其大小。例如：123<35，结果为False。（2）字符型数据的比较①单个字符比较，则比较单个的字符ASCII码。②比较两个字符串，则从左到右逐个字符进行比较，遇大则大，长大短小，完全相同，才是相等。例如，“ABC”>“Abc”，值为False3.关系运算符与关系表达式4.逻辑运算符与逻辑表达式运算符NotAndOrXor功能逻辑非逻辑与逻辑或逻辑异或优先级高

低ABNotAAAndBAOrBAXorBTrueTrueFalseTrueTrueFalseTrueFalseFalseFalseTrueTrueFalseTrueTrueFalseTrueTrueFalseFalseTrueFalseFalseFalse逻辑运算符的运算规则

逻辑运算符

5.表达式的计算（1）进行函数运算。（2）表达式中有括号，则先做括号内的运算。（3）有多种运算符时，按运算符的优先级顺序进行运算。（4）同一优先级的运算，按从左到右的顺序进行。当一个表达式中包含多种运算符时，表达式的执行顺序如下。运算符的优先级：优先级高

低优先级算术^→-→(*，/)→\→MOD→(+，-)高

低连接(&，+)比较(>，<，>=，<=，<>，=，Is)逻辑Not→And→Or→

Xor

3.6常用的基本语句3.6.1赋值语句3.6.2数据的输入3.6.3数据的输出3.6.4注释语句3.6.5Stop语句与End语句3.6.1赋值语句语法格式：

<变量名>=<表达式> [对象名.]属性名=<表达式>功能：计算赋值操作符“=”右侧表达式的值，然后把该值保存到左侧的变量或属性中。例如：g!=9.8

Label1.Caption="欢迎使用VisualBasic6.0"说明：（1）“=”称赋值号，与数学中的等号意义不同。VB系统会自动根据“=”的位置，判断是赋值号，还是“等于”运算符。（2）赋值号“=”左侧必须是变量或对象的属性，不能是常量、表达式。（3）当赋值号“=”左侧变量或对象属性的数据类型与右侧表达式的数据类型不一致时，以左侧为准，将右侧值转换成左侧的数据类型，转换可行则进行赋值，不可行则报错。3.6.1赋值语句（1）使用TextBox输入数据PrivateSubCommand1_Click()DimSnameAsString,ageAsInteger

Sname=Text1.Textage=Val(Text2.Text)Text3=Sname&"的年龄"&ageEndSub3.6.2数据的输入

设计程序，单击“面积计算”按钮，产生InputBox对话框，输入圆的半径，计算并输出圆的面积。PrivateSubCommand1_Click()DimrAsSingle,sAsSingler=InputBox("请输入半径：","输入框",10)s=3.14*r*rPrint"圆的面积是：";sEndSub（2）使用InputBox函数输入数据3.6.2数据的输入使用格式：

v=InputBox(Prompt[,Title][,Default][,x,y][,Helpfile,Context])（2）使用InputBox函数输入数据3.6.2数据的输入例：设置一个输入框：

提示用户输入要查的学号。提示：若提示内容中需要换行显示：在换行处加chr(13)和chr(10)

各项参数位置必须一一对应InputBox函数功能:打开一个对话框,等待用户输入内容。单击确定，返回输入值（字符型数据）1.使用TextBox和Label输出数据可以把数据处理结果赋给文本框的Text属性，实现在文本框中输出数据。也可以把数据处理结果赋给Label控件的Caption属性，实现在Label控件上输出数据。3.6.3数据的输出PrivateSubCommand1_Click()DimSnameAsString,ageAsInteger

Sname=Text1.Textage=Val(Text2.Text)

Text3=Sname&"的年龄"&ageLabel3.Caption=Sname&"的年龄"&ageEndSubMsgBox函数的格式：MsgBox(Prompt[,Buttons][,Title][,Helpfile,Context])示例:A=MsgBox("确认提示",

vbOKCancel+vbInformation,"标题栏属性")2.通过MsgBox函数输出消息对话框3.6.3数据的输出MsgBox函数的格式：MsgBox(Prompt[,Buttons][,Title][,Helpfile,Context])示例:A=MsgBox("确认提示",

vbOKCancel+vbInformation,"标题栏属性")说明：2.通过MsgBox函数输出消息对话框3.6.3数据的输出(1)Prompt——需要显示的消息，长度<1024，必选，vbCrLf。(2)Title——标题栏显示内容，省略时为工程名。MsgBox函数的格式：MsgBox(Prompt[,Buttons][,Title][,Helpfile,Context])示例:A=MsgBox("确认提示",

vbOKCancel+vbInformation,"标题栏属性")说明：2.通过MsgBox函数输出消息对话框3.6.3数据的输出(3)Helpfile、Context——帮助文件名及帮助主题号。选用该选项时，在信息框中自动增加一个帮助按钮。MsgBox函数的格式：MsgBox(Prompt[,Buttons][,Title][,Helpfile,Context])示例:A=MsgBox("确认提示",

vbOKCancel+vbInformation,"标题栏属性")说明：2.通过MsgBox函数输出消息对话框3.6.3数据的输出(4)Buttons参数的设置Buttons=C1+C2+C3+C4值按钮的设置对应按钮名称

0

vbOKOnly---------------确定

1vbOKCancel-------------确定、取消

2vbAbortRetryIgnore---终止、重试、忽略

3

vbYesNoCancel---------是、否、取消

4vbYesNo------------------是、否

5vbRetryCancel----------重试、取消(4)Buttons参数的设置①按钮的类型和数目的设置

Buttons=C1按钮形式+C2图标样式+C3缺省按钮+C4强制回应Buttons参数值=1或vbOKCancel对应值符号常量出现的图标②图标的样式

Buttons=C1按钮形式+C2图标样式+C3缺省按钮+C4强制回应16vbCritical--------------------32vbQuestion--------------------48vbExclamation--------------64vbInformation---------------Buttons参数值=1+64或vbOKCancel+vbInformationButtons参数的设置对应值符号常量缺省的活动按钮③说明哪一个是缺省按钮

Buttons=C1按钮形式+C2图标样式+C3缺省按钮+C4强制回应

0VbDefaultButton1256VbDefaultButton2512VbDefaultButton3Buttons参数值=65(1+64+0)

或vbOKCancel+vbInformation+VbDefaultButton1Buttons参数的设置

符号常量返回值对应按钮

(5)MsgBox函数值

——根据用户单击的按钮返回不同的函数值vbOK1--------------------确认vbCancel2--------------------取消vbNo7-------------------否(N)vbAbort3-------------------终止(A)vbRetry4--------------------重试(R)vbIgnore5--------------------忽略(I)vbYes6-------------------是(Y)MsgBox(Prompt[,Buttons][,Title][,Helpfile,Context])设计一个如下所示的提示框：

A=MsgBox("非法数据！"+Chr(13)+Chr(10)+"是否继续？",vbYesNo+vbCritical,"提示信息")练习使用信息框练习编制一个帐号与密码的检验程序：要求：①帐号ntdxxs，密码为VB6，密码框中不显示实际字符②输入帐号不正确时，提示有关信息，并清除原内容，得到焦点，再输入③密码不正确时，单击“重试”，密码框清空，得到焦点重新输入，若单击“取消”，停止运行方法一:作为表达式的组成部分，例如,a=MsgBox("非法数据",48,"提示信息")方法二:以语句形式使用MsgBox函数，例如,

MsgBox"非法数据",48,"提示信息"MsgBox函数的使用：Print方法语