第5章 数据输入输出精选PPT.ppt

第第5章章 数据输入输出数据输入输出第1页，本讲稿共40页l Visual Visual BasicBasic的的输输入入输输出出灵灵活活、多多样样、方方便便、形形象象直直观观。本本章章将将介介绍绍与与输输入入输输出出操操作有关的方法和函数。作有关的方法和函数。第2页，本讲稿共40页目录目录5.1数据输出数据输出Print方法方法 数据输入数据输入-InputBox函数函数5.2MsgBox函数和函数和MsgBox语句语句5.3字形字形5.4打印机输出打印机输出5.5第3页，本讲稿共40页l VBVB中中的的每每个个对对象象都都包包括括若若干干方方法法，方方法法是是对对象象内内部部的的函函数数或或过过程程，通通过过调调用用对对象象的的方方法法，可可使使对对象象执执行行特特定定的的操操作作。常常见见的的方方法法有有：PrintPrint、ClsCls（输输出出和和擦擦除除）；HideHide、ShowShow（隐隐藏藏和和显显示示）；MoveMove（移移动动）；SetFocusSetFocus（焦点）。调用对象的一般语法格式是：（焦点）。调用对象的一般语法格式是：对象名.方法名.参数表第4页，本讲稿共40页5.1 数据输出数据输出Print方法方法5.1.1 Print方法对象名称对象名称.Print表达式表表达式表,|;说明：说明：n使用的对象可以是窗体、图片框或打印机使用的对象可以是窗体、图片框或打印机 Print 程序设计程序设计 在当前窗体上输出在当前窗体上输出 Picture1.Print 程序设计程序设计 在图片框上输出在图片框上输出n表表达达式式列列表表是是一一个个或或多多个个表表达达式式，如如果果省省略略，则则输输出出一个空行。一个空行。n有有计计算算和和输输出出双双重重功功能能，先先计计算算后后输输出出。输输出出数数值值数数据据时时，前前面面有有一一个个符符号号位位（正正号号以以空空格格表表示示），后后面面留留有一个空格；输出字符串时，前后不留空格。有一个空格；输出字符串时，前后不留空格。第5页，本讲稿共40页5.1 数据输出数据输出Print方法方法5.1.1 Print方法【例例1】Private Sub Form_Click()a=2 b=VB Print 50*a 计算并输出表达式的值计算并输出表达式的值 Print b 输出变量的值输出变量的值 Print 输出空行输出空行 Print The Total is 输出字符串常量输出字符串常量 End Sub运行结果运行结果第6页，本讲稿共40页5.1 数据输出数据输出Print方法方法5.1.1 Print方法n当当输输出出多多个个表表达达式式或或字字符符串串时时，各各表表达达式式用用分分隔隔符符（逗逗号号、分分号号或空格）隔开。或空格）隔开。n如如果果输输出出的的各各表表达达式式之之间间用用逗逗号号分分隔隔，则则按按分分区区（14个个字字符符为为一一区区）输输出出格格式式显显示示数数据据项项。如如果果各各输输出出项项之之间间用用分分号号或或空空格格作作分分隔隔符，则按紧凑输出格式输出数据。符，则按紧凑输出格式输出数据。【例例2】Private Sub Form_Click()a=3:b=4 Print a,b,4+a,Print 2*b Print a,b Print Print a=;a,b=;b End Sub第7页，本讲稿共40页5.1 数据输出数据输出Print方法方法5.1.1 Print方法【例【例3】使用】使用Print方法输出全班学生的平均年龄。方法输出全班学生的平均年龄。已知已知1818岁岁6 6人，人，1919岁岁2121人，人，2020岁岁2323人，人，2121岁岁1515人人Private Sub Form_Click()Dim a As Integer,b As Integer,c As Integer Dim d As Integer,s As Integer,m As Single a=6:b=21:c=23:d=15 s=a+b+c+d m=(a*18+b*19+c*20+d*21)/s Print 平均年龄：平均年龄：;mEnd Sub第8页，本讲稿共40页5.1 数据输出数据输出Print方法方法5.1.2 与Print方法有关的函数和方法TabTab函数函数该函数格式如下：该函数格式如下：Tab(n)Tab(n)功功能能：把把光光标标移移动动到到由由参参数数n指指定定的的位位置置，从从这这个个位位置置开开始始输输出出信息。要输出的内容放在信息。要输出的内容放在Tab函数的后面，并用分号隔开。函数的后面，并用分号隔开。第9页，本讲稿共40页5.1 数据输出数据输出Print方法方法5.1.2 与Print方法有关的函数和方法【例【例4】编程显示下列表格（不显示格线）】编程显示下列表格（不显示格线）学号学号姓名姓名成绩成绩19011001张小三张小三5719011003李小四李小四6919011012马小五马小五92程序代码：程序代码：Private Sub Form_Click()Print Print Tab(15);学号学号;Tab(26);姓名姓名;Tab(36);成绩成绩 Print Tab(14);String(27,-)Print Tab(14);19011001;Tab(26);张小三张小三;Tab(36);57 Print Tab(14);19011003;Tab(26);李小四李小四;Tab(36);69 Print Tab(14);19011012;Tab(26);马小五马小五;Tab(36);92 Print Tab(14);String(27,-)End Sub第10页，本讲稿共40页5.1 数据输出数据输出Print方法方法5.1.2 与Print方法有关的函数和方法SpcSpc函数函数该函数格式如下：该函数格式如下：SpcSpc(n)(n)功能：在功能：在Print的输出中，用的输出中，用Spc函数可以跳过函数可以跳过n个空格。个空格。第11页，本讲稿共40页5.1 数据输出数据输出Print方法方法5.1.2 与Print方法有关的函数和方法SpcSpc函数函数该函数格式如下：该函数格式如下：SpcSpc(n)(n)如：如：Print 学号学号;Spc(2);姓名姓名;Spc(5);成绩成绩输出结果是：学号输出结果是：学号 姓名姓名 成绩成绩第12页，本讲稿共40页5.1 数据输出数据输出Print方法方法5.1.2 与Print方法有关的函数和方法Space$Space$函数函数该函数格式如下：该函数格式如下：Space$Space$(n)(n)功能：用于返回功能：用于返回n个空格。个空格。第13页，本讲稿共40页5.1 数据输出数据输出Print方法方法5.1.2 与Print方法有关的函数和方法Space$Space$函数函数该函数格式如下：该函数格式如下：Space$Space$(n)(n)如：如：a$=a+Space(4)+b Print a$输出结果是：输出结果是：a b第14页，本讲稿共40页5.1 数据输出数据输出Print方法方法5.1.2 与Print方法有关的函数和方法ClsCls方法方法该函数格式如下：该函数格式如下：对象对象对象对象.Cls.Cls功功能能：清清除除由由Print方方法法显显示示的的文文本本或或图图片片框框中中显显示示的的图图形形，并并把光标移动到对象的左上角（把光标移动到对象的左上角（0，0）。）。第15页，本讲稿共40页5.1 数据输出数据输出Print方法方法5.1.2 与Print方法有关的函数和方法ClsCls方法方法该函数格式如下：该函数格式如下：对象对象对象对象.Cls.Cls如：如：Picture1.Cls 清除图片框清除图片框Picture1内的图形或文本内的图形或文本 Cls 清除当前窗体内显示的内容清除当前窗体内显示的内容第16页，本讲稿共40页5.1 数据输出数据输出Print方法方法5.1.2 与Print方法有关的函数和方法MoveMove方法方法该函数格式如下：该函数格式如下：对象对象对象对象.Move.Move 左边距离左边距离左边距离左边距离,上边距离上边距离上边距离上边距离,宽度宽度宽度宽度,高度高度高度高度功能：用来移动窗体和控件，并可改变其大小。功能：用来移动窗体和控件，并可改变其大小。第17页，本讲稿共40页5.1 数据输出数据输出Print方法方法5.1.2 与Print方法有关的函数和方法【例例5】在在窗窗体体任任意意位位置置画画一一个个文文本本框框和和一一个个图图片片框框，编编写写程程序序移移动它们的位置并改变其大小。动它们的位置并改变其大小。移动控件图（初始界面）移动控件图（初始界面）Private Sub Form_Click()Move 800,800,3990,2600 Text1.Move 200,200,1500,1000 Picture1.Move 1800,200,1500,1000 Picture1.Print picture1End Sub移动控件图（运行情况）移动控件图（运行情况）第18页，本讲稿共40页5.1 数据输出数据输出Print方法方法5.1.3 格式输出Format$Format$该函数格式如下：该函数格式如下：Format$Format$（数值表达式（数值表达式（数值表达式（数值表达式,格式字符串）格式字符串）格式字符串）格式字符串）功能：按功能：按“格式字符串格式字符串”指定的格式输出指定的格式输出“数值表达式数值表达式”的值。的值。第19页，本讲稿共40页5.1 数据输出数据输出Print方法方法5.1.3 格式输出【例例6】Private Sub Form_Click()a=4513.7:b=3456.78:TimeVar=#08:30:05#Print Format$(a,#,#.#)Print Format$(a,$#,#.00)Print Format$(b,+#,#.#)Print Format$(TimeVar,h:m:s)End Sub格式符号格式符号#和和0都能显示数字，但符号都能显示数字，但符号#会剔除会剔除不必要的不必要的0，符号，符号0会按规定补足会按规定补足0。第20页，本讲稿共40页5.2 数据输入数据输入InputBox函数函数InputBoxInputBox该函数格式如下：该函数格式如下：InputBox(prompt,title,default,xpos,yposhelpfile,context)InputBox(prompt,title,default,xpos,yposhelpfile,context)功功能能：等等待待用用户户在在输输入入对对话话框框中中输输入入信信息息，返返回回字字符符形形式式的的内内容。容。第21页，本讲稿共40页5.2 数据输入数据输入InputBox函数函数xpos,ypos标题标题输入区输入区第22页，本讲稿共40页5.2 数据输入数据输入InputBox函数函数【例例7】InputBox函数的功能函数的功能Private Sub Form_Click()filename$=InputBox(请输入文件名（不超过请输入文件名（不超过8个字符）个字符）,文件名文件名,vbfile)Print filename$End Sub第23页，本讲稿共40页5.2 数据输入数据输入InputBox函数函数【例例8】InputBox函数的功能函数的功能Private Sub Form_Click()C1$=Chr$(13)+Chr$(10)filename$=InputBox(请输入文件名请输入文件名+C1$+(不超过不超过8个字符个字符),_ 文件名文件名,vbfile)Print filename$End Sub第24页，本讲稿共40页5.3 MsgBox函数和函数和MsgBox语句语句5.3.1 MsgBox函数MsgBoxMsgBox该函数格式如下：该函数格式如下：MsgBox(MsgBox(提示提示提示提示,对话框类型对话框类型对话框类型对话框类型,对话框标题对话框标题对话框标题对话框标题)功功能能：产产生生一一个个消消息息框框，用用来来向向用用户户提提供供警警告告信信息息，并并返返回回一一个整数。个整数。第25页，本讲稿共40页5.3 MsgBox函数和函数和MsgBox语句语句5.3.1 MsgBox函数【例例9】MsgBox函数的功能函数的功能Private Sub Form_Click()y=MsgBox(输入文件名是否正确输入文件名是否正确,48,请确认请确认)Print yEnd Sub第26页，本讲稿共40页5.3 MsgBox函数和函数和MsgBox语句语句5.3.1 MsgBox函数【例【例10】编写程序，用】编写程序，用MsgBox函数判断是否执行。函数判断是否执行。Private Sub Form_Click()msg$=请确认此数据是否正确请确认此数据是否正确Title$=数据检查对话框数据检查对话框x=MsgBox(msg$,19,Title$)If x=6 Then Print x*xElseIf x=7 Then Print 请重新输入请重新输入EndIfEnd Sub第27页，本讲稿共40页5.3 MsgBox函数和函数和MsgBox语句语句5.3.2 MsgBox语句MsgBox语句三种格式：语句三种格式：y=MsgBox(输入文件名是否正确输入文件名是否正确,52,请确认请确认)MsgBox输入文件名是否正确输入文件名是否正确,52,请确认请确认MsgBox(输入文件名是否正确输入文件名是否正确)第28页，本讲稿共40页5.3 MsgBox函数和函数和MsgBox语句语句5.3.2 MsgBox语句【例【例11】从输入框中输入圆的半径，计算圆的周长和面积。】从输入框中输入圆的半径，计算圆的周长和面积。（1）创建应用程序用户界面）创建应用程序用户界面（2）设置对象属性）设置对象属性（3）编写程序代码）编写程序代码Private Sub Command1_Click()Dim r As Single,k As Single,s As Single r=Val(InputBox(请输入圆的半径请输入圆的半径,计算圆的周长和面积计算圆的周长和面积)k=2*3.14159*r s=3.14159*r*r Text1.Text=k Text2.Text=s MsgBox计算已完成计算已完成,例例5.11End SubPrivate Sub Command2_Click()EndEnd Sub第29页，本讲稿共40页5.3 MsgBox函数和函数和MsgBox语句语句5.3.2 MsgBox语句第30页，本讲稿共40页5.4 字形字形5.4.1 字体类型和大小【例【例12】编写程序，在窗体上输出多种字体。】编写程序，在窗体上输出多种字体。Private Sub Command1_Click()Sample1$=Microsoft Visual Basic6.0 Sample2$=程序设计技巧程序设计技巧 FontSize=20 FontName=System Print System-;Sample1$FontName=modern Print modern-;Sample1$FontSize=24 FontName=宋体宋体 FontBold=True Print 宋体宋体-;Sample2$FontName=楷体楷体_GB2312 FontItalic=True Print 楷体楷体-;Sample2$FontName=黑体黑体 FontUnderline=True Print 黑体黑体-;Sample2$End Sub第31页，本讲稿共40页5.4 字形字形5.4.2 其他属性其他属性：其他属性：粗体字粗体字 FontBold =Boolean斜体字斜体字 FontItalic =Boolean加删除线加删除线 FontStrikethru =Boolean加下划线加下划线 FontUnderline =Boolean重叠显示重叠显示 FontTransParent =Boolean第32页，本讲稿共40页5.5 打印机输出打印机输出把信息直接送到打印机。把信息直接送到打印机。n格式：格式：Printer.Print表达式表表达式表nPage属性：设置当前页号属性：设置当前页号nNewPage方法：实现换页操作方法：实现换页操作nEndDoc方法：结束文件打印方法：结束文件打印第33页，本讲稿共40页5.5 打印机输出打印机输出【例【例13】在打印机上打印文字】在打印机上打印文字“计算机程序设计计算机程序设计”。Private Sub Command1_Click()Printer.FontName=隶书隶书 Printer.FontSize=12 Printer.Print计算机程序设计计算机程序设计 Printer.EndDocEnd Sub第34页，本讲稿共40页5.5 打印机输出打印机输出先先把把要要输输出出的的信信息息送送到到窗窗体体上上，再再用用PrintForm方方法法把把窗窗体体上上的的内内容容打打印印出出来。来。n格式：格式：窗体名窗体名.PrintFormn功能：把窗体上的信息输出到打印机功能：把窗体上的信息输出到打印机第35页，本讲稿共40页思考与练习思考与练习课本第课本第94页第页第5章习题（共章习题（共10道）道）第36页，本讲稿共40页上机练习上机练习5.1 写出下列语句的输出结果，并上机验证：写出下列语句的输出结果，并上机验证：（1）Print 25+32=；25+32（2）x=12.5:Print x=；x（3）s$=China s$=Beijing Print s$（4）a%=3.14156:Print a%（5）Print Shenyang,Chongqing;Wulumuqi Print,Guangzhou,Chengdu（6）Print Tab(5);100;Space$(5);200,Tab(35);300（7）a=Sqr(3)Print Format$(a,#,#00)Print Format$(a,00.00E+00)第37页，本讲稿共40页上机练习上机练习5.2 编编写写程程序序，求求解解鸡鸡兔兔同同笼笼问问题题。一一个个笼笼子子中中有有鸡鸡x只只，兔兔y只只，每每只只鸡鸡有有2只只脚脚，每每只只兔兔有有4只只脚脚。今今知知鸡鸡和和兔兔的的总总头头数数为为h，总总脚脚数为数为f。问笼中鸡和兔各若干？。问笼中鸡和兔各若干？Private Sub Form_Click()h=InputBox(请输入鸡和兔的总的头数请输入鸡和兔的总的头数)h=Val(h)f=InputBox(请输入鸡和兔的总的脚数请输入鸡和兔的总的脚数)f=Val(f)y=(f-2*h)/2 x=(4*h-f)/2 Print 笼中有鸡笼中有鸡;x;只，兔只，兔;y;只只End Sub第38页，本讲稿共40页上机练习上机练习5.3 编编写写程程序序，要要求求用用户户输输入入下下列列信信息息：姓姓名名、年年龄龄、通通信信地地址址、邮邮政政编编码码、电电话话，然然后后将将输输入入的的数数据据用用适适当当的的格格式式在在窗窗体体上上显显示示出来。出来。Private Sub Form_Click()n$=InputBox(请输入您的姓名请输入您的姓名)Age$=InputBox(请输入您的年龄请输入您的年龄)Addr$=InputBox(请输入通信地址请输入通信地址)Pos$=InputBox(请输入邮政编码请输入邮政编码)Tel$=InputBox(请输入电话号码请输入电话号码)Print Print Tab(6);姓名姓名;Space$(3);年龄年龄;Space$(3);通信通信地址地址；Space$(5);邮政编码邮政编码;Space$(3);电话号码电话号码 Print Print Tab(5);n$;Space$(3);Age$;Space$(3);Addr$;Space$(3);Pos$;Space$(3);Tel$End Sub第39页，本讲稿共40页祝同学们学业进步！第40页，本讲稿共40页