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

《《数据输入输出》PPT课件.ppt》由会员分享，可在线阅读，更多相关《《数据输入输出》PPT课件.ppt（37页珍藏版）》请在装配图网上搜索。

第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,"ABCDEF"Printx;y;z;“ABCDEF”；"GHIJK"输出结果：51015ABCDEF51015ABCDEFGHIJK标准格式输出即分区格式输出，14个字符位置为一个分区紧凑格式输出数值数据时，数字后面有一个空格。,计算机基础教学部,5.1数据输出－Print方法,4.执行一次Print方法自动换行，尾部加逗号，分号或空格可在同一行显示例如：Print"30+50="Print30+50Print"80+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方法有关的函数1．Tab函数格式：Tab（n）作用：把光标移到由参数n指定的位置PrintTab(25);800在第25个位置输出8002．Spc函数格式：Spc（n）作用：跳过n个空格Print“ABC”;Spc(8);“DEF“输出ABC，跳过8个空格，再输出DEF3．空格函数格式：Space$（n）作用：返回n个空格,计算机基础教学部,5.1数据输出－Print方法,4．Cls方法格式：［对象.］Cls作用：清除由Print方法显示的内容5．Move方法格式：［对象.］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*r^2+2*pi*r*hv=pi*r^2*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="modern"Print"modern--->";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=t\3600（\整数除，/浮点除）分的计算：a=tMod3600：m=a\60秒的计算：s=aMod60结果输出：Printh&"时"&m&"分"&s&"秒",计算机基础教学部,5.6应用举例,PrivateSubCommand1_Click()DimtAsLong,hAsInteger,mAsIntegerDimaAsInteger,sAsIntegert=Val(InputBox("输入总秒值"))h=t\3600a=tMod3600m=a\60s=aMod60Printh&"时"&m&"分"&s&"秒“EndSub,