《第5章 数据输入输出精选文档.ppt》由会员分享，可在线阅读，更多相关《第5章 数据输入输出精选文档.ppt（40页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、第第5章章 数据输入输出数据输入输出本讲稿第一页，共四十页l Visual Visual BasicBasic的的输输入入输输出出灵灵活活、多多样样、方方便便、形形象象直直观观。本本章章将将介介绍绍与与输输入入输输出出操作有关的方法和函数。操作有关的方法和函数。本讲稿第二页，共四十页目录目录5.1数据输出数据输出Print方法方法 数据输入数据输入-InputBox函数函数5.2MsgBox函数和函数和MsgBox语句语句5.3字形字形5.4打印机输出打印机输出5.5本讲稿第三页，共四十页l VBVB中中的的每每个个对对象象都都包包括括若若干干方方法法，方方法法是是对对象象内内部部的的函函数数
2、或或过过程程，通通过过调调用用对对象象的的方方法法，可可使使对对象象执执行行特特定定的的操操作作。常常见见的的方方法法有有：PrintPrint、ClsCls（输输出出和和擦擦除除）；HideHide、ShowShow（隐隐藏藏和和显显示示）；MoveMove（移移动动）；SetFocusSetFocus（焦焦点点）。调调用用对对象象的的一一般语法格式是：般语法格式是：对象名.方法名.参数表本讲稿第四页，共四十页5.1 数据输出数据输出Print方法方法5.1.1 Print方法对象名称对象名称.Print表达式表表达式表,|;说明：说明：n使用的对象可以是窗体、图片框或打印机使用的对象可以是
3、窗体、图片框或打印机 Print 程序设计程序设计 在当前窗体上输出在当前窗体上输出 Picture1.Print 程序设计程序设计 在图片框上输出在图片框上输出n表表达达式式列列表表是是一一个个或或多多个个表表达达式式，如如果果省省略略，则则输输出出一一个个空空行。行。n有有计计算算和和输输出出双双重重功功能能，先先计计算算后后输输出出。输输出出数数值值数数据据时时，前前面面有有一一个个符符号号位位（正正号号以以空空格格表表示示），后后面面留留有有一一个个空空格格；输输出出字字符符串串时时，前后不留空格。前后不留空格。本讲稿第五页，共四十页5.1 数据输出数据输出Print方法方法5.1.1
4、 Print方法【例例1】Private Sub Form_Click()a=2 b=VB Print 50*a 计算并输出表达式的值计算并输出表达式的值 Print b 输出变量的值输出变量的值 Print 输出空行输出空行 Print The Total is 输出字符串常量输出字符串常量 End Sub运行结果运行结果本讲稿第六页，共四十页5.1 数据输出数据输出Print方法方法5.1.1 Print方法n当当输输出出多多个个表表达达式式或或字字符符串串时时，各各表表达达式式用用分分隔隔符符（逗逗号号、分分号号或或空格）隔开。空格）隔开。n如如果果输输出出的的各各表表达达式式之之间间用
5、用逗逗号号分分隔隔，则则按按分分区区（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本讲稿第七页，共四十页5.1 数据输出数据输出Print方法方法5.1.1 Print方法【例【例3】使用】使用Print方法输出全班学生的平均年龄。方法输出全班学
6、生的平均年龄。已知已知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本讲稿第八页，共四十页5.1 数据输出数据输出Print方法方法5.1.2 与Print方法有
7、关的函数和方法TabTab函数函数该函数格式如下：该函数格式如下：Tab(n)Tab(n)功功能能：把把光光标标移移动动到到由由参参数数n指指定定的的位位置置，从从这这个个位位置置开开始始输输出出信信息息。要要输出的内容放在输出的内容放在Tab函数的后面，并用分号隔开。函数的后面，并用分号隔开。本讲稿第九页，共四十页5.1 数据输出数据输出Print方法方法5.1.2 与Print方法有关的函数和方法【例【例4】编程显示下列表格（不显示格线）】编程显示下列表格（不显示格线）学号学号姓名姓名成绩成绩19011001张小三张小三5719011003李小四李小四6919011012马小五马小五92程
8、序代码：程序代码：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本讲稿第十页，共四十
9、页5.1 数据输出数据输出Print方法方法5.1.2 与Print方法有关的函数和方法SpcSpc函数函数该函数格式如下：该函数格式如下：SpcSpc(n)(n)功能：在功能：在Print的输出中，用的输出中，用Spc函数可以跳过函数可以跳过n个空格。个空格。本讲稿第十一页，共四十页5.1 数据输出数据输出Print方法方法5.1.2 与Print方法有关的函数和方法SpcSpc函数函数该函数格式如下：该函数格式如下：SpcSpc(n)(n)如：如：Print 学号学号;Spc(2);姓名姓名;Spc(5);成绩成绩输出结果是：学号输出结果是：学号 姓名姓名 成绩成绩本讲稿第十二页，共四十页
10、5.1 数据输出数据输出Print方法方法5.1.2 与Print方法有关的函数和方法Space$Space$函数函数该函数格式如下：该函数格式如下：Space$Space$(n)(n)功能：用于返回功能：用于返回n个空格。个空格。本讲稿第十三页，共四十页5.1 数据输出数据输出Print方法方法5.1.2 与Print方法有关的函数和方法Space$Space$函数函数该函数格式如下：该函数格式如下：Space$Space$(n)(n)如：如：a$=a+Space(4)+b Print a$输出结果是：输出结果是：a b本讲稿第十四页，共四十页5.1 数据输出数据输出Print方法方法5.1
11、.2 与Print方法有关的函数和方法ClsCls方法方法该函数格式如下：该函数格式如下：对象对象对象对象.Cls.Cls功功能能：清清除除由由Print方方法法显显示示的的文文本本或或图图片片框框中中显显示示的的图图形形，并并把把光标移动到对象的左上角（光标移动到对象的左上角（0，0）。）。本讲稿第十五页，共四十页5.1 数据输出数据输出Print方法方法5.1.2 与Print方法有关的函数和方法ClsCls方法方法该函数格式如下：该函数格式如下：对象对象对象对象.Cls.Cls如：如：Picture1.Cls 清除图片框清除图片框Picture1内的图形或文本内的图形或文本 Cls 清除
12、当前窗体内显示的内容清除当前窗体内显示的内容本讲稿第十六页，共四十页5.1 数据输出数据输出Print方法方法5.1.2 与Print方法有关的函数和方法MoveMove方法方法该函数格式如下：该函数格式如下：对象对象对象对象.Move.Move 左边距离左边距离左边距离左边距离,上边距离上边距离上边距离上边距离,宽度宽度宽度宽度,高度高度高度高度功能：用来移动窗体和控件，并可改变其大小。功能：用来移动窗体和控件，并可改变其大小。本讲稿第十七页，共四十页5.1 数据输出数据输出Print方法方法5.1.2 与Print方法有关的函数和方法【例例5】在在窗窗体体任任意意位位置置画画一一个个文文本
13、本框框和和一一个个图图片片框框，编编写写程程序序移移动动它它们们的的位位置并改变其大小。置并改变其大小。移动控件图（初始界面）移动控件图（初始界面）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移动控件图（运行情况）移动控件图（运行情况）本讲稿第十八页，共四十页5.1 数据输出数据输出Print方法方法5.1.3 格式输出Format$Format$该函数格式如下：
14、该函数格式如下：Format$Format$（数值表达式（数值表达式（数值表达式（数值表达式,格式字符串）格式字符串）格式字符串）格式字符串）功能：按功能：按“格式字符串格式字符串”指定的格式输出指定的格式输出“数值表达式数值表达式”的值。的值。本讲稿第十九页，共四十页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,+#,#.#
15、)Print Format$(TimeVar,h:m:s)End Sub格式符号格式符号#和和0都能显示数字，但符号都能显示数字，但符号#会剔除会剔除不必要的不必要的0，符号，符号0会按规定补足会按规定补足0。本讲稿第二十页，共四十页5.2 数据输入数据输入InputBox函数函数InputBoxInputBox该函数格式如下：该函数格式如下：InputBox(prompt,title,default,xpos,yposhelpfile,context)InputBox(prompt,title,default,xpos,yposhelpfile,context)功能：等待用户在输入对话框中输
16、入信息，返回字符形式的内容。功能：等待用户在输入对话框中输入信息，返回字符形式的内容。本讲稿第二十一页，共四十页5.2 数据输入数据输入InputBox函数函数xpos,ypos标题标题输入区输入区本讲稿第二十二页，共四十页5.2 数据输入数据输入InputBox函数函数【例例7】InputBox函数的功能函数的功能Private Sub Form_Click()filename$=InputBox(请输入文件名（不超过请输入文件名（不超过8个字符）个字符）,文件名文件名,vbfile)Print filename$End Sub本讲稿第二十三页，共四十页5.2 数据输入数据输入InputBo
17、x函数函数【例例8】InputBox函数的功能函数的功能Private Sub Form_Click()C1$=Chr$(13)+Chr$(10)filename$=InputBox(请输入文件名请输入文件名+C1$+(不超过不超过8个字符个字符),_ 文件名文件名,vbfile)Print filename$End Sub本讲稿第二十四页，共四十页5.3 MsgBox函数和函数和MsgBox语句语句5.3.1 MsgBox函数MsgBoxMsgBox该函数格式如下：该函数格式如下：MsgBox(MsgBox(提示提示提示提示,对话框类型对话框类型对话框类型对话框类型,对话框标题对话框标题对话
18、框标题对话框标题)功功能能：产产生生一一个个消消息息框框，用用来来向向用用户户提提供供警警告告信信息息，并并返返回回一一个个整整数。数。本讲稿第二十五页，共四十页5.3 MsgBox函数和函数和MsgBox语句语句5.3.1 MsgBox函数【例例9】MsgBox函数的功能函数的功能Private Sub Form_Click()y=MsgBox(输入文件名是否正确输入文件名是否正确,48,请确认请确认)Print yEnd Sub本讲稿第二十六页，共四十页5.3 MsgBox函数和函数和MsgBox语句语句5.3.1 MsgBox函数【例【例10】编写程序，用】编写程序，用MsgBox函数判
19、断是否执行。函数判断是否执行。Private Sub Form_Click()msg$=请确认此数据是否正确请确认此数据是否正确Title$=数据检查对话框数据检查对话框x=MsgBox(msg$,19,Title$)If x=6 Then Print x*xElseIf x=7 Then Print 请重新输入请重新输入EndIfEnd Sub本讲稿第二十七页，共四十页5.3 MsgBox函数和函数和MsgBox语句语句5.3.2 MsgBox语句MsgBox语句三种格式：语句三种格式：y=MsgBox(输入文件名是否正确输入文件名是否正确,52,请确认请确认)MsgBox输入文件名是否正确
20、输入文件名是否正确,52,请确认请确认MsgBox(输入文件名是否正确输入文件名是否正确)本讲稿第二十八页，共四十页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(请输入圆的半径请输入圆
21、的半径,计算圆的周长和面积计算圆的周长和面积)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本讲稿第二十九页，共四十页5.3 MsgBox函数和函数和MsgBox语句语句5.3.2 MsgBox语句本讲稿第三十页，共四十页5.4 字形字形5.4.1 字体类型和大小【例【例12】编写程序，在窗体上输出多种字体。】编写程序，在窗体上输出多种字体。Private Sub Command1_Click()S
22、ample1$=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
23、黑体黑体-;Sample2$End Sub本讲稿第三十一页，共四十页5.4 字形字形5.4.2 其他属性其他属性：其他属性：粗体字粗体字 FontBold =Boolean斜体字斜体字 FontItalic =Boolean加删除线加删除线 FontStrikethru =Boolean加下划线加下划线 FontUnderline =Boolean重叠显示重叠显示 FontTransParent =Boolean本讲稿第三十二页，共四十页5.5 打印机输出打印机输出把信息直接送到打印机。把信息直接送到打印机。n格式：格式：Printer.Print表达式表表达式表nPage属性：设置当前页号属
24、性：设置当前页号nNewPage方法：实现换页操作方法：实现换页操作nEndDoc方法：结束文件打印方法：结束文件打印本讲稿第三十三页，共四十页5.5 打印机输出打印机输出【例【例13】在打印机上打印文字】在打印机上打印文字“计算机程序设计计算机程序设计”。Private Sub Command1_Click()Printer.FontName=隶书隶书 Printer.FontSize=12 Printer.Print计算机程序设计计算机程序设计 Printer.EndDocEnd Sub本讲稿第三十四页，共四十页5.5 打印机输出打印机输出先先把把要要输输出出的的信信息息送送到到窗窗体体上
25、上，再再用用PrintForm方方法法把把窗窗体体上上的的内内容容打打印印出出来。来。n格式：格式：窗体名窗体名.PrintFormn功能：把窗体上的信息输出到打印机功能：把窗体上的信息输出到打印机本讲稿第三十五页，共四十页思考与练习思考与练习课本第课本第94页第页第5章习题（共章习题（共10道）道）本讲稿第三十六页，共四十页上机练习上机练习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:Pr
26、int 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)本讲稿第三十七页，共四十页上机练习上机练习5.2 编编写写程程序序，求求解解鸡鸡兔兔同同笼笼问问题题。一一个个笼笼子子中中有有鸡鸡x只只，兔兔y只只，每每只只鸡鸡有有2只只脚脚，每只兔有每只兔有4只脚。今知鸡和兔的总头数为只脚。今知鸡和兔的总头数为h，总脚数为
27、，总脚数为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本讲稿第三十八页，共四十页上机练习上机练习5.3 编编写写程程序序，要要求求用用户户输输入入下下列列信信息息：姓姓名名、年年龄龄、通通信信地地址址、邮邮政政编编码码、电话，然后将输入的数据用适当的格式在窗体上显
28、示出来。电话，然后将输入的数据用适当的格式在窗体上显示出来。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本讲稿第三十九页，共四十页祝同学们学业进步！本讲稿第四十页，共四十页