Visual Basic 语 言 程 序 设 计第 4章 数据的输出与输入
除界面以外，一个程序一般分为三部分：输入、
处理和输出。 VB的输入输出有着十分丰富的内容和形式，它提供了多种手段，并可通过各种控件实现输入输出操作。本章主要介绍数据的输出、输入、消息函数等。
Visual Basic 语 言 程 序 设 计
4.1 数据的输出
4.1.1 Print方法格式：［对象,］ Print［表达式表］［,|；］
– 功能,Print方法可以在相应对象上显示文本和表达式的值。
Visual Basic 语 言 程 序 设 计
4.1.2 与 Print有关的函数
信息要按一定的格式输出，需要使用 Tab,Spc、
Space$函数，这些函数必须与 Print方法配合使用。
1.Tab函数
– 格式,Tab(n)
– 功能：把光标移到由参数 n指定的位置，从这个位置输出信息，输出的内容放在 Tab函数的后面，并用分号隔开。
Visual Basic 语 言 程 序 设 计
2.Spc函数
格式,Spc(n)
功能：在 Print方法中，用 Spc函数，可以跳过
n个空格。
【 例 4.6】 在窗体上显示 Spc函数的输出格式。
– Print "abcd";Spc(10);"efg"
– 输出结果：
abcd efg
Visual Basic 语 言 程 序 设 计
3.空格函数 Space$
格式,Space$(n)
功能：返回 n个空格。
【 例 4.7】 在窗体上显示 Space函数的输出格式。
– A$="A"+Space$(8)+"D"
– Print A$
– 输出结果：
A D
Visual Basic 语 言 程 序 设 计
4.格式输出函数 Format
用格式函数 Format，可以使数值或日期按指定的格式输出。
格式,Format(数值表达式,格式字符串 )
功能：按,格式字符串,指定的格式，输出
,数值表达式,的值。
说明：
–,格式字符串,是一个字符串常量或变量，它由专门的格式说明字符组成，如表 4.1所示。
Visual Basic 语 言 程 序 设 计格式说明字符
字符 作用
# 数字占位符；不在前面或后面补 0
0 数字占位符；在前面或后面补 0
,小数点
,千位分隔符
% 百分比符号
$ 美元符号
-,+ 负、正号
E+,E- 指数符号
Visual Basic 语 言 程 序 设 计格式说明字符
– (1)＃：表示一个数字位。＃的个数决定了显示区段的长度。
– (2) 0：与＃功能相同，只是多余的位以 0补齐。
– (3),：小数点，根据字符串的位置，小数部分多余的数字按四舍五入处理。
– (4),：逗号。在格式字符串中插入逗号起到,分位,的作用。
– (5) ％：百分号。通常放在格式字符串的尾部。
– (6) $：美元符号。通常作为格式字符串的起始字符。
– (7) ＋：正号。使显示的正数带上符号。通常放在格式字符串的头部。
– (8) －：负号。用来显示负数。
– (9) E＋ (E－ )：用指数形式显示数值。
Visual Basic 语 言 程 序 设 计
4.1.3 Cls方法
格式：［对象,］ Cls
功能：清除窗体上或图片框中的文本，并把光标移到对象的左上角 (0,0)。
说明：
– (1) 对象是指窗体或图片框。
– (2) 当窗体的背景是用 Picture属性装入的图形时，不能用 Cls方法清除，只能通过 LoadPicture()函数清除。
【 例 4.9】 使用 Cls方法清除图片框和窗体的内容。
– Picture1.Cls '清除图片框 Picture1内的图形或文本
– Cls '清除当前窗体显示的内容
Visual Basic 语 言 程 序 设 计
4.2 数据输入函数 InputBOX
在有些操作中，有时需要在程序运行后，给变量输入数据,VB提供了数据输入函数。
格式,InputBox(prompt［,title］［,default］［,xpos,ypos］
［,helpfile,context］ )功能：产生一个对话框，这个对话框作为输入数据的界面，等待用户输入数据，并返回所输入的内容。
– (1)prompt：是一个字符串，其长度不得超过 1024个字符，它是在对话框内显示的提示信息。
– (2)title：是字符串，它是对话框的标题，显示在对话框的顶部的标题区。
– (3)default：用来显示输入缓冲区的默认信息。如果用户没有输入任何信息，则可用此默认字符串作为输入值。
Visual Basic 语 言 程 序 设 计
4.2 数据输入函数 InputBOX
– (4)xpos,ypos：是两个整数值，分别用来确定对话框与屏幕左边的距离 (xpos)和上边的距离 (ypos)，他们的单位均为 twip。如果省略这一对参数，则对话框显示在屏幕中心线向下约三分之一处。
– (5)helpfile,context,helpfile是一个字符串变量或字符串表达式，
用来表示帮助文件的名字。 Context是一个数值变量或表达式，用来表示帮助主题的帮助目录号。当带有这两个参数时，将在对话框中出现一个,帮助,按钮，单击该按钮或按 F1键时，可以得到有关帮助信息。
– (6)在执行 InputBox函数所产生的对话中，有两个按钮：一个是,确定,按钮，另一个是,取消,按钮。在输入区输入数据后，单击
,确定,按钮或按回车键，表示确认，并返回在输入区中输入数据。
而单击,取消,按钮或按 Esc键，则使当前输入的数据作废。
– (7)每执行一次 InputBox函数只能输入一个值。
– (8) InputBox函数也可以写成 InputBox$的形式，这两种形式完全等价。
Visual Basic 语 言 程 序 设 计
4.3 MsgBox函数和 MsgBox语句
在使用 Windows时，如果操作有误，屏幕上会显示一个消息对话框，让用户进行选择，然后根据选择确定其后的操作。 MsgBox函数的功能与此类似，它可以向用户传送信息，并可通过用户在对话框上的选择接收用户所做的响应，
作为程序继续执行的依据。
Visual Basic 语 言 程 序 设 计
4.3.1 MsgBox函数
格式,MsgBox(msg［,type］［,title］［,helpfile,context］ )
功能：在屏幕上显示一个消息对话框，根据选择，确定其后的操作。
该函数有 5个参数，除第一个参数外，其余参数都是可选的。各参数的含义如下：
– (1) msg：是一个字符串，其长度不能超过 1024个字符，如果超过，则多余的字符被截掉。该字符串的内容将在 MsgBox函数产生的对话框内显示。
当字符串在一行内显示不完时，将自动换行，当然也可以用
,Chr$(13)+Chr$(10)”强制换行。
– (2) type：是一个整数值或符号常量，用来控制在对话框内显示的按钮、
图标的种类及数量。该参数的值由 4类数值相加产生，这 4类数值或符号常量分别表示按钮的类型、显示图标的种类、活动按钮的位置及强制返回，如表 4.2所示。
Visual Basic 语 言 程 序 设 计表 4.2 type参数的取值 (1)
符号常量 值 作 用
vbOKOnly 0 只显示,确定,按钮
vbOKCancel 1 显示,确定,及,取消,按钮
vbAbortRetryIgnore 2 显示,终止,,,重试,及,忽略,
按钮
vbYesNoCancel 3 显示,是,,,否,及,取消,按钮
vbYesNo 4 显示,是,及,否,按钮
vbRetryCancel 5 显示,重试,及,取消,按钮
vbCritical 16 显示 Critical Message 图标
vbQuestion 32 显示 Warning Query 图标
vbExclamation 48 显示 Warning Message 图标
vbInformation 64 显示 Information Message 图标
Visual Basic 语 言 程 序 设 计表 4.2 type参数的取值 (1)
符号常量 值 作 用
vbDefaultButton1 0 第一个按钮是默认值
vbDefaultButton2 256 第二个按钮是默认值
vbDefaultButton3 512 第三个按钮是默认值
vbDefaultButton4 768 第四个按钮是默认值
vbApplicationModal 0 应用程序强制返回；应用程序一直被挂起，直到用户对消息框作出响应才继续工作
vbSystemModal 4096 系统强制返回；全部应用程序都被挂起，直到用户对消息框作出响应才继续工作
Visual Basic 语 言 程 序 设 计上述表中的数值分为 4类，其作用分别为：
① 数值 0～ 5：对话框内命令按钮的类型和数量。按钮共有 7种，
即确认、取消、终止、重试、忽略、是、否。每个数值表示一种组合方式。
② 数值 16,32,48,64：指定对话框所显示的图标。共有 4种，
其中 16指定暂停 (× )； 32表示疑问 (?)； 48通常用于警告 (!)；
64用于显示提示信息 (i)。
③ 数值 0,256,512,768：指定默认活动按钮。活动按钮中文字的周围有虚线，按回车键可执行该按钮的操作。
④ 数值 0,4096：分别用于应用程序和系统强制返回。
type参数由上面 4类数值组成，其组成原则是：从每一类中选择一个值，把这几个值加在一起就是 type参数的值 (在大多数应用程序中，通常只使用前 3类数值 )。不同的组合会得到不同的结果。
Visual Basic 语 言 程 序 设 计例如：
– 16=0+16+0 显示,确定,按钮,,暂停,图标，
默认按钮为,确定,35=3+32+0 显示,是,,
,否,,,取消,3个按钮，显示,?”图标，默认活动按钮为,是,
– 50=2+48+0 显示,终止,,,重试,,,忽略,3个按钮，显示,!”图标默认活动按钮为,终止,
– 每种数值都有相同的符号常量，其作用与数值相同。
使用符号常量可以提高程序的可读性。上面 4类数值是 type参数较为常用的数值。除这 4类数值外，
type参数还可以取其他几种值，这些数值是不常用的，其常量和值如表 4.3所示。
Visual Basic 语 言 程 序 设 计表 4.3 type参数的取值 (2)
– 符号常量 值 作 用
– vbMsgBoxHelpButton 16384 将 Help按钮添加到消息框
– vbMsgBoxSetForeground 65536 指定消息框窗口作为前景窗口
– vbMsgBoxRight 524288 文本为右对齐
– vbMsgBoxRtlReading 1048576 指定文本应为在希伯来和阿拉伯语系统中的从右到左显示
Visual Basic 语 言 程 序 设 计
4.3.1 MsgBox函数
– (3)title：是一个字符串，用来显示对话框的标题。
– (4)helpfile,context：同 InputBox函数。
– MsgBox函数的 5个参数中，只有第一个参数 msg是必需的，其他参数均可忽略。如果省略第二个参数 type(默认值为 0)，则对话框内只显示一个,确定,命令按钮，并把该按钮设置为活动按钮，不显示任何图标。如果省略第三个参数 title，则对话框的标题为当前工程的名称，如果希望标题栏中没有任何内容，则应把 title参数置为空字符串。
– MsgBox函数的返回值是一个整数，这个整数与所选择的命令按钮有关，如前所述,MsgBox函数所显示的对话框有 7种命令按钮，返回值与这 7种按钮相对应，分别为 1～ 7的整数，如表
4.4所示。
Visual Basic 语 言 程 序 设 计表 4.4 MsgBox函数的返回值
– 返回值 操 作 符号常量
– 1 选,确定,按钮 vbOk
– 2 选,取消,按钮 vbCancel
– 3 选,终上,按钮 vbAbort
– 4 选,重试,按钮 vbRetry
– 5 选,忽略,按钮 vbIgnore
– 6 选,是,按钮 vbYes
– 7 选,否,按钮 vbNo〖 ST〗
Visual Basic 语 言 程 序 设 计
4.3.2 MsgBox语句
格式,MsgBox Msg$［,type%］［,title$］
［,helpfile,context］
功能：在屏幕上显示一个消息框。
说明：各参数的含义及作用与 MsgBox函数相同，
由于 MsgBox语句没有返回值，因而常用于较简单的信息显示。
Visual Basic 语 言 程 序 设 计
4.4.1 字体类型和大小
1.字体类型
– 字体类型通过 FontName属性设置：
– 格式：［窗体,］［控件,］ |Printer.FontName［ ="字体类型
"］
– 功能,FontName可作为窗体、控件或打印机的属性，用来设置在这些对象上输出的字体类型。
– 说明：这里的,字体类型,指的是可以在 Visual Basic中使用的英文字体或中文字体。对于中文来说，可以使用的字体数量取决于 Windows的汉字环境。
Visual Basic 语 言 程 序 设 计
4.4.1 字体类型和大小
2.字体大小
– 字体大小通过 FontSize属性设置，在前面的例子中，
曾使用过这种属性。
– 格式,FontSize［ =点数］
– 功能：用,点数,来设定字体的大小。
– 说明：在默认情况下，系统使用最小的字体,,点数,为 9。如果省略,=点数,,则返回当前字体的大小。
Visual Basic 语 言 程 序 设 计
4.4.2 其他属性
除字体类型和字号大小外,Visual Basic还提供了其他一些属性，使文字的输出丰富多彩。
– 1.粗体字
粗体字由 FontBold属性设置。
格式,FontBold［ =Boolean］
功能：该属性可以取两个值，即 True和 False。当
FontBold属性为 True时，文本以粗体字输出，否则按正常字输出。默认为 False。
Visual Basic 语 言 程 序 设 计
4.4.2 其他属性
2.斜体字
– 斜体字由 FontItalic属性设置。
– 格式,FontItalic［ =Boolean］
– 功能：当 FontItalic属性被设置为 True时，文本以斜体字输出。该属性的默认值为 False。
3.加删除线
– 格式,FontStrikethru［ =Boolean］
– 功能：如果把 FontStrikethru属性设置为 True，则在输出的文本中部画一条直线，直线的长度与文本的长度相同。该属性的默认值为 False。
Visual Basic 语 言 程 序 设 计
4.4.2 其他属性
4.加下划线
– 下划线即底线，用 FontUnderline属性可以给输出的文本加上底线。
– 格式,FontUnderline［ =Boolean］
– 功能：如果 FontUnderline属性被设置为 True，则可使输出的文本加下划线。该属性的默认值为
False。
– 在上面的各种属性中，可以省略方括号中的内容。
在这种情况下，将输出的属性的当前值或默认值。
Visual Basic 语 言 程 序 设 计
4.4.2 其他属性
5.重叠显示
– 当以图形或文本作为背景显示新的信息时，有时候需要保留原来的背景，使新显示的信息与背景重叠，
这可以通过 FontTransparent属性来实现。
– 格式,FontTransparent［ =Boolean］
– 功能：如果该属性被设置为 True，则前景的图形或文本可以与背景重叠显示；如果被设置为 False，
则背景将被前景的图形或文本覆盖。
– 在使用以上介绍的字形属性时，应注意以下两点：
Visual Basic 语 言 程 序 设 计
4.5 打印机输出
4.5.1 直接输出
– 所谓直接输出，就是把信息直接送往打印机，所使用的仍是 Print方法，只是 Print方法的对象改为
Printer，其格式为：
– Printer.Print［表达式表］
– 这里的 Print及其,表达式表,的含义同前。执行上述语句后，就把,表达式表,的值在打印机上打印出来。
Visual Basic 语 言 程 序 设 计
4.5 打印机输出
1.Page属性
– Page属性用来设置页号。
– 格式,Printer.Page
– 功能,Printer.Page在打印时被设置成当前页号，并由
Visual Basic解释程序保存。每当一个应用程序开始执行时，
Page属性就被设置为 1，打印完一页后,Page属性值自动增加
1。在应用程序中，通常用 Page属性打印页号。
– 例如：
– Printer.Print "Page:";Printer.Page
2.NewPage方法
– NewPage方法用来实现换页操作。
– 格式,Printer.NewPage
Visual Basic 语 言 程 序 设 计
2.NewPage方法
功能：在一般情况下，打印机打印完一页后换页。如果使用 NewPage方法，则可强制打印机跳到下一页打印。在执行到 NewPage方法时，
打印机退出当前正在打印的页，把退出信号保存在打印机管理程序中，并在适当的时候发送到打印机。执行 NewPage后，属性 Page的值自动增 1。
Visual Basic 语 言 程 序 设 计
3.EndDoc方法
EndDoc方法用来结束文件打印。
格式,Printer.EndDoc
功能：执行 En(((&dDoc方法表明应用程序内部文件的结束，并向 Printer Manager(打印机管理程序 )发送最后一页的退出信息,Page属性重置为 1。
当需要打印的文本较长时，可以用 NewPage方法实现换页，用 Page属性打印页码。
Visual Basic 语 言 程 序 设 计
4.5.2 窗体输出
格式：［窗体,］ PrintForm
功能：直接输出是把要打印的每行信息直接在打印机上打印出来，而窗体输出则是先把要输出的信息送到窗体上，然后再用 PrintForm方法把窗体上的内容打印出来。格式中的,窗体,。是要打印的窗体名，如果打印当前窗体的内容，或者只对一个窗体操作，则窗体名可以省略。
除界面以外，一个程序一般分为三部分：输入、
处理和输出。 VB的输入输出有着十分丰富的内容和形式，它提供了多种手段，并可通过各种控件实现输入输出操作。本章主要介绍数据的输出、输入、消息函数等。
Visual Basic 语 言 程 序 设 计
4.1 数据的输出
4.1.1 Print方法格式：［对象,］ Print［表达式表］［,|；］
– 功能,Print方法可以在相应对象上显示文本和表达式的值。
Visual Basic 语 言 程 序 设 计
4.1.2 与 Print有关的函数
信息要按一定的格式输出，需要使用 Tab,Spc、
Space$函数，这些函数必须与 Print方法配合使用。
1.Tab函数
– 格式,Tab(n)
– 功能：把光标移到由参数 n指定的位置，从这个位置输出信息，输出的内容放在 Tab函数的后面，并用分号隔开。
Visual Basic 语 言 程 序 设 计
2.Spc函数
格式,Spc(n)
功能：在 Print方法中，用 Spc函数，可以跳过
n个空格。
【 例 4.6】 在窗体上显示 Spc函数的输出格式。
– Print "abcd";Spc(10);"efg"
– 输出结果：
abcd efg
Visual Basic 语 言 程 序 设 计
3.空格函数 Space$
格式,Space$(n)
功能：返回 n个空格。
【 例 4.7】 在窗体上显示 Space函数的输出格式。
– A$="A"+Space$(8)+"D"
– Print A$
– 输出结果：
A D
Visual Basic 语 言 程 序 设 计
4.格式输出函数 Format
用格式函数 Format，可以使数值或日期按指定的格式输出。
格式,Format(数值表达式,格式字符串 )
功能：按,格式字符串,指定的格式，输出
,数值表达式,的值。
说明：
–,格式字符串,是一个字符串常量或变量，它由专门的格式说明字符组成，如表 4.1所示。
Visual Basic 语 言 程 序 设 计格式说明字符
字符 作用
# 数字占位符；不在前面或后面补 0
0 数字占位符；在前面或后面补 0
,小数点
,千位分隔符
% 百分比符号
$ 美元符号
-,+ 负、正号
E+,E- 指数符号
Visual Basic 语 言 程 序 设 计格式说明字符
– (1)＃：表示一个数字位。＃的个数决定了显示区段的长度。
– (2) 0：与＃功能相同，只是多余的位以 0补齐。
– (3),：小数点，根据字符串的位置，小数部分多余的数字按四舍五入处理。
– (4),：逗号。在格式字符串中插入逗号起到,分位,的作用。
– (5) ％：百分号。通常放在格式字符串的尾部。
– (6) $：美元符号。通常作为格式字符串的起始字符。
– (7) ＋：正号。使显示的正数带上符号。通常放在格式字符串的头部。
– (8) －：负号。用来显示负数。
– (9) E＋ (E－ )：用指数形式显示数值。
Visual Basic 语 言 程 序 设 计
4.1.3 Cls方法
格式：［对象,］ Cls
功能：清除窗体上或图片框中的文本，并把光标移到对象的左上角 (0,0)。
说明：
– (1) 对象是指窗体或图片框。
– (2) 当窗体的背景是用 Picture属性装入的图形时，不能用 Cls方法清除，只能通过 LoadPicture()函数清除。
【 例 4.9】 使用 Cls方法清除图片框和窗体的内容。
– Picture1.Cls '清除图片框 Picture1内的图形或文本
– Cls '清除当前窗体显示的内容
Visual Basic 语 言 程 序 设 计
4.2 数据输入函数 InputBOX
在有些操作中，有时需要在程序运行后，给变量输入数据,VB提供了数据输入函数。
格式,InputBox(prompt［,title］［,default］［,xpos,ypos］
［,helpfile,context］ )功能：产生一个对话框，这个对话框作为输入数据的界面，等待用户输入数据，并返回所输入的内容。
– (1)prompt：是一个字符串，其长度不得超过 1024个字符，它是在对话框内显示的提示信息。
– (2)title：是字符串，它是对话框的标题，显示在对话框的顶部的标题区。
– (3)default：用来显示输入缓冲区的默认信息。如果用户没有输入任何信息，则可用此默认字符串作为输入值。
Visual Basic 语 言 程 序 设 计
4.2 数据输入函数 InputBOX
– (4)xpos,ypos：是两个整数值，分别用来确定对话框与屏幕左边的距离 (xpos)和上边的距离 (ypos)，他们的单位均为 twip。如果省略这一对参数，则对话框显示在屏幕中心线向下约三分之一处。
– (5)helpfile,context,helpfile是一个字符串变量或字符串表达式，
用来表示帮助文件的名字。 Context是一个数值变量或表达式，用来表示帮助主题的帮助目录号。当带有这两个参数时，将在对话框中出现一个,帮助,按钮，单击该按钮或按 F1键时，可以得到有关帮助信息。
– (6)在执行 InputBox函数所产生的对话中，有两个按钮：一个是,确定,按钮，另一个是,取消,按钮。在输入区输入数据后，单击
,确定,按钮或按回车键，表示确认，并返回在输入区中输入数据。
而单击,取消,按钮或按 Esc键，则使当前输入的数据作废。
– (7)每执行一次 InputBox函数只能输入一个值。
– (8) InputBox函数也可以写成 InputBox$的形式，这两种形式完全等价。
Visual Basic 语 言 程 序 设 计
4.3 MsgBox函数和 MsgBox语句
在使用 Windows时，如果操作有误，屏幕上会显示一个消息对话框，让用户进行选择，然后根据选择确定其后的操作。 MsgBox函数的功能与此类似，它可以向用户传送信息，并可通过用户在对话框上的选择接收用户所做的响应，
作为程序继续执行的依据。
Visual Basic 语 言 程 序 设 计
4.3.1 MsgBox函数
格式,MsgBox(msg［,type］［,title］［,helpfile,context］ )
功能：在屏幕上显示一个消息对话框，根据选择，确定其后的操作。
该函数有 5个参数，除第一个参数外，其余参数都是可选的。各参数的含义如下：
– (1) msg：是一个字符串，其长度不能超过 1024个字符，如果超过，则多余的字符被截掉。该字符串的内容将在 MsgBox函数产生的对话框内显示。
当字符串在一行内显示不完时，将自动换行，当然也可以用
,Chr$(13)+Chr$(10)”强制换行。
– (2) type：是一个整数值或符号常量，用来控制在对话框内显示的按钮、
图标的种类及数量。该参数的值由 4类数值相加产生，这 4类数值或符号常量分别表示按钮的类型、显示图标的种类、活动按钮的位置及强制返回，如表 4.2所示。
Visual Basic 语 言 程 序 设 计表 4.2 type参数的取值 (1)
符号常量 值 作 用
vbOKOnly 0 只显示,确定,按钮
vbOKCancel 1 显示,确定,及,取消,按钮
vbAbortRetryIgnore 2 显示,终止,,,重试,及,忽略,
按钮
vbYesNoCancel 3 显示,是,,,否,及,取消,按钮
vbYesNo 4 显示,是,及,否,按钮
vbRetryCancel 5 显示,重试,及,取消,按钮
vbCritical 16 显示 Critical Message 图标
vbQuestion 32 显示 Warning Query 图标
vbExclamation 48 显示 Warning Message 图标
vbInformation 64 显示 Information Message 图标
Visual Basic 语 言 程 序 设 计表 4.2 type参数的取值 (1)
符号常量 值 作 用
vbDefaultButton1 0 第一个按钮是默认值
vbDefaultButton2 256 第二个按钮是默认值
vbDefaultButton3 512 第三个按钮是默认值
vbDefaultButton4 768 第四个按钮是默认值
vbApplicationModal 0 应用程序强制返回；应用程序一直被挂起，直到用户对消息框作出响应才继续工作
vbSystemModal 4096 系统强制返回；全部应用程序都被挂起，直到用户对消息框作出响应才继续工作
Visual Basic 语 言 程 序 设 计上述表中的数值分为 4类，其作用分别为：
① 数值 0～ 5：对话框内命令按钮的类型和数量。按钮共有 7种，
即确认、取消、终止、重试、忽略、是、否。每个数值表示一种组合方式。
② 数值 16,32,48,64：指定对话框所显示的图标。共有 4种，
其中 16指定暂停 (× )； 32表示疑问 (?)； 48通常用于警告 (!)；
64用于显示提示信息 (i)。
③ 数值 0,256,512,768：指定默认活动按钮。活动按钮中文字的周围有虚线，按回车键可执行该按钮的操作。
④ 数值 0,4096：分别用于应用程序和系统强制返回。
type参数由上面 4类数值组成，其组成原则是：从每一类中选择一个值，把这几个值加在一起就是 type参数的值 (在大多数应用程序中，通常只使用前 3类数值 )。不同的组合会得到不同的结果。
Visual Basic 语 言 程 序 设 计例如：
– 16=0+16+0 显示,确定,按钮,,暂停,图标，
默认按钮为,确定,35=3+32+0 显示,是,,
,否,,,取消,3个按钮，显示,?”图标，默认活动按钮为,是,
– 50=2+48+0 显示,终止,,,重试,,,忽略,3个按钮，显示,!”图标默认活动按钮为,终止,
– 每种数值都有相同的符号常量，其作用与数值相同。
使用符号常量可以提高程序的可读性。上面 4类数值是 type参数较为常用的数值。除这 4类数值外，
type参数还可以取其他几种值，这些数值是不常用的，其常量和值如表 4.3所示。
Visual Basic 语 言 程 序 设 计表 4.3 type参数的取值 (2)
– 符号常量 值 作 用
– vbMsgBoxHelpButton 16384 将 Help按钮添加到消息框
– vbMsgBoxSetForeground 65536 指定消息框窗口作为前景窗口
– vbMsgBoxRight 524288 文本为右对齐
– vbMsgBoxRtlReading 1048576 指定文本应为在希伯来和阿拉伯语系统中的从右到左显示
Visual Basic 语 言 程 序 设 计
4.3.1 MsgBox函数
– (3)title：是一个字符串，用来显示对话框的标题。
– (4)helpfile,context：同 InputBox函数。
– MsgBox函数的 5个参数中，只有第一个参数 msg是必需的，其他参数均可忽略。如果省略第二个参数 type(默认值为 0)，则对话框内只显示一个,确定,命令按钮，并把该按钮设置为活动按钮，不显示任何图标。如果省略第三个参数 title，则对话框的标题为当前工程的名称，如果希望标题栏中没有任何内容，则应把 title参数置为空字符串。
– MsgBox函数的返回值是一个整数，这个整数与所选择的命令按钮有关，如前所述,MsgBox函数所显示的对话框有 7种命令按钮，返回值与这 7种按钮相对应，分别为 1～ 7的整数，如表
4.4所示。
Visual Basic 语 言 程 序 设 计表 4.4 MsgBox函数的返回值
– 返回值 操 作 符号常量
– 1 选,确定,按钮 vbOk
– 2 选,取消,按钮 vbCancel
– 3 选,终上,按钮 vbAbort
– 4 选,重试,按钮 vbRetry
– 5 选,忽略,按钮 vbIgnore
– 6 选,是,按钮 vbYes
– 7 选,否,按钮 vbNo〖 ST〗
Visual Basic 语 言 程 序 设 计
4.3.2 MsgBox语句
格式,MsgBox Msg$［,type%］［,title$］
［,helpfile,context］
功能：在屏幕上显示一个消息框。
说明：各参数的含义及作用与 MsgBox函数相同，
由于 MsgBox语句没有返回值，因而常用于较简单的信息显示。
Visual Basic 语 言 程 序 设 计
4.4.1 字体类型和大小
1.字体类型
– 字体类型通过 FontName属性设置：
– 格式：［窗体,］［控件,］ |Printer.FontName［ ="字体类型
"］
– 功能,FontName可作为窗体、控件或打印机的属性，用来设置在这些对象上输出的字体类型。
– 说明：这里的,字体类型,指的是可以在 Visual Basic中使用的英文字体或中文字体。对于中文来说，可以使用的字体数量取决于 Windows的汉字环境。
Visual Basic 语 言 程 序 设 计
4.4.1 字体类型和大小
2.字体大小
– 字体大小通过 FontSize属性设置，在前面的例子中，
曾使用过这种属性。
– 格式,FontSize［ =点数］
– 功能：用,点数,来设定字体的大小。
– 说明：在默认情况下，系统使用最小的字体,,点数,为 9。如果省略,=点数,,则返回当前字体的大小。
Visual Basic 语 言 程 序 设 计
4.4.2 其他属性
除字体类型和字号大小外,Visual Basic还提供了其他一些属性，使文字的输出丰富多彩。
– 1.粗体字
粗体字由 FontBold属性设置。
格式,FontBold［ =Boolean］
功能：该属性可以取两个值，即 True和 False。当
FontBold属性为 True时，文本以粗体字输出，否则按正常字输出。默认为 False。
Visual Basic 语 言 程 序 设 计
4.4.2 其他属性
2.斜体字
– 斜体字由 FontItalic属性设置。
– 格式,FontItalic［ =Boolean］
– 功能：当 FontItalic属性被设置为 True时，文本以斜体字输出。该属性的默认值为 False。
3.加删除线
– 格式,FontStrikethru［ =Boolean］
– 功能：如果把 FontStrikethru属性设置为 True，则在输出的文本中部画一条直线，直线的长度与文本的长度相同。该属性的默认值为 False。
Visual Basic 语 言 程 序 设 计
4.4.2 其他属性
4.加下划线
– 下划线即底线，用 FontUnderline属性可以给输出的文本加上底线。
– 格式,FontUnderline［ =Boolean］
– 功能：如果 FontUnderline属性被设置为 True，则可使输出的文本加下划线。该属性的默认值为
False。
– 在上面的各种属性中，可以省略方括号中的内容。
在这种情况下，将输出的属性的当前值或默认值。
Visual Basic 语 言 程 序 设 计
4.4.2 其他属性
5.重叠显示
– 当以图形或文本作为背景显示新的信息时，有时候需要保留原来的背景，使新显示的信息与背景重叠，
这可以通过 FontTransparent属性来实现。
– 格式,FontTransparent［ =Boolean］
– 功能：如果该属性被设置为 True，则前景的图形或文本可以与背景重叠显示；如果被设置为 False，
则背景将被前景的图形或文本覆盖。
– 在使用以上介绍的字形属性时，应注意以下两点：
Visual Basic 语 言 程 序 设 计
4.5 打印机输出
4.5.1 直接输出
– 所谓直接输出，就是把信息直接送往打印机，所使用的仍是 Print方法，只是 Print方法的对象改为
Printer，其格式为：
– Printer.Print［表达式表］
– 这里的 Print及其,表达式表,的含义同前。执行上述语句后，就把,表达式表,的值在打印机上打印出来。
Visual Basic 语 言 程 序 设 计
4.5 打印机输出
1.Page属性
– Page属性用来设置页号。
– 格式,Printer.Page
– 功能,Printer.Page在打印时被设置成当前页号，并由
Visual Basic解释程序保存。每当一个应用程序开始执行时，
Page属性就被设置为 1，打印完一页后,Page属性值自动增加
1。在应用程序中，通常用 Page属性打印页号。
– 例如：
– Printer.Print "Page:";Printer.Page
2.NewPage方法
– NewPage方法用来实现换页操作。
– 格式,Printer.NewPage
Visual Basic 语 言 程 序 设 计
2.NewPage方法
功能：在一般情况下，打印机打印完一页后换页。如果使用 NewPage方法，则可强制打印机跳到下一页打印。在执行到 NewPage方法时，
打印机退出当前正在打印的页，把退出信号保存在打印机管理程序中，并在适当的时候发送到打印机。执行 NewPage后，属性 Page的值自动增 1。
Visual Basic 语 言 程 序 设 计
3.EndDoc方法
EndDoc方法用来结束文件打印。
格式,Printer.EndDoc
功能：执行 En(((&dDoc方法表明应用程序内部文件的结束，并向 Printer Manager(打印机管理程序 )发送最后一页的退出信息,Page属性重置为 1。
当需要打印的文本较长时，可以用 NewPage方法实现换页，用 Page属性打印页码。
Visual Basic 语 言 程 序 设 计
4.5.2 窗体输出
格式：［窗体,］ PrintForm
功能：直接输出是把要打印的每行信息直接在打印机上打印出来，而窗体输出则是先把要输出的信息送到窗体上，然后再用 PrintForm方法把窗体上的内容打印出来。格式中的,窗体,。是要打印的窗体名，如果打印当前窗体的内容，或者只对一个窗体操作，则窗体名可以省略。
