第5章数据的输入和输出.ppt

1、数据的输入输出,第五章,5.1 数据输出Print方法,5.1.1 Print方法 用来在窗体上显示表达式的值，并可以在以图片框和打印机上输出信息 格式： 对象名称.Print表达式表,|; “对象名称”可以是窗体（Form）、图片框（PictureBox）和打印机（Printer）也可以是立即窗口（Debug） 如果省略“对象名称”，则在当前窗体上输出 “表达式表”是一个或多个表达式，可以是数值表达式或字符串。对于数值表达式，打印出表达式的值；而字符串则照样输出。,如果省略“表达式表”则输出一个空行。 当输出多个表达式和字符串时，各表达式用分隔符（逗号、分号或空格）隔开。 如果输出的各表达式

2、之间用逗号分隔，则按标准输出格式（分区输出格式）显示数据项。在这种情况下，一14个字符位置为单位把一个输出行分为若干个区段，逗号后面的表达式在下一个区段输出。 如果各输出项之间用分号或空格作分隔符，则按紧凑输出格式输出数据 当输出数值数据时，是值得前面有一个符号位，后面有一个空格，而字符串前后都没有空格,例：Private Sub Form_Click() a = 2 b = VB Print 50 * a 计算并输出表达式的值 Print b 输出变量的值 Print 输出空行 Print The Total is 输出字符串常量 End Sub 运行结果：,输出数值数据时，前面有一个符号位

3、(正号以空格表示)，后面留有一个空格；输出字符串时，前后不留空格。 例：Private Sub Form_Click() a = 3: b = 4 Print a, b, 4 + a, Print 2 * b Print a, , b Print a=; a, b=; b End Sub 运行结果 若语句行末尾有分号或逗号,则输出本行输出项后不换行,5.1.2 与Print方法有关的函数,函数 Tab Spc Space$ Format$ 与Print配合使用,5.1.3 Tab(n),格式 Tab (n) 把光标移到指定的位置，从这个位置开始输出信息。 要输出的内容放在Tab函数的后面,并用

4、分号隔开。 参数n 是一个数值表达式，其值为一整数，是下一个输出位置的列号，表示在输出前把光标（或打印头）移动到该列。 通常的最左边的列号为1时，如果当前的显示位置已经超过n则自动下移一行。 在VB中，对参数的取值范围没有具体限制。 当N比行宽大时，显示位置为n mod 行宽； 如果n1，则把输出位置移动到第一列 当在一个Print 方法中有多个Tab函数时，每个函数对应一个输出项，各输出项之间用分号隔开。,例如： Print Tab(2);学号；Tab(11);姓名；Tab(21);成绩 输出结果是(1个汉字占2个位置)： 学号姓名成绩,程序代码如下： Private Sub Form_Cl

5、ick() Print Print Tab(15); 学号; Tab(26); 姓名; Tab(36); 成绩 Print Tab(14); String(27, -) 输出27个减号字符“-” Print Tab(14); 20011001; Tab(26); 张小三; Tab(36); 57 Print Tab(14); 20011003; Tab(26); 李小四; Tab(36); 69 Print Tab(14); 20011012; Tab(26); 马小五; Tab(36); 92 Print Tab(14); String(27, -) 输出27个减号字符“-” End Sub

6、,例5.1 使用Tab对输出进行定位,Spc(n),格式 Spc (n) 用该函数可以跳过n个空格 参数n 数值表达式，取值范围：0-32767 输出项间用分号隔开 与tab函数类似，可以互相代替 Tab函数从对象的左端开始计数； Spc只表示两个输出项之间的间隔,例如： Print 学号；Spc(2)；姓名；Spc(5)；成绩 输出结果(表示空格)： 学号姓名成绩,Space$(n),格式 Space$(n) 返回n个空格 属于返回值的函数,例 Private Sub Form_Click() Print Print Tab(15); * Print Tab(13); *; Space(1)

7、; *; Space(1); * End Sub,格式输出函数Format$,用格式输出函数Format$可以使数值或日期按照指定的格式输出 格式: Format$(数值表达式，格式字符串) 功能： 按“格式字符串”指定的格式输出“数值表达式”的值。 如果省略“格式字符串”，功能与Str$函数的功能相同，唯一的差别是，当把正数转换成字符串时， Str$函数在字符串前面留一个空格，而Format$不留,格式说明字符,例： 格式输出函数 Format( ) 功能：使数值、日期或字符串按指定的格式输出 格式：Format(expression , format) expression需要格式化输出的

8、表达式 format 输出的格式模式,说明： （1）“#”表示一个数字位，#的个数决定了显示区段的长度。如果要显示的数值的位数小于格式字符串指定的区段，则该数值靠区段的左端显示，对于符号#多余的位不补0，如果要显示的数值的位数大于指定的区段长度，则数值照原样显示。 （2）“0”也表示一个数字位，0 的个数也决定了显示区段的长度。如果要显示的数值的位数小于格式字符串指定的区段，与“#”不同，符号“0”对多余的位以0补齐。则该数值靠区段的左端显示。,例如： Print format(34537, “000000”) 034537 显示的数字对多余的位前面补0。 Print format(25637

9、,“#”) 25637 显示的数字不补0。 Print format(24637,“#”) 24637 指定的位数小于数值，按数值的实际位数显示。 （3）“.” 显示小数点。小数点与格式符#与0结合使用，用于指定小数的位数，多余的位数按四舍五入处理。例如： Print format(253.637, “0000.00”) 0235.64,（4）“,” 逗号，用来在数字中插入千分号。即从数值的小数点左边的第一位开始，每三位插入一个千分号。逗号可放在小数点左边的任何位置。 例如： Print format(1267253.637, “#,#.#”) 1,267,253.64 （5）“%”用于输出百

10、分号。把数值乘以100在后面加上百分号。通常放在格式字符串的后面用来输出百分号。例如： Print format(.262, “#.#%”) 26.2%,（6）“$” 放在格式字符串起始位置,用于美元符号输出,可在显示的数值前面加$符号。例如： Print format(3456.262,“$#.#”) $3456.26 （7）“+或-” 用于输出正号或负号,通常放在格式字符串的前面,用来输出正号或负号。例如： Print format(3456.262,“+#.#”) +3456.26 Print format(3456.262,“-#.#”) -3456.26,（8）“E+或E-”用指数形

11、式显示数值。 Print format(3456.262,“#.#E+00”) 3.46E+03 Print format(.0262,“#.#E-00”) 2.62E-02 Vb提供了几种与Format()函数一起使用的标准格式。在Format()函数的中可使用名字来指定这些格式，而不用在中指定符号，格式名总是用双引号（“ ”）括起来。常用格式名如下页表3-5所示,格式常数名举例,print formatCurrency(234567.4567) ￥234,567.46 print format(123456.89,Currency) ￥123,456.89 print formatDate

12、Time(01/07/1987) 87-1-7 print format(0.987,Percent) 98.70%,格式常数名举例,print format(123456.89,Currency) ￥123,456.89 print format(01/07/1987,Medium Date) 87-01-07 print format(01/07/1987,short Date) 87-1-7 print format(01/07/1987,long Date) 1987年1月7日,格式常数名举例,print format(13:24:56,Medium time) PM 01:24 pr

13、int format(13:24:56,long time) 13:24:56 print format(13:24:56,short time) 13:24,格式常数名举例,print format(1234567.987,Scientific) 1.23E+06 print format(12345.987,Fixed) 12345.99 print format(12345.987,standard) 12,345.99,日期和时间函数举例,print day(date) 26 print year(date) 2003 print weekday(date) 4 print month

14、(date) 2 print weekday(vbsunday) 1,日期和时间函数举例,print hour(time) 21 print minute(time) 18 print second(time) 55 print weekday(vbWednesday) 4,5.1.4 其它方法和属性CLS,Cls 格式：对象.cls 作用：清除由Print方法显示的文本或在图片框中显示的图形，并把光标移动到对象的左上角（0，0）。 对象可以是窗体和图片框，默认为窗体 注意：当窗体的背景是用picture属性装入时，不能用cls清除，只能通过loadpicture方法清除。,其它方法和属性Mo

15、ve,格式： 对象.move 左边距离,上边距离,宽度,高度 对象是窗体及除“timer”和”menu”外的所有控件 默认为窗体 功能： 用来移动窗体和控件，并可以改变其大小。,Private Sub Form_Click() Move 800, 800, 3990, 2600 Text1.Move 200, 200, 1500, 1000 Picture1.Move 1800, 200, 1500, 1000 Picture1.Print Picture End Sub,例： Move 方法,其它方法和属性TextHeight和TextWidth,格式： 对象. TextHeight（字符串

16、） 对象. TextWidth （字符串） 对象包括窗体和图片框 默认对象为窗体 功能： 辅助设置坐标 TextHeight返回文本字符串的高度值 TextWidth返回文本字符串的宽度值 单位均为Twip 当字符串的字形和大小不同时，返回的值也不一样。,5.2 数据输入InputBox函数,功能：生成输入对话框 在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的 String InputBox函数一次只能输入一个值 格式： InputBox(prompt, title , default , xpos , ypos , helpfile, context),Input

17、Box(prompt, title , default , xpos , ypos , helpfile, context),例5.5 Private Sub Form_Click() Dim Username Username = InputBox(输入姓名后单击确定, 输入) Print Username End Sub,filename$=InputBox(请输入文件名 + Chr(13) + (不超过8个字符), 文件名, vbfile),5.3 MsgBox函数和MsgBox语句,功能：创建预定义的消息对话框 在对话框中显示消息，等待用户单击按钮，并返回一个 Integer 告诉用户

18、单击哪一个按钮。 格式： MsgBox(prompt, buttons , title , helpfile, context),MsgBox(prompt, buttons , title , helpfile, context),buttons 参数,buttons 参数,第一组值 (05) 描述了对话框中显示的按钮的类型与数目； 第二组值 (16, 32, 48, 64) 描述了图标的样式； 第三组值 (0, 256, 512) 说明哪一个按钮是缺省值； 第四组值 (0, 4096) 则决定消息框的强制返回性。将这些数字相加以生成 buttons 参数值的时候，只能由每组值取用一个数字。

19、 注意 这些常数都是 Visual Basic for Applications (VBA) 指定的。结果，可以在程序代码中到处使用这些常数名称，而不必使用实际数值。,MsgBox函数的返回值,（确定） （放弃） （终止） （重试） （忽略） （是） （否）,例5.4 Private Sub Form_Click() prompt = 真的新增该条记录吗 answer = MsgBox(prompt, vbOKCancel, Add Record) If answer = vbOK Then Debug.Print 您选择的是“确定”按钮 If answer = vbCancel Then Debug.Print 您选择的是“取消”按钮 End Sub,说明： 如果消息框中显示的信息过长，可使用回车符Chr(13) 和换行符Chr(10) 如果不需要返回值，可使用没有括号的MsgBox语句： MsgBox prompt, buttons , titl