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

第5章数据输入输出,计算机基础教学部,内容提要：1数据输出Print方法2数据输入InputBox函数3MsgBox函数和MsgBox语句4字形重点：数据输出Print方法数据输入InputBox函数MsgBox函数和MsgBox语句,计算机基础教学部,5.1数据输出Print方法,5.1.1Print方法作用：在窗体上显示文本字符串和表达式的值，并可在其他图形对象或打印机上输出信息。格式为：对象名称.Print表达式表，|；说明：1.“对象名称”可以是窗体（Form）、图片框（PictureBox）或打印机（Printer），也可以是立即窗口（Debug）Picture1.Print“VisualBasic6.0”在图片框上输出Debug.Print“VisualBasic6.0”在立即窗口上输出Print“VisualBasic6.0”在窗体上输出2.“表达式表”是一个或多个表达式，可以是数值表达式或字符串Print100输出结果100Print“VisualBasic6.0”输出结果VisualBasic6.0,计算机基础教学部,5.1数据输出Print方法,3.若输出的各表达式之间用逗号分隔，则按标准输出格式（分区输出格式）示数据项；如果各输出项之间用分号或空格作分隔符，则按紧凑输出格式输出数据。例如：x=5:y=10:z=15Printx,y,z,ABCDEFPrintx;y;z;“ABCDEF”；GHIJK输出结果：51015ABCDEF51015ABCDEFGHIJK标准格式输出即分区格式输出，14个字符位置为一个分区紧凑格式输出数值数据时，数字后面有一个空格。,计算机基础教学部,5.1数据输出Print方法,4.执行一次Print方法自动换行，尾部加逗号，分号或空格可在同一行显示例如：Print30+50=Print30+50Print80+100=;Print80+100输出结果：30+50=8080+100=180,计算机基础教学部,5.1数据输出Print方法,例：设计程序使用Print方法在窗体中显示学生信息。PrivateSubForm_Click()Dimscore1AsSingleDimscore2AsSingle,score3AsSinglescore1=90:score2=87:score3=84Print;李明;VB程序设计成绩以紧凑格式显示各个字符串表达式Print省略分隔符，自动换行Print理论,实验,综合作业以标准格式显示各个字符串表达式Printscore1,score2,score3以标准格式显示各个数值表达式PrintPrint“平均成绩：;(score1+score2+score3)/3;分以紧凑格式显示，数值项后面有一个空格EndSub,计算机基础教学部,5.1数据输出Print方法,5.1.2与Print方法有关的函数1Tab函数格式：Tab（n）作用：把光标移到由参数n指定的位置PrintTab(25);800在第25个位置输出8002Spc函数格式：Spc（n）作用：跳过n个空格Print“ABC”;Spc(8);“DEF“输出ABC，跳过8个空格，再输出DEF3空格函数格式：Space$（n）作用：返回n个空格,计算机基础教学部,5.1数据输出Print方法,4Cls方法格式：对象.Cls作用：清除由Print方法显示的内容5Move方法格式：对象.Move左边距离，上边距离，宽度，高度作用：移动窗体或控件，并改变大小,计算机基础教学部,5.1数据输出Print方法,5.1.3格式输出在VB中，用函数Format来实现格式输出。格式：Format$（数值表达式，格式字符串）功能：按照“格式字符串”指定的格式输出“数值表达式”的值格式字符串有三类：数值格式、日期格式和字符串格式如：PrintFormat(3.14159,“#.#”),计算机基础教学部,5.1数据输出Print方法,数值格式说明：对于“#”、“0”符号，当数值整数位数多于格式字符串的位数时，按照实际数值显示；小数部分多于格式字符串的位数时，则按照四舍五入显示。“0”按照规定位数显示，不足位则用0补齐，而#不进行其他操作。,计算机基础教学部,5.1数据输出Print方法,2.字符串格式,计算机基础教学部,5.1数据输出Print方法,3.日期和时间格式化,计算机基础教学部,5.2数据输入InputBox函数,作用：InputBox函数产生一个对话框，这个对话框作为输入数据的界面，等待用户输入数据，并返回所输入的内容。格式：InputBox（prompt，title，default，xpos，ypos，helpfile，context),计算机基础教学部,5.2数据输入InputBox函数,参数说明：,计算机基础教学部,5.2数据输入InputBox函数,例如：有下列语句如下:DimxasIntegerx=Val(InputBox(“请输入一个数”,“输入框”,100)语句执行后打开如下对话框。说明：默认情况下，InputBox函数返回一个字符串（不是变体类型），若希望输入的值参与运算时，要将其转化为数值型，Val函数转换为相应类型的数据。,计算机基础教学部,5.2数据输入InputBox函数,例：用InputBox函数输入圆柱体的半径和高，计算圆柱体表面积和圆柱体体积。1设计界面,计算机基础教学部,5.2数据输入InputBox函数,2编写程序代码。PrivateSubCommand1_Click()DimrAsSingle,hAsSingle,sAsSingle,vAsSingleConstpi=3.1415926r=Val(InputBox(输入圆柱体半径)h=Val(InputBox(输入圆柱体高)s=2*pi*r2+2*pi*r*hv=pi*r2*hText1.Text=sText2.Text=vEndSub,计算机基础教学部,5.2数据输入InputBox函数,说明：(1)在默认情况下，InputBox的返回值是一个字符型数据，用val函数把它转换成数值型数据。(2)在InputBox函数对话框中有两个按钮，当在输入区输入数据后，单击“确定”按钮(或按回车键)，返回在输入区中输入的数据；若单击“取消”按钮(或按ESC键)，并返回一个空字符串。(3)每执行一次InputBox函数，只能输入一个数据。如果需要输入多个值，可以写多个调用InputBox函数的语句。,计算机基础教学部,5.3MsgBox函数和MsgBox语句,MsgBox函数格式：MsgBox(msg,type,title,helpfile,context)MsgBox语句格式：MsgBoxMsg,type,title,helpfile,context说明：1MsgBox语句与MsgBox函数功能及各参数的意义相同。不同之处在于MsgBox语句是一条语句，可以独占一行，并且没有返回值；2msg、title、helpfile和context与InputBox函数中对应的参数相同；3type是“按钮图标+缺省按钮+模式”是整型表达式，决定信息框按钮数目、出现在信息框上的图标类型及操作模式；由四类数值相加产生。,图标,标题,提示信息,命令按钮,计算机基础教学部,5.3MsgBox函数和MsgBox语句,按钮及图标值如下:,计算机基础教学部,5.3MsgBox函数和MsgBox语句,MsgBox函数返回值:,计算机基础教学部,5.3MsgBox函数和MsgBox语句,例如：MsgBox函数返回值的应用。语句：X=MsgBox(输入数据是否正确?,vbYesNoCancel,数据检查)弹出如图所示对话框，选择“是”按钮，x=6；选择“否”按钮，x=7；选择“取消”按钮，x=,InputBox函数-输入框,作用：打开一个对话框,等待用户输入内容。单击确定，返回输入值（字符型数据）格式：变量名=InputBox(提示,标题,默认值,X,Y),例：设置一个输入框：提示用户输入查询学号。,提示：若提示内容中需要换行显示：在换行处加chr(13)和chr(10)各项参数位置必须一一对应,Msgbox函数-信息框,1.语法,变量=MsgBox(提示内容,按钮,标题)MsgBox提示内容,按钮,标题,2.MsgBox函数的常用参数的说明,提示内容：必要。字符表达式，即显示在对话框中的信息,;sample1$FontName=modernPrintmodern-;sample1$FontSize=24FontName=宋体FontBold=TruePrint宋体-;sample2$FontName=隶书FontItalic=TruePrint隶书-;sample2$FontName=黑体FontUnderline=TruePrint黑体-;sample2$EndSub,计算机基础教学部,5.6应用举例,例：输入三角形的3条边长，计算三角形的面积，在窗体输出该三角形的面积。分析：变量定义：三角形三条边a,b,c,面积area,s：双精度数据输入：a=Val(InputBox(请输入第一个边)b=Val(InputBox(请输入第二个边)c=Val(InputBox(请输入第三个边)计算步骤：计算s的值：计算面积：结果输出：Printarea,计算机基础教学部,5.6应用举例,PrivateSubCommand1_Click()DimaAsDouble,bAsDouble,cAsDoubleDimsAsDouble,areaAsDoublea=Val(InputBox(请输入第一个边)b=Val(InputBox(请输入第二个边)c=Val(InputBox(请输入第三个边)s=(a+b+c)/2area=s*(s-a)*(s-b)*(s-c)area=Sqr(area)PrintareaEndSub,计算机基础教学部,5.6应用举例,例：设计一个时间转换程序，实现秒到时、分、秒的转换，将结果输出在窗体上。分析：变量定义：时、分、秒h,m,s：Integer总秒值t：Long数据输入：t=Val(InputBox(输入总秒值)计算：时的计算：h=t3600（整数除，/浮点除）分的计算：a=tMod3600：m=a60秒的计算：s=aMod60结果输出：Printh&时&m&分&s&秒,计算机基础教学部,5.6应用举例,PrivateSubCommand1_Click()DimtAsLong,hAsInteger,mAsIntegerDimaAsInteger,sAsIntegert=Val(InputBox(输入总秒值)h=t3600a=tMod3600m=a60s=aMod60Printh&时&m&分&s&秒“EndSub,