1、第五章 数据的输入输出,教学目标： 1. 了解数据输出的五种方法（Print方法、Cls方法、Move方法、 TextHeight方法和TextWidth方法） 2.掌握数据输入函数（InputBox函数） 3.掌握MessageBox函数和MessageBox语句 4.掌握字形相关属性的设置 5.了解打印机输出的相关设置,5.1数据输出Print方法（Print方法例子）,1.Print方法的一般格式：对象名称.Print 表达式表，|； 1）对象名称可以是 窗体、图片框、立即窗口或打印机，如果省略“对象名称”，则在当前窗体上输出。 2）表达式表可以是一个或多个表达式，可以是数值表达 式或字
2、符串。 3） Print方法具有计算和输出双重功能，对于表达式，先计算后输出。,4）Print方法有两种显示格式：区分格式和紧凑格式。 当各表达式之间用“，”作为分隔符时，则按区分格式显示数据项，以14个字符位置为单位把一个输出行分成若干区段，每个区段输出一个表达式的值。当各表达式之间用“；”作为分隔符时，则按紧凑格式输出数据，后一项紧跟前一项输出。当输出数值数据时， 数值的前面有一个符号位， 后面有一个空格，而字符 串前后都没有空格。 （P课后习题107页2、3题）,5）执行Print方法后都要自动换行。若要在同一行上输出数据，则可以在末尾加上“；”或“，”。,2. 与Print方法有关的函
3、数,格式: Tab(n)功能: 在指定的第n个位置上输出数据.,（1） Tab函数,说明: 若n小于当前显示位置, 则自动移到下一个输出行的第n列上; 若n小于1,则打印位置在第1列; 若Tab函数没有参数，即“Tab”的形式，则表示在下一个区段输出表达式。,（2） Spc函数,格式: Spc(n)功能: 跳过n个空格.,例如: Print “Hello”; Spc(3); “World” 输出结果: HelloUUUWorld Spc函数与输出项之间用分号分隔.,（3）Space函数格式: Space(n)功能: 生成n个空格。注意：Space函数与Spc函数的区别，虽然使用它们的效果是一样
4、的，但它们本质不一样。 Spc(n)函数是跳过n个空格， Space(n)函数是生成n个空格。,（4）格式输出(Format函数例子),功能：使数值或日期按指定的格式输出。 格式：Format（表达式，格式字符串） 该函数是按格式字符串指定的格式输出表达式。如果省略“格式字符串”，则Format函 数的功能与Str函数的功能基本相同，唯一 的差别是，当把正数转换成字符串时，Str 函数前面留有一个空格，而Format函数则 不留空格。,格式说明符,（1）# ：表示一个数字位。#的个数决定要显示的数值 的显示长 度。如果要显示的数值的位数小于#号的个数，多 余的位不补0。如果要显示的数值的位数大
5、于#号的个数，则数 值照原样显示。 （2）0 ：与#的功能相同，只是多余的位以0补齐。 （3）. ： 显示小数点。 （4），：在格式字符串中插入逗号起到“分位”的作用， 即从小数点左边一位开始，每3位用一个逗号 分开。逗号可以放在小数点左边的任何位置 （不要放在开头，也不要紧靠小数点）。,（5）% ：通常放在格式字符串的尾部，用来输出百分 号。 （6）$ : 通常作为格式字符串的起始字符，在所显示 的数值前加一个“$”。 （）+：使显示的正数带上正号，通常放在格式字符串 的头部。 （）- : 用来显示负号，通常放在格式字符串的头 部。 （）+（-）：用指数形式显示数据。E+与E-基本相同,只有
6、当指数为正数 的时候有一点区别。,3.其他方法和属性,1)Cls方法格式：对象.Cls功能：清除Print方法显示的文本或图片框中显示的图形或文字。2)Move方法(例5.2)格式：对象.Move 左边距，上边距，宽度，高度功能：移动窗体和控件，并可改变其大小。3)TextHeight和TextWidth方法格式：对象. TextHeight对象. TextWidth功能： TextHeight方法返回一个字符串的高度值, TextWidth方法返回一个字符串的宽度值。,4）CurrentX与CurrentY属性 这两个属性分别表示下一个输出位置的X坐标和Y坐标。 例:currentX=200
7、,currentY=300,print “你好!”5）ScaleWidth与ScaleHeight属性这两个属性分别表示对象的宽度和高度值。 例:print form1.ScaleWidth, form1.ScaleHeight,说明: 1）：字符串表达式。在对话框内显示的提示信息。如果要 显示多行信息，则可在各行行末用回车符Chr(13)、换行符Chr(10) 、回车换行的组合Chr(13)&Chr(10)或系统常量vbCrLf来换行。 2）：字符串表达式，可选项。运行时该参数显示在对话框的标题栏中。如果省略，则在标题栏中显示当前的应用程序名。 3）：字符串表达式，可选项。显示在对话框上的文
8、本框中，在没有其他输入时作为默认值。如果省略则文本框为空。,功能：InputBox函数产生一个对话框，等待用户输入，并返 回所输入的内容。,格式:变量=InputBox(提示信息,对话框标题,默认值),5.2数据输入InputBox函数,4）在默认情况下，InputBox的返回值是一个字符串（不是变体类型）5）每执行一次InputBox函数只能输入一个值，如果需要输入多个值，则必须多次调用InputBox函数6）和其他返回字符串的函数，InputBox函数也可以写成InputBox$的形式，这两种形式完全等价。,5.3 MsgBox函数,格式：变量=MsgBox(提示信息 ,按钮类型,对话框标
9、题) 功能：显示一个对话框，等待用户单击按钮，并返回与用户单击的按钮所对应的一个整数。,说明: （1） ：字符串表达式。要在提示信息中对文 本信息进行换行，可以使用回车符Chr(13)、换行 符Chr(10)、回车换行的组合Chr(13)&Chr(10)或系 统常量vbCrLf来换行。（2） ：数值型数据，是可选项，由按钮类型 、图标类型和默认按钮三部分组成，该参数的值是 由这三类数值相加产生。（3） ：字符串表达式，是可选项，它显示 在对话框的标题栏中，如果省略，则在标题栏中显 示应用程序名。,MsgBox函数的返回值,若不需要返回值,则可以使用MsgBox语句, 其格式为: MsgBox
10、提示信息 , 按钮类型 , 对话框标题,例:,Private Sub Command1_Click( )a= MsgBox(“提示信息”) End Sub,Private Sub Command1_Click( )a= MsgBox(“提示信息” & Chr(13) & “换行显示”) End Sub,Private Sub Command1_Click( )a= MsgBox(“提示信息” , ,“标题”) End Sub,Private Sub Command1_Click( )a= MsgBox(“提示信息” ,1,“标题”) End Sub,显示“确定”、“取消”按钮,Private Sub Command1_Click( )a= MsgBox(“提示信息” ,1+16,“标题”) End Sub,Private Sub Command1_Click( )a= MsgBox(“提示信息” ,2+32+0,“标题”) End Sub,MsgBox语句,MsgBox 语句的一般格式: Msg$,type%,title,helpfile,context各参数的含义及作用和MsgBox函数的相 同，由于MsgBox语句没有返回值，因而常 用于较简单的信息提示,5.5 打印机输出,Print Page NewPage EndDocPrintform,
