第5章 数据的输入输出

5.1.3. 格式输出 格式输出函数Format$可以使数值或日期按指定的格式输出。 格式： Format$（数值表达式，格式字符串） 功能：按“格式字符串”指定的格式输出数值表达式的值。 #: 输出数字,不在输出的前后补0。 0:输出数字,在输出的前后补0 .:输出小数点。 ,:输出千分位分隔符。 %:输出百分比符号，同时转化数值。 $:输出数值前加“$” +或-:输出数字加“+”或“-”号。 E+或E-：指数形式输出。
3、TextHeight、TextWidth方法 格式:[对象.] TextHeight(字符串) [对象.] TextWidth(字符串) 用途:用来辅助设置坐标.其中, TextHeight方法返回一个文本字符串的 高度值,而TextWidth方法返回一个文本字符串的宽度值,单位twip.当字符串 的字形和大小不一不同时,则返回的值也不同。 对象：窗体和图片框，若省略“对象”，则用来测试当前窗体的字符 串。 例 见P96 5.1.5使用“标签”控件的输出 标签（Label）是VB中最常用的输出文本信息的工具，目前几乎完全 取代了Print方法. 例如：建立一个Label控件和Command控件，按表4-1设置设计时属性。 加入如下代码，运行程序。
（2）title：字符串类型，是对话框的标题。 （3）default：字符串，用来设置默认信息。 （4）xpos 和ypos：数值型，用于定义对话框的位置，必须同时存在或同 时省略。若省略这一参数同则对话框的位置在屏幕水平方向的中间和垂直方向 从上向下三分之一处的交点。 （5） helpfile, context： helpfile是一个串变量或字符串表达式，用来表 示帮助文件的名字； context是数值变量或表达式，用以表示相关主题的帮助 目录号，须同时存在或省略。 2、特别注意： （1）、执行InputBox函数后，产生提示对话框，用于输入数据，按“确 定”键或“回车”键以确认。 （2） InputBox函数的返回值是字符串，用于计算需用VAL进行转换。 （3）按“确定”输入有效，而“取消”则输入空字符串。 （4）一次只能 输入一个值。 （5） InputBox函数不能单独使用，只能被调用。 编程示例
5.1.2. 与Print方法有关的函数 与Print相配合的函数： （1）Tab函数 与 Print # 语句或 Print 方法一起使用，对输出进行定位。 格式： Tab[(n)] 当在一个 Print方法中有多个Tab函数时，每个Tab函数对应 一个输出项，各输入项之间用分号隔开。 例题
Private Sub Form_Click() Print "12345678901234567890" Print Tab(5); "5"; Tab(10 - 2); "8", " ‘ 注意这里10-2>当前位置5，故同 行显示" Print Tab(5); "5"; Tab(10 - 6); "4"; Tab(20 - 15); "5"; " ‘ 注意这里10-6<当 前位置5，故换行显示；20-15>当前位置4，故同行显示" End Sub 程序执行结果见图5-1。程序中已经对程序显示特点做出解释。
2、字体大小 格式：[窗体.][控件]|Printer.FontSize[=“字体大小”] 也可省略对象名，见书P102 例：Text1.FontSize=28 3、其它属性 见P109 5.5 打印机输出 5.5.1 直接输出 格式: Printer.Print [表达式表] 1、page 属性 格式：Printer. Page Printer. Page在打印时设置当前页号,打完一页后依次加1.
图5-1 Print方法与Tab()函数结合
（2）Spc函数 在显示或打印列表中的下一个表达式之前插入n个空白数，n为0~32767之 间的整数。Spc函数与输出项之间用分号隔开。 格式： Spc(n) 如果 n 小于输出行的宽度，则下一个打印位置将紧接在数个已打印的空白 之后。如果 n 大于输出行的宽度，则 Spc 利用下列公式计算下一个打印位置： 当前位置+ (n Mod 行宽) Spc函数与Tab函数的作用类似，可以互相代替。但应注意，Tab函数从对象 的左端开始记数，而Spc函数只表示两个输出项之间的间隔。
Private Sub Command1_Click() Label1.WordWrap = True Label1.AutoSize = True Label1.BorderStyle = 1 Label1.BackColor = &H80000014 End Sub 由运行结果可知，单击命令按钮后，标签控件可以自动适用内容，并自 动换行，且加上边框，背景色为白色以突出显示文字。
2、坐标系 默认：屏幕的左上角的点的坐标是（0，0），通常为原点。一个坐标对 由X坐标（水平坐标）和Y 坐标（垂直坐标）组成。 坐标系的量度单位称为标度，VB提供了8个标度，默认标度为twip（缇） 0，0
+x
x
（x，y）
+y y
3、Move方法 格式：[对象名称.] Move 左边距离[,上边距离[,宽度[,高 度]]] “对象名称”指明被移动的对象,省略这个参数表示移动 当前窗体. Left:指定对象左边的水平距离. Top:指定对象上面的距离. Width:指定对象的新宽度. Height:指定对象的新高度 单位是缇(音tí)（twip），1 twip =1/20点=1/1440英寸 =1/567厘米。
5.1 Print方法
5.1 .1 Print方法 Print方法的语法格式为： [object].Print {Spc(n) | Tab(n)} expression charpos 其中： (1)、 object：窗体、图片框、打印机等对象。 例见P88 （2）、Expression：要打印的数值表达式或字符串表达式。 A、对数值表达式先计算其值，然后打印其值； B、对字符串则照原样打印； C、省略表达式，则输出一个空行。 （3）Charpos：逗号或分号，指定下个字符的插入点。 A、逗号，标准输出格式； B、分号，紧凑输出格式化。 （4） Print方法具有计算与输出双重功能。对表达式，先计算，后输出。 （5）输出项末尾的三种形式（，； 无符号）
图3-5 数值格式化实例
图3-6 日期与时间格式
5.1.4. 与输出有关的方法和属性 1 、 Cls 方法 Cls 将清除图形和打印语句在运行时所产生的文本和图形，清除后的 区域以背景色填充。但是设计时在 Form 中使用 Picture 属性设置的背 景位图和放置的控件不受 Cls 影响。 语法： [〈对象名称〉.]Cls 例如，为了在运行时双击窗体时清除图片框中的) Picture1.Cls End Sub 如果将代码由Picture1.Cls改为.Cls，将无法清除图片框中的文本。 '清除图片框中的文本
按钮数目 vbOKOnly
图标类型 VbCritical VbQuestion VbExclamation VbInformation 默认按钮 vbDefaultButton1 vbDefaultButton2 vbDefaultButton3 模式 vbApplicationModal vbSystemModal
表5-1 <按钮>设置值及其意义
分组
系统常数 VbOKCancel VbAbortRetryIgnore VbYesNoCancel VbYesNo VbRetryCancel
值 0 1 2 3 4 5 16 32 48 64 0 256 512 0 4096
描述 只显示 OK 按钮。 显示 OK 及 Cancel 按钮。 显示 Abort、Retry 及 Ignore 按钮。 显示 Yes、No 及 Cancel 按钮。 显示 Yes 及 No 按钮。 显示 Retry 及 Cancel 按钮。 显示 Critical Message 图标。 显示 Warning Query 图标。 显示 Warning Message 图标。 显示 Information Message 图标。 第一个按钮是缺省值。 第二个按钮是缺省值。 第三个按钮是缺省值。 应用程序强制返回；应用程序一直被挂起， 直到用户对消息框作出响应才继续工作。 系统强制返回；全部应用程序都被挂起，直 到用户对消息框作出响应才继续工作。
表5-2 MsgBox函数的返回值
系统常数 VbOK vbCancel vbAbort vbRetry vbIgnore VbYes VbNo 返回值 1 2 3 4 5 6 7 描述 确定 取消 终止 重试 忽略 是 否
编程示例P105
5.3.2 MsgBox语句 MsgBox语句的用法为： MsgBox <提示 <按钮 [, <标题 [, <helpfile>, <context>] 提示>[, 按钮 按钮>] 标题>] 提示 标题 其中： <提示>、<标题>、<Helpfile>和< context>的意义同InputBox函数。 <按钮>可选项。整型表达式，指定显示按钮的数目及形式，使用的图标 类型，缺省按钮的种类以及消息框的强制回应等。如果省略，则 <按钮> 的缺省值为 0。 5.4 字形 5.4.1 字体类型和大小 1、字体类型 格式：[窗体.][控件]|Printer.FontName[=“字体类型”] 注意:能否选取某种字体,取决于中文字体环境. 例: Text1.FontName=“宋体” Text1.FontName=“隶书”
Const pi As Single = 3.141593 Private Sub Form_Click() r = CSng(InputBox("enter the radius")) Print "area="; pi * r ^ 2 End Sub