数据的输入和输出

第5章 数据的输入和输出
5.1 数据输出-Print方法 5.2 数据输入-InputBox函数 5.3 MsgBox函数和MsgBox语句 5.4 字形 5.5 打印机输入
5.1.2. 与Print方法有关的函数
与Print 相配合的函数： （1）Tab函数 功能：与 Print # 语句或 Print 方法一起使用，对输出进行定位。 格式：Tab[(n)]
. ⑵ 用MsgBox函数显示的提示信息最多不超过1024个字节, 所显示
的信息自动换行, 并能自动调整信息框的大小. 如果由于格式要求需 要换行, 则必须增加回车换行代码.
⑶ 在应用程序中, MsgBox函数的返回值通常用来作为继续执行程 序的依据, 根据该返回值决定其后的操作. 看下面的例子.
5.3.2 MsgBox语句 MsgBox函数也可以写成语句形式, 即:
（4）xpos,ypos：是两个整数值，分别用来确定对话框与屏幕的 左边距和上边距，这两个参数必须同时给出或全部省略。若省略 这对位置参数，则对话框显示在屏幕中心线下约1/3处。
（5）Helpfile,context：Helpfile是一个字符串变量或字符串表达式 ，表示帮助文件； context是一个数值变量或数值表达式，表示 帮助文件的相关目录号。
MsgBox Msg$[,type%][,title$][,help,context] 各参数的含义及作用与MsgBox函数相同, 由于MsgBox语句没有返回值, 因而 常用于较简单的信息显示. 例如: MsgBox “工程保存成功” 执行上面的语句, 显示的信息框如图5.14所示.
图5.14 简单信息框
FontTransParent [=Boolean]
如果该属性被设置为True，则前景的图形或文本可以与背景重叠显 示；如果被设置为False，则背景将被前景的图形或文本覆盖.
在使用以上介绍的字形属性时，应该注意以下两点：
⑴ 除重叠显示（FontTransParent）属性只适用于窗体和图片框控件外，其他属
⑴ 字体：相当于FontName属性，可在该栏中选择所需要的字体.
⑵ 字形：即显示粗体或斜体. 如果选择“斜体”，则相当于FontItalic属性；如
果
选择“粗体”，则相当于FontBold属性.
⑶ 大小：相当于FontSize属性.
⑷ 加删除线：相当于FontStrikethru属性.
加类型说明符(或在使用前给出类型说明语句) • 一个InputBox函数只能输入一个数据 • 输入的数据需要赋给变量，否则不能保存
该函数有7个参数，其含义如下： （1）Prompt:是一个字符串，其长度不超过1024个字符，它是对
话框内显示的信息，用来提示用户的输入。在对话框内显示 Prompt时，可以自动换行。若要按自己的要求换行，须插入回 车换行操作。即：Chr$(13)+Chr$(10) （2）Title:字符串，它是对话框的标题，显示在对话框顶部的标题 区。 （3）Default：字符串，用来显示输入缓冲区的默认信息。在执行 InputBox函数后，若用户没有输入任何信息，则可用此默认字符 串作为输入值。也可以在输入区直接键入数据取代默认值。若省 略该参数，则对话框的输入区为空白，等待用户输入信息。详见 P95 图5.9
⑷ 每执行一次InputBox函数只能输入一个值, 如果需要输入多个值, 则必须多次 调用InputBox函数. 输入数据并按回车键或单击 “确定”后, 对话框消失, 输入的 数据必须作为函数的返回值赋给一个变量, 否则输入的数据不能保留. 在实际应用 中, 函数InputBox通常与循环语句、数组结合使用, 这样可以连续输入多个值, 并把 输入的数据赋给数组中各元素.
[变量= ] InputBox(<提示>[,<标题>] [,<默认>] [, <x坐标位 置>] [, <y坐标位置>] [, <helpfile>, <context>])
说明：
• 各个参数的含义 • InputBox函数的执行过程 • 函数值的默认类型为 String类型 • 用InputBox输入数值数据时，需要用Val函数或在输入变量后
由MsgBox函数或MsgBox语句所显示的信息框有一个共同的特点, 就是在出现信息框后, 必须作出选择, 即单击框中的某个按钮或按回 车键, 否则不能执行其他任何操作. 在Visual Basic中, 把这样的窗口 (对话框)称为 “模态窗口”(Modal Window), 这种窗口在Windows中 普遍使用.
在程序运行时, 模态窗口挂起应用程序中其他窗口的操作. 一般来 说, 当屏幕上出现一个窗口(或对话框)时, 如果需要在响应该窗口中 的提示后才能进行其后的操作, 则应使用模态窗口.
与模态窗口相反, 非模态窗口(Modaless Window)允许对屏幕上的其 他窗口进行操作, 也就是说, 可以激活其他窗口, 并把光标移到该窗 口. MsgBox函数和MsgBox语句强制所显示的信息框为模态窗口. 在 多窗体程序中, 可以把某个窗体设置为模态窗口.
在使用InputBox函数时, 应注意以下几点: ⑴ 执行InputBox函数后, 产生一个对话框, 提示用户输入数据, 光标位于对话框
底部的输入区中. 如果第三个参数(default)不省略, 则在输入区中显示该参数的值, 此时如果按回车键或单击对话框中的 “确定”按钮, 则输入该默认值, 并可把它赋 给一个变量; 如果不想输入默认值, 则可直接键入所需要的数据, 然后按回车键或 单击“确定”按钮输入.
5.3.1 MsgBox函数
MsgBox函数的格式如下:
MsgBox(msg[,type][,title][,helpfile,context] 该函数有5个参数, 除第一个参数外, 其余参数都是可选的. 每个参 数的含义如下⑴ msg: 是一个字符串, 其长度不能超过1024个字符, 如果超过, 则多余的字符被截掉. 该字符串的内容将在由MsgBox函 数产生的对话框内显示. 当字符串在一行内显示不完时, 将自动换行, 当然也可以用 “Chr$( 13 )+Chr$( 10 )” 强制换行. ⑵ type: 是一个整数值或符号常量, 用来控制在对话框内显示的按 钮、图标的种类及数量. 该参数的值由4类数值相加产生, 这4类数值 或符号常量分别表示按钮的类型、显示图标的种类、活动按钮的位 置及强制返回, 见表5.2
斜体字： [对象.]FontItalic[=Boolean]
FontItalic属性值为True时，文本以斜体字输出，否则按正常字输出。 该属性的默认值为False。
加删除线： [对象.]FontStrikethru[=Boolean]
FontStrikethru属性值为True时，则可在输出的文本中部画一条直线， 直线的长度与文本的长度相同，该属性的默认值为False。
地重新设置后，才能改变该属性的值.
在Visual Basic 6.0中，除通过上面所讲的属性设置窗体或控件的字形外，还可
以在设计阶段通过字体对话框设置字形. 其方法是：选择需要设置字体的窗体或
控件，然后激活属性窗口，单击其中的Font，再单击右端的“…”将打开“字体”
对话框，可在此对话框中对所选择对象的字形进行如下设置：
⑶ 在执行InputBox函数所产生的对话框中, 有两个按钮, 一个是 “确定”, 另一 个是 “取消”. 在输入区输入数据后, 单击 “确定” 按钮(或按回车键)表示确认, 并返回在输入区中输入的数据; 而如果单击“取消” 按钮(或按Esc键), 则使当前 的输入作废, 在这种情况下, 将返回一个空字符串.
• 函数返回值表示用户所选择的按钮，作为继续执行 程序的依据
• 提示字符串可以自动换行，若须强行换行，可用代 码Chr$(13)+Chr$(10)
表5-3 MsgBox函数的返回值
系统常数
返回值 描述
VbOK VbCancel VbAbort VbRetry VbIgnore VbYes VbNo
（2）Spc函数 功能：在显示或打印列表中的下一个表达式之前插入n个空格,其中:n为
0~32767之间的整数。Spc函数与输出项之间须用分号隔开。
格式： Spc(n)
5.1.3. 格式输出
利用Format$函数可以按指定格式输出数据. Format函数的格式：
Format$(数值表达式，格式字符串) 功能：按“格式字符串”指定格式输出“数值表达式”的值
性都适用于窗体和各种控件及打印机. 如果省略对象名，则指的是当前窗体，否
则应加上对象名，例如：
Textl .FontSize = 20
′设置文本框中的字体大小
Printer. FontBold = True ′在打印机上以粗体字输出
⑵ 设置一种属性后，该属性即开始起作用，并且不会自动撤消，只有在显式
5.4 字形
除字体类型和大小外，Visual Basic还提供了其他一些属性 ，使文字的输出丰富多彩. 字体类型：[对象.]FontName=“字体类型” 字体大小：[对象.]FontSize=点数 粗体字： [对象.]FontBold[=Boolean]
FontBold属性值为True时，文本以粗体字输出，否则按正常字输出。 该属性的默认值为False。
⑸ 和其他返回字符串的函数一样, InputBox函数也可以写成InputBox$的形式, 两 种形式完全等价.
5.3 MsgBox函数和MsgBox语句
功能：产生一对话框显示信息，等待用户单击按钮进行选择，根据
用户选择确定程序其后的操作。
MsgBox函数格式：
变量=MsgBox(<提示字符串>[, <Type类型>] [, <标题>] [, <helpfile>, <context>])
⑵ 在默认情况下, InputBox的返回值是一个字符串(不是变体类型). 也就是说, 如 果没有事先声明返回值变量的类型(或声明为变体类型), 则当把该函数的返回值赋 给这个变量时, Visual Basic总是把它作为字符串来处理. 因此, 当需要用InputBox函 数输入数值, 并且需要输入的数值参加运算时, 必须在进行运算前用Val函数(或其 他转换函数)把它转换为相应类型的数值, 否则有可能会得到不正确的结果. 如果 正确地声明了返回值的变量类型(或者加了类型说明符), 则可不必进行类型转换.
5.1.4. 其它与输出相关的方法和属 性
• 清除方法CLS
功能：Cls清除由Print方法打印的文本或图片 框中的图形。
格式： [对象名称.] Cls
5.2 数据输入—InputBox函数
功能：产生一对话框，这个对话框作为输Hale Waihona Puke Baidu数据的界面，等
待用户输入正文或按下按钮，并返回输入的内容。
语法格式：
加下划线： [对象.]FontUnderline[=Boolean]
FontUnderline属性值为True时，则可使输出的文本加下划线，该属性 的默认值为False。
重叠显示： [对象.]FontTransParent[=Boolean]
当以图形或文本作为背景显示新的信息时，有时候需要保留原来的 背景，使新显示的信息与背景重叠，这可以通过FontTransParent属 性来实现，格式如下：
1
确定
2
取消
3
终止
4
重试
5
忽略
6
是
7
否
说明: ⑴ MsgBox函数第二个参数的第三类数值用来确定默认活动按钮.
当某个按钮为活动按钮时, 其内部的文字周围有一个虚线框(参见图 5.12). 如果按回车键, 则选择的是活动按钮, 与单击该按钮作用相同. 用Tab键可以把其他按钮变为活动按钮, 每按一次Tab键, 变换一个活 动按钮. 此外, 不管是否是活动按钮, 用鼠标(单击)都可以选择该按钮
MsgBox语句格式：
MsgBox <提示>[, < Type类型>] [, <标题>] [, <helpfile>, <context>]
说明：
• 各个参数的含义(*参数Type) < Type类型>参数：整型表达式，指定显示按钮的数目及形式，使 用的图标类型，缺省按钮的种类以及消息框的强制回应等。如果省 略，则 <按钮> 的缺省值为 0。