《第5章 数据输入输出优秀PPT.ppt》由会员分享，可在线阅读，更多相关《第5章 数据输入输出优秀PPT.ppt（40页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、第第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中中的的每每个个对对象象都都包包括括若若干干方方法法，方方法法是是对对象象内
2、内部部的的函函数数或或过过程程，通通过过调调用用对对象象的的方方法法，可可使使对对象象执执行行特特定定的的操操作作。常常见见的的方方法法有有：PrintPrint、ClsCls（输输出出和和擦擦除除）；HideHide、ShowShow（隐隐藏藏和和显显示示）；MoveMove（移移动动）；SetFocusSetFocus（焦点）。调用对象的一般语法格式是：（焦点）。调用对象的一般语法格式是：对象名.方法名.参数表现在学习的是第4页，共40页5.1 数据输出数据输出Print方法方法5.1.1 Print方法对象名称对象名称.Print表达式表表达式表,|;说明：说明：n使用的对象可以是窗体、
3、图片框或打印机使用的对象可以是窗体、图片框或打印机 Print 程序设计程序设计 在当前窗体上输出在当前窗体上输出 Picture1.Print 程序设计程序设计 在图片框上输出在图片框上输出n表表达达式式列列表表是是一一个个或或多多个个表表达达式式，如如果果省省略略，则则输输出出一一个个空空行。行。n有有计计算算和和输输出出双双重重功功能能，先先计计算算后后输输出出。输输出出数数值值数数据据时时，前前面面有有一一个个符符号号位位（正正号号以以空空格格表表示示），后后面面留留有有一一个个空空格格；输出字符串时，前后不留空格。输出字符串时，前后不留空格。现在学习的是第5页，共40页5.1 数据输
4、出数据输出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如
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现在学习的是第7页，共40页5.1 数据输出数据输出Print方法方法5.1.1 Print方法【例【例3】使用】使用Pri
6、nt方法输出全班学生的平均年龄。方法输出全班学生的平均年龄。已知已知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 数据输出数据
7、输出Print方法方法5.1.2 与Print方法有关的函数和方法TabTab函数函数该函数格式如下：该函数格式如下：Tab(n)功功能能：把把光光标标移移动动到到由由参参数数n指指定定的的位位置置，从从这这个个位位置置开开始始输输出出信信息息。要输出的内容放在要输出的内容放在Tab函数的后面，并用分号隔开。函数的后面，并用分号隔开。现在学习的是第9页，共40页5.1 数据输出数据输出Print方法方法5.1.2 与Print方法有关的函数和方法【例【例4】编程显示下列表格（不显示格线）】编程显示下列表格（不显示格线）学号学号姓名姓名成绩成绩19011001张小三张小三5719011003李小
8、四李小四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
9、(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);成绩成绩输出结果是：学号
10、输出结果是：学号 姓名姓名 成绩成绩现在学习的是第12页，共40页5.1 数据输出数据输出Print方法方法5.1.2 与Print方法有关的函数和方法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现在学习的是
11、第14页，共40页5.1 数据输出数据输出Print方法方法5.1.2 与Print方法有关的函数和方法ClsCls方法方法该函数格式如下：该函数格式如下：对象对象.Cls功功能能：清清除除由由Print方方法法显显示示的的文文本本或或图图片片框框中中显显示示的的图图形形，并并把把光标移动到对象的左上角（光标移动到对象的左上角（0，0）。）。现在学习的是第15页，共40页5.1 数据输出数据输出Print方法方法5.1.2 与Print方法有关的函数和方法ClsCls方法方法该函数格式如下：该函数格式如下：对象对象对象对象.Cls.Cls如：如：Picture1.Cls 清除图片框清除图片框P
12、icture1内的图形或文本内的图形或文本 Cls 清除当前窗体内显示的内容清除当前窗体内显示的内容现在学习的是第16页，共40页5.1 数据输出数据输出Print方法方法5.1.2 与Print方法有关的函数和方法MoveMove方法方法该函数格式如下：该函数格式如下：对象对象.Move 左边距离左边距离,上边距离上边距离,宽度宽度,高度高度功能：用来移动窗体和控件，并可改变其大小。功能：用来移动窗体和控件，并可改变其大小。现在学习的是第17页，共40页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移动控件图（运行情况）移动控件图（运行情况）现在学习的是第18页，共40页5.1 数据输出数据输出Print方法方法5.1.3 格式输出Format$Format$该函数格
14、式如下：该函数格式如下：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
15、: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)功能：等待用户在输入对话框中输入信息，返回字符形式的内容。功能：等待用户
16、在输入对话框中输入信息，返回字符形式的内容。现在学习的是第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】Input
17、Box函数的功能函数的功能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(提示提示提示提示,对话框类型对话框类型对话框类型对话框类型,对话框标题对话框标题对话框标题对话框标题)功能：产
18、生一个消息框，用来向用户提供警告信息，并返回一个整数。功能：产生一个消息框，用来向用户提供警告信息，并返回一个整数。现在学习的是第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函数判断是否执行。
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现在学习的是第27页，共40页5.3 MsgBox函数和函数和MsgBox语句语句5.3.2 MsgBox语句MsgBox语句三种格式：语句三种格式：y=MsgBox(输入文件名是否正确输入文件名是否正确,52,请确认请确认)MsgBox输入文件名是否正确输入文件
20、名是否正确,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(请输入圆的半径请输入圆的半
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现在学习的是第29页，共40页5.3 MsgBox函数和函数和MsgBox语句语句5.3.2 MsgBox语句现在学习的是第30页，共40页5.4 字形字形5.4.1 字体类型和大小【例【例12】编写程序，在窗体上输出多种字体。】编写程序，在窗体上输出多种字体。Private Sub Command1_Click
22、()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 Pri
23、nt 黑体黑体-;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属性：
24、设置当前页号属性：设置当前页号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 打印机输出打印机输出先先把把要要输输出出的的信信
25、息息送送到到窗窗体体上上，再再用用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$（
26、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只只脚脚。今今知知鸡鸡和和兔兔
27、的的总总头头数数为为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 编编写写程程序序，要要求求用用户户输输入入下下列列信信息息：姓姓名名、年年龄龄、通通信信地地址址、邮邮政政编编码码、电话，然后将
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现在学习的是第39页，共40页祝同学们学业进步！现在学习的是第40页，共40页