1、第四章 数据的输入与输出?应用：应用：掌握print方法输出数据 掌握msgbox、inputbox函数的用法 掌握设置字体类型和大小的方法?了解：了解：使用打印机输出 教学目的要求：教学目的要求：第四章 数据的输入与输出 4.1 数据的输出 print方法 4.2 数据输入inputbox函数 4.3 MsgBox函数和MsgBox语句 4.4 字形 4.5 打印机输出 4.1.1 Print 方法 作用：实现对象上的数据输出 格式：1.对象名称 对象名：窗体、打印机、图片框、立即窗体等 省略对象名称时，默认为当前窗体 4.1 数据的输出 printprint方法 2表达式 输出项缺省时则输
2、出一个空行 表达式：数值表达式或字符串 输出计算数值表达式的值 原样输出字符串 3 输出多个表达式或字符串时，可以用逗号、分号或空格分隔 逗 号:以14个字符为单位划分出若干个区段,逗号后面的输出项在下一个区段输出 分号或空格：按紧凑格式输出 4 print 方法具有计算和输出双重功能，对于表达式，先计算后输出 6 Print 方法没有赋值功能 如：Print Z=X+Y 结果：表达式Z=X+Y的值 输出数值数据时，前面有一个符号位(正号以空格表示)，后面留有一个空格；输出字符串时，前后不留空格。5 每执行一次 print 方法要自动换行，若想在同一行显示，可以在末尾加逗号或分号。例：例：Pr
3、ivate Sub Form_Click()a=2 b=VB Print 50*a 计算并输出表达式的值 Print b 输出变量的值 Print 输出空行 Print The Total is 输出字符串常量 End Sub 例：Private Sub Form_Click()Private Sub Form_Click()a=3:b=4 Print a,b,4+a,Print 2 Print 2*b b Print a,b Print a=;a,=;b End Sub End Sub 运行结果 (4)(4)若语句行末尾有分号或逗号,则输出本行输出项后不换行 4.1.2 与Print方法相关
4、的函数 1.Tab函数 格式：Tab（n）说明：说明：n为数值表达式，值为整数 当n 1时，输出位置为第一列 每个Tab对应一个输出项，各输出项之间 用分号分隔用分号分隔（用逗号分隔,结果是否一致？）结果是否一致？）例例4.1?牐湩?慔?尻 学号；慔?姓名；慔?成绩 输出结果是(1个汉字占2个位置)：学号姓名成绩 2.Spc函数函数 格式：Spc（n）功能：可以跳过n个空格，与Tab功能相近，但Spc表示的是两个输出项之间的间隔。说明：n为数值表达式，其值为0 32767之间的整数。Spc函数和输出项之间用分号间隔 牐湩?学号?灓?尻姓名?灓?尻成绩 输出结果(表示空格)学号姓名 3.Spac
5、e$函数函数 格式：Space$（n）功能：返回n个空格 说明：n为数值表达式，其值为非负数 Print 计算机学院?灓捡火?网络实验室 4.1.3 Format$函数 格式：Format$（数值表达式，格式字符串）功能：根据格式字符串规定的格式输出数值 或日期 说明：“数值表达式”:输出的值“格式字符串”:输出时的格式 字 符 作 用#表示一个数字位，#的个数决定显示区段的长度。若要显示的数值位数大于指定区段长度，则按实际长度输出；若要显示的数值小于指定区段长度，则该数值靠区段左端输出，多余位不补 0。如：Print Format$(12345,#)输出结果：12345 Print Form
6、at$(12345,#)输出结果：12345 0 与#作用相似 要显示的数值小于指定区段长度时，数值靠区段右端输出，多余位用0补齐。如：Print Format$(12345,输出结果：0012345 Print Format$(12345,输出结果：12345 格式说明字符格式说明字符:.小数点与#和0结合使用，可以出现在显示区段的任意位置。小数部分多余数字，四舍五入 如：Print Format$(12.345,输出结果：012.35 Print Format$(12.345,#.#)输出结果：12.35，千位分隔符，在格式字符串中插入逗号起到分位的作用。对于输出数值从小数点左边一位开始每
7、三位用一个逗号分开。逗号可以放在小数点左边的任意位置，但不能出现在头部，也不能紧靠小数点。如：Print Format$(98712.65,#,#.#)输出结果：98,712.65 Print Format$(98712.65,#,#.#)输出结果：98,712.65 Print Format$(98712.65,#.#)输出结果：,98712.65（错误）Print Format$(98712.65,#,.#)输出结果：98.71 （错误）%用来放在格式字符串的尾部，输出百分号。如：Print Format$(0.165,输出结果：16.5%$用来作为格式字符串的起始字符，在要输出的数值前加
8、$。如：Print Format$(165.234,$#00.00)输出结果：$165.23+、-通常放在格式字符串的首部，在要显示的数值前面加上正号或负号。如：Print Format$(165.234,-#00.00)输出结果：-165.23 Print Format$(165.234,+#00.00)输出结果：+165.23 E+、E-用指数形式显示数值，E+和E-的作用基本相同。如：Print Format$(1657.234,输出结果：1.66E+03 Print Format$(0.0234,输出结果：2.34E-02 例子？A)Print A=x+y B)Print“A=”;x+
9、y C)Print“A=”+Str(x+y)D)Print“A=”&x+y A 设设X=4、y=6，则以下不能在窗体上显示处，则以下不能在窗体上显示处“A=10”的语句是（）1.Cls方法 作用：清除用Print方法显示的文本或在图片框显示的图形，光标移到对象的左上角（0，0）格式：对象.Cls 对象可以是窗体或图片框 4.1.4 其他有关方法其他有关方法 2.Move 方法方法 2.TextHeight 方法和TextWidth 方法 用于帮助设置坐标。“对象”包括窗体 和图片框 TextHeight 方法返回一个文本字符串的高度值TextWidth 方法返回一个文本字符串的宽度值。1函数的
10、格式 格式：InputBox（PROMPT,TITLE,DEFAULT,XPOS,YPOS,HELPFILE,CONTEXT）2.函数的参数 （1）PROMPT：提示信息（不超过1024个字符）（2）TITLE：对话框的标题 （3）DEFAULT：作为默认输入值；缺省，输入区空白 （4）XPOS,YPOS：整数，单位twip。对话框在屏幕中的显示位置 XPOS：左边距；YPOS：上边距。XPOS和YPOS或者成对使用，或者都省略 缺省：对话框位于屏幕中心线向下三分之一处 4.2 数据输入数据输入 inputboxinputbox函数 （5）HELPFILE,CONTEXT：HELPFILE：字
11、符串变量或字符串表达式，帮助文件：字符串变量或字符串表达式，帮助文件的名称；的名称；CONTEXT：数值变量或表达式，相关帮助：数值变量或表达式，相关帮助主题的目录号。主题的目录号。使用这组参数，在对话框中将增加一个帮助按钮。使用这组参数，在对话框中将增加一个帮助按钮。按帮助按钮或按帮助按钮或F1键将得到相应的帮助信息。这两个键将得到相应的帮助信息。这两个参数或者全部使用，或者全部缺省。参数或者全部使用，或者全部缺省。例1 例2 例3 3.说明：（1）PROMPR：系统可以自动换行。人为换行，需插 入回车符 （2）返回值：字符串。想输入非字符串类型信息，需要类型转换或对返回值的类型事先声明 （
12、3）InputBox 一次只能输入一个值，需要多个输入时，需要多次调用InputBox 函数 （4）InputBox 函数也可以写成InputBox$，两种形式等价？A)变量x的值是数值10 B)在inputbox对话框标题栏中显示的是“示例”C)0是默认值 D)变量x的值是字符串“10”D 设有语句:x=inputbox(“输入数值”,“0”,“示例”)程序运行后，如果从键盘上输入数值 10并按回车键，则下列叙述中正确的是（）执行如下语句：a=inputbox(“today”,“tomorrow”,“yesterday”,“day before yesterday”,5)将显示一个输入对话框
13、，在对话框的输入区中显示的信息是（）A)today B)tomorrow C)yesterday D)day before yesterday？C 4.3.1 MsgBox 函数 1.函数的格式 MsgBox（MESSAGE，TYPE，TITLE，HELPFILE,CONTEXT)2.函数的参数 （1）MESSAGE：不超过1024个字符的字符串。提示信息 （2）TYPE：对话框内图标和按钮的种类及数量。参数的值由表中四种类型的数值相加产生，通常只用前三类数值 .4.3 MsgBox函数和MsgBox语句 类 型 符 号 常 量 数 值 功 能 按钮的类型（确定、取消、终止、重试、忽略、是、否
14、）和数量 vbOKOnly vbOKCancel vbAbortRetryIgnore vbYesNoCancel vbYesNo vbRetryCancel 0 1 2 3 4 5 只显示“确定”按钮 显示“确定”和“取消”按钮 显示“终止”、“重试”和“忽略”按钮 显示“是”、“否”和“取消”按钮 显示“是”和“否”按钮 显示“重试”和“取消”按钮 图标类型（暂停、疑问、警告、忽略）vbCritical vbQuestion vbExclamation vbInformation 16 32 48 64 显示暂停图标（x）显示疑问图标（?）显示警告图标（！）显示忽略图标（i）应用程序强制返
15、回 系统强制返回 0 4096 VbApplicationModal vbSystemModal 强制返回 第一个按钮是默认值 第二个按钮是默认值 第三个按钮是默认值 第四个按钮是默认值 0 256 512 768 vbDefaultButton1 VbDefaultButton2 VbDefaultButton3 VbDefaultButton4 默认活动按钮 功 能 数数 值值 符符 号号 常常 量量 类类 型型（3）TITLE：对话框的标题。省略参数，工程的名称将：对话框的标题。省略参数，工程的名称将作为对话框标题；不想显示标题，参数设为空作为对话框标题；不想显示标题，参数设为空 串串
16、3.函数的返回值 （1）返回1或符号常量vbOK，表明选择了“确定”按钮 （2）返回2或符号常量vbCancel，表明选择了“取消”按钮 （3）返回3或符号常量vbAbort，表明用户选择了“终止”按钮 （4）返回4或符号常量vbRetry，表明用户选择了“重试”按钮 （5）返回5或符号常量vbIgnore，表明用户选择了“忽略”按钮 （6）返回6或符号常量vbYes，表明用户选择了“是”按钮 （7）返回7或符号常量vbNo，表明用户选择了“否”按钮 共有7种按钮，返回值为17之间的一个数，分别与之间的一个数，分别与7个个按钮相对应按钮相对应 例例2 例例1 5.说明：说明：（1）信息框内标有
17、虚线框的按钮是当前活动按钮，鼠标单击该按钮或按回车键，表示选中该按钮 （2）提示信息（MESSAGE）可以按自己的要求换行，需要自行插入回车符（3）MsgBox 的返回值常作为程序继续运行的依据 （4）MsgBox 产生的对话框属于“模态窗口”（Modal Window）“模态窗口”：程序运行时，出现对话框，用户必须做出选择，否则不能继续运行，处于等待状态 4.3.2 MsgBox 语句语句 MsgBox 语句和MsgBox 函数的功能完全相同，差别仅在于MsgBox 语句没有返回值。格式：MsgBox MESSAGE$,TYPE%，TITLE$见例7？A)X的值是数值10 B)输入对话框的标
18、题是“输入整数”C)信息框的标题是“输入数据：10”D)信息框中显示的是“输入的数据是：”假定有如下的命令按钮（名称为command1）事件过程 Private Sub Command1_Click()?砠?灮瑵潂?输入：?尠 输入整数)?杳潂?输入的数据是：?尠输入数据：+x End Sub 程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是（）A 4.4.1 字体类型和大小 FontName：对象?湯乴浡孥尽湯乴浡孥尽字体类型 FontSize ：对象.FontSize=点数 1.格式 2.参数 a.字体类型：VB中使用的英文和中文字体，中 文字体用的数量取决于操作系
19、统的汉字环境 b.点数：设定字体大小，默认值，9 见例8 4.4 字 形 4.4.2 其他属性其他属性 1.粗体字 格式：对象.FontBold=True|False True：设为粗体；Flase：取消粗体。默认值：False 2.斜体字 格式：对象.FontItalic=True|False True：设为斜体；Flase：取消斜体。默认值：False 3.下划线 格式：对象.FontUnderline=True|False True：加下划线；Flase：取消下划线。默认值：False 4.加删除线 格式：对象.FontStrikethru=True|False True：添加删除线；F
20、lase：取消删除线。默认值：False 5.重叠显示 格式：对象.FontTransparent=True|False True：前景和背景重叠显示；False：背景被前景覆盖。默认值：True 见例8-1 6TextHeight 和TextWidth 方法 格式：对象.TextHeight（字符串）对象.TextWidth（字符串）返回文本的高度和宽度（单位：twip）字形和大小不同时，返回值也不同 见例9 格式：Printer.Print 输出项 参数“输出项”的含义同Print 方法完全相同 1.Page属性 作用：设置页号，Page初值为1，每打印一页，自动加1 格式：Printer
21、.Page 如：Printer.Print“Page”;Printer.Page打印时，Printer.Page 被设为当前页码 4.5.1 直接输出 4.5 打印机输出打印机输出 3.EndDoc方法 作用：结束文件打印，同时，向打印机管理程 序发出最后一页的退出信息，并将 Page 置1.格式：Printer.EndDoc 2.NewPage方法 作用：强制实现打印机换页，Page值自动加1 格式：Printer.NewPage Private Sub Form_Click()Dim Header,i,Y 声明变量。Print Now printing.在窗体上放置注意信息。Header=
22、Printing Demo-Page 设置页眉字符串。For i=1 To 3 Printer.Print Header;打印页眉。Printer.Print Printer.Page 打印页号。Y=Printer.CurrentY+10 设置行位置。画一条跨页横线。Printer.Line(0,Y)-(Printer.ScaleWidth,Y)画线。For K=1 To 50 Printer.Print String(K,“);打印空格字符串。Printer.Print Visual Basic;打印文本。Printer.Print Printer.Page 打印页号。Next K Prin
23、ter.NewPage Next i Printer.EndDoc End End Sub Private Sub Form_Click()Printer.FontName=Times New Roman Printer.FontSize=20?牐湩整?牐湩?直接输出测试 Printer.Print page;Printer.Page Printer.NewPage Printer.Print page;Printer.Page?牐湩整?牐湩?换页输出 Printer.EndDoc End Sub 4.5.2 窗体输出窗体输出 PrintForm 方法:打印窗体内容。不仅可以打印窗体的文本信息，还可以打印窗体的可见图形或控件 格式：窗体.PrintForm 在打印窗体时，一定要将窗体的属性“AutoRedraw”设为真,以便保存窗体信息 例例4.11 Private Sub Form_Click()AutoRedraw=True FontName=Times New Roman FontSize=20?倠楲瑮尠窗体输出测试 PrintForm End Sub
