《《新编Visual-Basic程序设计教程》第5章.pptx》由会员分享，可在线阅读，更多相关《《新编Visual-Basic程序设计教程》第5章.pptx（39页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、第第5 5章章 数据的输入与输出数据的输入与输出数据输出数据输出PRINTPRINT方法方法数据输入数据输入INPUTBOXINPUTBOX函数函数MSGBOXMSGBOX函数和函数和MSGBOXMSGBOX语句语句打印机输出打印机输出5.1 5.1 数据输出数据输出PrintPrint方法方法数据输出是应用程序中必不可少的一个重要的组成部分，难以想象当我们利用程序设计语言编写出各种应用程序后，程序执行我们却看不到结果。所以我们说数据输出是应用程序的非常重要的组成部分，没有输出部分，就不能算是一个完整的应用程序。在VB中用Print方法来完成输出功能。5.1.1 Print5.1.1 Prin
2、t5.1.1 Print5.1.1 Print方法方法方法方法Print方法可以在窗体、图片框、打印机和立即窗口中输出指定的信息，其一般格式如下：说明：（1）“对象名称”可以是窗体（Form）、图片框（Picturebox）、打印机（Printer）以及立即窗口（Debug）。如省略对象名称，则默认在窗体上输出。对象名称.Print 表达式表，|；例例5.1 编写程序分别在窗体、图片框、立即窗口、打印机中使用Print方法输出信息。测试print方法的对象程序要完成的功能是单击“窗体输出（command1）”、“图片框输出（command2）”、“立即窗口输出（command3）”、“打印机输
3、出（command4）”时会在窗体、图片框、立即窗口、打印机上输出指定的信息。所以，编写如下事件过程：Private Sub Command1_Click()Print 我是当前窗体End SubPrivate Sub Command2_Click()Picture1.Print 我是图片框End SubPrivate Sub Command3_Click()Debug.Print 我是立即窗口End SubPrivate Sub Command4_Click()Printer.Print 我是打印机End Sub如果程序运行，分别单击了Command1和Command2两个按钮，应该在窗体上
4、输出“我是当前窗体”，在图片框上输出“我是图片框”。运行结果（2）表达式可以是一个或多个表达式，可以是数值表达式也可以是字符表达式，当是字符表达式时，按照原样输出；当是数值表达式时，输出表达式的值。例如：（3）当输出表达式是多个时，表达式之间必须加上分隔符，分隔符可以是“，”、“；”或“空格”。用“，”号时，表示按标准的输出格式（即按区段输出格式）显示数据项，也就是以14个字符位置为单位把一个输出行分为若干个区段，逗号后面的表达式在下一个区段输出；如果用分号或空格作为多个表达式的分隔符，则表示各输出项按紧凑格式输出。例如：Print 3+5 8a=3 b=5 Print a,b 分隔符为逗号，
5、各输出项按标准的输出格式显示 3 5 Print a;b 3 5 Print a b 3 5分隔符为分号或者空格，按紧凑格式输出，数值类型前面有一个符号位，后面有一个空格，如是字符串则没有空格。（4）如果省略表达式表，则表示输出一个空行。（5）Print方法有计算和输出双重功能，但是应该特别注意，它没有赋值功能。例如：这个语句的执行结果不能输出“x=8”，在立即窗口中会显示“False”。因为在这里“=”被当作逻辑比较运算符号来使用，而不是作为赋值符号来使用的。a=3 b=5 Print x=a+b False（6）如果想让多个Print语句输出的内容在同一行上，可以在表达式后面加上分隔符逗号
6、或者分号，那么多个Print语句的输出项会出现在同一行，如用逗号按标准输出格式输出，如用分号按紧凑格式输出。例如：输出结果为：a=3b=5Print a;+;b;=;Print a+bPrint a+b;=,Print a+b3+5=83+5=85.1.2 5.1.2 5.1.2 5.1.2 与与与与PrintPrintPrintPrint方法有关的函数方法有关的函数方法有关的函数方法有关的函数为了输出的信息按照指定的格式输出，VB中提供了几个和信息输出位置有关的函数，比如Tab函数、Spc函数等等。1Tab函数函数格式：Tab（n）Tab函数完成的功能就是将光标移动到由n指定的位置进行输出，
7、要输出的内容放在Tab函数后面，并用分号隔开。说明：（1）参数n确定位置，它是一个整型值，表示下一个输出位置的列号，n值从最左端开始计数，通常最左侧的列号为1，如当前的输出位置已经大于n值，那么自动换到下一行n值指示的位置输出表达式。如果n1，则光标移动到第一列。（2）Tab函数中的参数n没有具体的限制。当n值大于行宽时，输出位置为n Mod 行宽。（3）当一个Print语句中有多个表达式时，每个表达式对应一个Tab函数也就是说该输出项的位置由它前面的Tab函数决定，各输出项之间以及Tab函数和输出项之间都用分号作为分隔符。例如：下面我们通过一个例子来熟悉Tab函数的使用方法例例5.2 有课程
8、表的一部分如表5-1所示，编程序显示上面的部分课程表（不显示表格线）。Print Tab(1);100;Tab(10);100;Tab(20);100 100 100 100星期第一节第二节第三节第四节星期一语文数学音乐美术星期二数学体育语文英语课程表编写下面的事件过程实现该程序的功能Private Sub Form_Click()FontSize=10FontName=宋体PrintPrintPrint Tab(1);星期;Tab(8);第一节;Tab(16);第二节;Print Tab(24);第三节;Tab(32);第四节PrintPrint Tab(1);星期一;Tab(8);语文;T
9、ab(16);数学;Print Tab(24);音乐;Tab(32);美术Print Tab(1);星期二;Tab(8);数学;Tab(16);体育;Print Tab(24);语文;Tab(32);英语End Sub程序运行后，在窗体上单击，输出结果如下图所示。Tab函数输出2Spc函数函数格式：Spc（n）跳过n个空格，使光标来到下一个指定的输出位置。说明：（1）n是一个数值表达式，取值范围为032767的整数。Spc函数与输出项之间用分号隔开。例如：（2）需要特别注意的是Spc函数可以完成与Tab函数相似的功能，但是它们n值的含义是不同的，Tab函数从最左端开始计数，而Spc函数从上一输
10、出项开始计数。Print hello;Spc(4);everyone hello everyone5.1.3 5.1.3 5.1.3 5.1.3 格式输出格式输出格式输出格式输出用格式输出函数Format（或Format$）可以实现使数值、日期或字符型数据按指定的格式输出。格式输出函数Format的一般格式如下：该函数的功能是按照“格式字符串”的格式输出“表达式”的值。“表达式”可以是数值型、日期型或者字符型的表达式。“格式字符串”由专门的格式说明字符组成。当格式字符串为常量时，必须放在双引号中。常用格式说明字符有：（1）#：数字占位符。如果表达式在格式字符串的“#”位置上有数字，就显示出来；
11、如果没有，就不用显示。如果要显示的数值的位数小于格式字符串指定的区段的长度，则该数值靠区段左端显示；如果要显示的数值的位数大于指定的区段长度，则数值照原样显示。例如：Format（表达式，格式字符串）Print Format(123.456,#.#)123.46 结果靠左端显示（2）0：也是数字占位符。与“#”功能相似，不同的是多余的位在输出时用“0”补齐。例如：（3）：小数点占位符。可以放在显示区段的任何位置。小数点部分多余的数字按四舍五入处理。可以与“#”和“0”结合使用表示指定的输出格式。例如：（4），：千位分隔符占位符。从小数点的左侧开始，每三位是一节，用逗号隔开。注意千位分隔符可以放
12、在小数点左侧（除头部和紧靠小数点位置外）的其他任何位置。例如：Print Format(1234.56,000000.0000)001234.5600Print Format(1234.56,000000.#)001234.6Print Format(12345.678,00000,0.#)012,345.68另外还可以使用：百分号（%）、美元符号（$）、正号（+）、负号（-）、指数形式（E+或E-）等来设置数值型数据的输出格式。例如：Print Format(0.123,#.#0%)12.30%Print Format(12.3,$#.000)$12.300Print Format(12.3
13、,+#.#)+12.3Print Format(123.4,0.00e+00)1.23e+02同样，利用Format还可设置日期型和字符型数据的输出格式。常用的日期型、字符型格式说明符如下表所示。字符说明举例dddddd以完整日期表示法显示日期（包括年月日）Print Format(Date,dddddd)2005年5月6日mmmm以全称表示月份（JanuaryDecember）Print Format(Date,mmmm)Mayyyyy以四位数来表示年Print Format(Date,yyyy)2005hh以有前导零来显示小时（hh）、分（nn）或秒（ss）Print Format(Tim
14、e,hh:nn:ss)08:58:55ttttt以完整时间表示显示（包括时、分、秒），用系统识别的时间格式定义的时间分隔符进行格式化。缺省的时间格式为hh：nn：ssPrint Format(Time,ttttt)9:02:19常用格式说明符5.2 5.2 数据输入数据输入InputBoxInputBox函数函数在Visual Basic中提供了多种数据的输入方式，其中用的最普遍的是文本框和对话框。用文本框实现数据的输入将在第六章中介绍，本小节主要介绍利用对话框输入数据。当程序需要向用户取得如文字或数字之类的信息时，则需要用到输入数据对话框，即InputBox函数。该函数的格式如下：方括号括起
15、来的是可选参数，该函数有7个参数，其含义如下：（1）prompt：是一个字符串，其长度不得超过1024个字符，它是在对话框中显示的信息，用来提示用户输入。在对话框内显示prompt时，可以自动换行。如果想按自己的要求换行，则必须插入回车换行符号，即：InputBox(prompt,title,default,xpos,ypos,helpfile,context)Chr$(13)+Chr$(10)或 vbCrLf.（2）title：字符串，它是对话框的标题，显示在对话框顶部的标题上。（3）default：字符串，用来显示输入缓冲区的默认信息。（4）xpos：可选的。数值表达式，成对出现，指定对话
16、框的左边与屏幕左边的水平距离。如果省略 xpos，则对话框会在水平方向居中。（5）ypos：可选的。数值表达式，成对出现，指定对话框的上边与屏幕上边的距离。如果省略 ypos，则对话框被放置在屏幕垂直方向距下边大约三分之一的位置。（6）helpfile：可选的。字符串表达式，识别帮助文件，用该文件为对话框提供上下文相关的帮助。如果已提供 helpfile，则也必须提供 context。（7）context：可选的。数值表达式，由帮助文件的作者指定给某个帮助主题的帮助上下文编号。如果已提供 context，则也必须要提供 helpfile。InputBox 函数对话框 显示输入对话框在由Inpu
17、tBox显示的对话框中，各参数的作用如左图所示。例如：要想显示如右图所示的输入提示对话框，我们可以这样设置InputBox函数的参数。msg=InputBox(请输入姓名：&vbCrLf&2-4汉字,学生情况登记)使用 InputBox 函数时的注意事项（1）执行 InputBox 函数后，产生一个对话框，提示用户输入数据，光标位于对话框底部的输入区中。如果第三个参数（Default）不省略，则在输入区中显示该参数的值，此时如果按回车键或单击对话框中的“确定”按钮，则输入该默认值，并把它赋给一个变量；如果不想输入默认值，则可直接键入所需要的数据，然后按回车键或单击“确定”按钮输入。（2）默认情
18、况下 InputBox 函数返回的值是一个字符串。因此在我们使用时应该注意数据类型的处理。（3）在执行 InputBox 函数所产生的对话框中，有两个按钮，一个是“确定”，另一个是“取消”。在输入区输入数据后，单击“确定”按钮（或按下回车键）表示确定，并返回输入区中输入的数据；如果单击“取消”按钮（或按下Esc键），则使当前的输入作废，在这种情况下，将返回一个空字符串。（4）每执行一次 InputBox 函数只能输入一个值，如果需要输入多个值，则必须多次调用InputBox 函数。（5）和其他返回字符串的函数一样，InputBox 函数也可以写成 InputBox$的形式，这两种形式完全等价。
19、例例5.3 编写程序，求解鸡兔同笼问题。一个笼子中有鸡x只，兔y只，每只鸡有2只脚，每只兔有4只脚。今知鸡和兔的总头数为h，总脚数为f。问笼中鸡和兔各若干？分析：这是我国古代数学的鸡兔同笼问题，根据我们学过的数学知识我们可以列出如下的联立方程组：根据方程组可以得到：该应用程序应该实现的功能是：用户输入鸡兔的总头数和总脚数，系统处理后，输出结果鸡兔各几只。x=（4h-f）/2y=（f-2h）/2x+y=h （1）2x+4y=f （2）（1）首先建立用户界面，设置相应的对象的属性值，如下表所示。对象属性设置值Form1Caption 鸡兔同笼问题FontSize18Command1Caption
20、输入总头数和总鸡数对象及属性值（2）编写程序代码。Private Sub Command1_Click()Dim h As Integer,f As Integerh=InputBox(请输入鸡兔的总头数,鸡兔同笼)f=InputBox(请输入鸡兔的总脚数（偶数）,鸡兔同笼)x=(4*h-f)/2y=(f-2*h)/2Print 输入鸡兔的总头数：;hPrint 输入鸡兔的总脚数：;fPrint 鸡为;x;只,兔为;y;只End Sub（3）运行程序，单击“Command1”将依次弹出两个输入对话框，如左图和右图所示。在两个对话框的编辑框中分别输入3和8并单击“确定”按钮，程序的运行结果如下图
21、所示。输入鸡兔总头数对话框 输入总脚数对话框程序的运行结果5.3 MsgBox5.3 MsgBox函数和函数和MsgBoxMsgBox语句语句Visual Basic是可视化的程序设计语言，不管是要求用户输入数据，或是显示出即时的信息提示给用户，都可以使用对话框来实现人机的交互。前面我们讲过了一种输入对话框函数InputBox，在这一小节里我们就来学习显示即时信息给用户的MsgBox函数和MsgBox语句。5.3.1 MsgBox5.3.1 MsgBox5.3.1 MsgBox5.3.1 MsgBox函数函数函数函数在使用Windows应用程序时，如果操作有误，屏幕上会显示一个对话框，让用户选
22、择，然后根据用户的选择确定其后的操作，如果用户不进行选择，应用程序将不能继续执行。MsgBox函数的功能与此类似，它可以向用户传送信息，通过用户在对话框上的选择接收用户的响应，作为程序继续执行的依据。MsgBox函数的格式为：该函数由五个参数，除第一个以外，其余均为可选的。MsgBox(msg,type,title,helpfile,context)说明：（1）msg：字符串，不超过1024个字符。该内容将在产生的对话框内显示。注意可以用“Chr(13)+Chr(10)”强制换行。（2）type：是一个整数值或符号常量，用来控制对话框内显示的按钮，图标种类及数量，该参数由四类值相加产生。这四类
23、值分别表示按钮数目、图标类型、默认按钮和强制返回。符号常量值描述VbOKOnly0只显示 OK 按钮VbOKCancel 1显示 OK 及 Cancel 按钮VbAbortRetryIgnore 2显示 Abort、Retry 及 Ignore 按钮VbYesNoCancel 3显示 Yes、No 及 Cancel 按钮VbYesNo4显示 Yes 及 No 按钮VbRetryCancel5显示 Retry 及 Cancel 按钮数值05：对话框内按钮的类型和数量符号常量值作用VbCritical16显示 Critical Message 图标（即显示stop图标）VbQuestion 32显
24、示 Warning Query 图标（即显示“？”图标）VbExclamation 48显示 Warning Message 图标（即显示“！”图标）VbInformation 64显示Information Message 图标（即显示“i”图标数值（16，32，48，64）：对话框内所显示的图标类型符号常量值作用vbDefaultButton10第一个按钮是缺省值vbDefaultButton2256第二个按钮是缺省值vbDefaultButton3512第三个按钮是缺省值vbDefaultButton4768第四个按钮是缺省值数值（0，256，512，768）：指定默认活动按钮符号常量值
25、作用vbApplicationModal0应用程序强制返回；应用程序一直被挂起，直到用户对消息框作出响应才继续工作vbSystemModal 4096系统强制返回；全部应用程序都被挂起，直到用户对消息框作出响应才继续工作数值（0，4096）：分别用于应用程序和系统返回Type参数的值由这四类值相加而成，一般取前三类。例如：16=0+16+0 表示在消息框中只显示“OK”按钮；显示“stop”图标；“OK”按钮是默认按钮。34=2+32+0 表示在消息框中显示“Abort”、“Retry”和“Ignore”三个按钮；显示“？”图标。当然，type参数的值也可以用符号常量来表示，例如，type的值
26、为16就相当于下面的表达式：（3）title：是一个字符串，用来显示对话框的标题。4）helpfile,context：和我们前面讲到的输入对话框的这两个参数的用法和功能相同。前面讲到的InputBox函数默认返回的值是字符串类型的，而MsgBox函数返回的值是一个整数，这个整数与用户在消息框中选择的按钮有关。vbOKOnly+vbCritical+vbDefaultButton1由MsgBox函数返回的消息框中按钮的类型一共有7种，所以函数返回值也有7个，分别为17的整数。常数值描述vbOK 1OK（按下“确定”按钮）vbCancel 2Cancel（按下“取消”按钮）vbAbort 3Ab
27、ort（按下“终止”按钮）vbRetry 4Retry（按下“重试”按钮）vbIgnore 5Ignore（按下“忽略”按钮）vbYes 6Yes（按下“是”按钮）vbNo 7No（按下“否”按钮）MsgBox函数的返回值例例5.4 编写程序，检测MsgBox函数的功能。程序运行后，单击窗体，结果如下图所示。Private Sub Form_Click()msg1$=Do you want to continueTitle1$=MsgBox demonstrationresponse=MsgBox(msg1$,vbYesNo+vbCritical+vbDefaultButton2,Title1
28、$)Print responseEnd SubMsgBox函数返回的对话框5.3.2 MsgBox5.3.2 MsgBox5.3.2 MsgBox5.3.2 MsgBox语句语句语句语句MsgBox函数也可以用MsgBox语句的形式来表示。格式：MsgBox msg,type,title,helpfile,context语句与函数用法相似，功能和参数的含义以及用法也都相同，语句和函数的最主要的区别是函数会返回函数值，而语句没有。因此，当只是显示信息，不需要由该信息决定后继操作时，用语句来完成就可以了。例例5.5 编写程序测试MsgBox语句。程序代码：Private Sub Form_Clic
29、k()MsgBox 注册成功,0,End Sub程序运行后，单击窗体，会显示如下图所示的消息框。MsgBox函数和MsgBox语句所显示的对话框有一个共同的特点：用户必须作出响应，应用程序才能继续执行。在Windows中像这样的窗口（对话框）很普遍，在Visual Basic中专门给这类窗口起了个名字模态窗口（Modal Window）。当程序运行时，模态窗口挂起应用程序中的其他窗口的操作。一般来说，当屏幕上出现一个窗口（或对话框）时，如果需要在响应该窗口中的提示后才能进行其他操作，则该窗口应该是模态窗口。与模态窗口对应的是非模态窗口（Modalless Window），它允许对屏幕上的其他窗
30、口进行操作。MsgBox函数和MsgBox语句所显示的对话框都是模态窗口。由MsgBox语句返回的对话框5.4 5.4 打印机输出打印机输出在日常生活中，我们经常需要得到一些文件的硬拷贝文件，这就要用到打印机了。打印机是Visual Basic中的一个对象（Printer），如果想要把指定的信息输出到打印机上，仍然可以使用Print方法，只不过此时对象是打印机（Printer），而不是我们前面用到的窗体、图片框或者立即窗口。5.4.1 5.4.1 5.4.1 5.4.1 直接输出直接输出直接输出直接输出所谓直接输出，就是将信息直接送到打印机。使用的是Print方法，格式为：Printer.Pr
31、int表达式表语句的执行结果会把“表达式表”的值在打印机上打印出来。打印机对象的主要属性和方法如下：（1）Page属性设置页号格式为：Printer.Page在应用程序中可以用Page属性打印页号。（2）NewPage方法强制换页格式为：Printer.NewPage打印时，打印完一页会自动换页，使用NewPage方法可以实现强制换页。（3）EndDoc方法结束打印格式为：Printer.EndDocEndDoc方法用来结束文件的打印，可以将所有尚未打印的信息都送出去。（4）KillDoc方法格式为：Printer.KillDoc用于立即终止当前打印作业。如果操作系统的打印管理器正在处理该打印
32、作业（打印管理器正在运行并且允许后台打印），那么KillDoc将删除当前打印作业并且使打印机不接收任何信息。如果打印管理器不是正在在处理该打印作业（没有选用后台打印），部分或全部数据可能在KillDoc生效前已发送到打印机。此时，打印机驱动程序将尽可能使打印机复位并终止该打印作业。5.4.2 5.4.2 5.4.2 5.4.2 窗体输出窗体输出窗体输出窗体输出利用直接输出可以将信息直接在打印机上打印出来，但有可能浪废纸张。采用窗体输出更适用。格式为：窗体.PrintForm即先将信息送到窗体上，再用PrintForm方法把窗体上的内容打印出来。说明：（1）先修改，后打印，节约纸张和时间。（2）
33、须将窗体的AutoRedraw属性设置为True。（3）用PrintForm方法不仅可以打印窗体上的文本，而且还可以打印出窗体上的任何可见的控件及图形。例例5.6该例子先把英文字符输出到窗体的指定位置，最后一行通过使用窗体PrintForm方法将窗体上的信息输出到打印机。Private Sub Form_Click()FontSize=18ForeColor=&HFF&Print hello everyoneFontSize=20ForeColor=&HFF00&CurrentX=1000CurrentY=1500Print welcom to china通过窗体输出信息到打印机Form1.PrintFormEnd Sub