《数据输入输出》PPT课件.ppt

第5章 数据输入输出,主讲教师：刘潇（计科系） 联系电话QQ：421877450 E-mail：,Visual Basic的输入输出灵活、多样、方便、形象直观。本章将介绍与输入输出操作有关的方法和函数。,目录,VB中的每个对象都包括若干方法，方法是对象内部的函数或过程，通过调用对象的方法，可使对象执行特定的操作。常见的方法有：Print、Cls（输出和擦除）；Hide、Show（隐藏和显示）；Move（移动）；SetFocus（焦点）。调用对象的一般语法格式是：,对象名.方法名.参数表,5.1 数据输出Print方法,5.1.1 Print方法,对象名称.Print表达式表,|;,说明：,使用的对象可以是窗体、图片框或打印机 Print “程序设计“ 在当前窗体上输出 Picture1.Print “程序设计“ 在图片框上输出 表达式列表是一个或多个表达式，如果省略，则输出一个空行。 有计算和输出双重功能，先计算后输出。输出数值数据时，前面有一个符号位（正号以空格表示），后面留有一个空格；输出字符串时，前后不留空格。,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,运行结果,5.1 数据输出Print方法,5.1.1 Print方法,当输出多个表达式或字符串时，各表达式用分隔符（逗号、分号或空格）隔开。 如果输出的各表达式之间用逗号分隔，则按分区（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方法输出全班学生的平均年龄。 已知18岁6人，19岁21人，20岁23人，21岁15人,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 “平均年龄：“;m End Sub,5.1 数据输出Print方法,5.1.2 与Print方法有关的函数和方法,Tab函数,该函数格式如下：,Tab(n),功能：把光标移动到由参数n指定的位置，从这个位置开始输出信息。要输出的内容放在Tab函数的后面，并用分号隔开。,5.1 数据输出Print方法,5.1.2 与Print方法有关的函数和方法,【例4】编程显示下列表格（不显示格线）,程序代码： 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,5.1 数据输出Print方法,5.1.2 与Print方法有关的函数和方法,Spc函数,该函数格式如下：,Spc(n),功能：在Print的输出中，用Spc函数可以跳过n个空格。,5.1 数据输出Print方法,5.1.2 与Print方法有关的函数和方法,Spc函数,该函数格式如下：,Spc(n),如：Print “学号“;Spc(2);“姓名“;Spc(5);“成绩“ 输出结果是：学号 姓名 成绩,5.1 数据输出Print方法,5.1.2 与Print方法有关的函数和方法,Space$函数,该函数格式如下：,Space$(n),功能：用于返回n个空格。,5.1 数据输出Print方法,5.1.2 与Print方法有关的函数和方法,Space$函数,该函数格式如下：,Space$(n),如：a$=“a“+Space(4)+“b“ Print a$ 输出结果是：a b,5.1 数据输出Print方法,5.1.2 与Print方法有关的函数和方法,Cls方法,该函数格式如下：,对象.Cls,功能：清除由Print方法显示的文本或图片框中显示的图形，并把光标移动到对象的左上角（0，0）。,5.1 数据输出Print方法,5.1.2 与Print方法有关的函数和方法,Cls方法,该函数格式如下：,对象.Cls,如：Picture1.Cls 清除图片框Picture1内的图形或文本 Cls 清除当前窗体内显示的内容,5.1 数据输出Print方法,5.1.2 与Print方法有关的函数和方法,Move方法,该函数格式如下：,对象.Move 左边距离,上边距离,宽度,高度,功能：用来移动窗体和控件，并可改变其大小。,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 “picture1“ End Sub,移动控件图（运行情况）,5.1 数据输出Print方法,5.1.3 格式输出,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,“+#,#.#“) Print Format$(TimeVar,“h:m:s“) End Sub,格式符号#和0都能显示数字，但符号#会剔除 不必要的0，符号0会按规定补足0。,5.2 数据输入InputBox函数,InputBox,该函数格式如下：,InputBox(prompt,title,default,xpos,yposhelpfile,context),功能：等待用户在输入对话框中输入信息，返回字符形式的内容。,5.2 数据输入InputBox函数,xpos,ypos,标题,输入区,5.2 数据输入InputBox函数,【 例7】InputBox函数的功能 Private Sub Form_Click() filename$=InputBox(“请输入文件名（不超过8个字符）“,“文件名“,“vbfile“) Print filename$ End Sub,5.2 数据输入InputBox函数,【 例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函数,MsgBox,该函数格式如下：,MsgBox(提示,对话框类型,对话框标题),功能：产生一个消息框，用来向用户提供警告信息，并返回一个整数。,5.3 MsgBox函数和MsgBox语句,5.3.1 MsgBox函数,【 例9】MsgBox函数的功能 Private Sub Form_Click() y=MsgBox(“输入文件名是否正确“,48,“请确认“) Print y End Sub,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*x ElseIf x=7 Then Print “请重新输入“ EndIf End Sub,5.3 MsgBox函数和MsgBox语句,5.3.2 MsgBox语句,MsgBox语句三种格式： y=MsgBox(“输入文件名是否正确“,52,“请确认“) MsgBox“输入文件名是否正确“,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(“请输入圆的半径“,“计算圆的周长和面积“) k=2*3.14159*r s=3.14159*r*r Text1.Text=k Text2.Text=s MsgBox“计算已完成“,“例5.11“ End Sub Private Sub Command2_Click() End End Sub,5.3 MsgBox函数和MsgBox语句,5.3.2 MsgBox语句,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,5.4 字形,5.4.2 其他属性,其他属性： 粗体字 FontBold =Boolean 斜体字 FontItalic =Boolean 加删除线 FontStrikethru =Boolean 加下划线 FontUnderline =Boolean 重叠显示 FontTransParent =Boolean,5.5 打印机输出,直接输出,把信息直接送到打印机。 格式：Printer.Print表达式表 Page属性：设置当前页号 NewPage方法：实现换页操作 EndDoc方法：结束文件打印,5.5 打印机输出,【例13】在打印机上打印文字“计算机程序设计”。,Private Sub Command1_Click() Printer.FontName=“隶书“ Printer.FontSize=12 Printer.Print“计算机程序设计“ Printer.EndDoc End Sub,5.5 打印机输出,窗体输出,先把要输出的信息送到窗体上，再用PrintForm方法把窗体上的内容打印出来。 格式：窗体名.PrintForm 功能：把窗体上的信息输出到打印机,思考与练习,课本第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 : 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“),上机练习,5.2 编写程序，求解