《第5章数据输入输出》由会员分享，可在线阅读，更多相关《第5章数据输入输出（37页珍藏版）》请在金锄头文库上搜索。
1、第第5章章数据输入输出数据输入输出内容提要：内容提要：1数据输出数据输出Print方法方法2数据输入数据输入InputBox函数函数3MsgBox函数和函数和MsgBox语句语句4字形字形重点：重点：数据输出数据输出Print方法方法数据输入数据输入InputBox函数函数MsgBox函数和函数和MsgBox语句语句计算机基础教学部 5.1数据输出数据输出PrintPrint方法方法5.1.1Print方法方法作作用用：在在窗窗体体上上显显示示文文本本字字符符串串和和表表达达式式的的值值，并并可可在在其其他他图图形形对象或打印机上输出信息。对象或打印机上输出信息。格式为：格式为：对象名称对象名
2、称.Print表达式表，表达式表，|；说明说明：1.“对对象象名名称称”可可以以是是窗窗体体（Form）、图图片片框框（PictureBox）或或打打印印机机（Printer），也可以是立即窗口（），也可以是立即窗口（Debug）Picture1.Print“VisualBasic6.0”在图片框上输出在图片框上输出Debug.Print“VisualBasic6.0”在立即窗口上输出在立即窗口上输出Print“VisualBasic6.0”在窗体上输出在窗体上输出2.“表达式表表达式表”是一个或多个表达式，可以是数值表达式或字符串是一个或多个表达式，可以是数值表达式或字符串Print100输
3、出结果输出结果100Print“VisualBasic6.0”输出结果输出结果VisualBasic6.0计算机基础教学部 5.1数据输出数据输出PrintPrint方法方法 3.若若输输出出的的各各表表达达式式之之间间用用逗逗号号分分隔隔，则则按按标标准准输输出出格格式式（分分区区输输出出格格式式）示示数数据据项项；如如果果各各输输出出项项之之间间用用分分号号或或空空格格作作分分隔隔符符，则则按按紧紧凑输出格式凑输出格式输出数据。输出数据。例如：例如：x=5:y=10:z=15Printx,y,z,ABCDEFPrintx;y;z;“ABCDEF”；GHIJK输出结果：输出结果：51015A
4、BCDEF51015ABCDEFGHIJK标准格式输出即分区格式输出，标准格式输出即分区格式输出，14个字符位置为一个分区个字符位置为一个分区紧凑格式输出数值数据时，数字后面有一个空格。紧凑格式输出数值数据时，数字后面有一个空格。计算机基础教学部 5.1数据输出数据输出PrintPrint方法方法 4.执执行行一一次次Print方方法法自自动动换换行行，尾尾部部加加逗逗号号，分分号号或或空空格格可可在在同同一一行显示行显示例如：例如：Print30+50=Print30+50Print80+100=;Print80+100输出结果：输出结果：30+50=8080+100=180计算机基础教学部
5、 5.1数据输出数据输出PrintPrint方法方法例：设计程序使用例：设计程序使用Print方法在窗体中显示学生信息。方法在窗体中显示学生信息。PrivateSubForm_Click()Dimscore1AsSingleDimscore2AsSingle,score3AsSinglescore1=90:score2=87:score3=84Print;李明李明;VB程序设计成绩程序设计成绩以紧凑格式显示各个字符串表达式以紧凑格式显示各个字符串表达式Print省略分隔符，自动换行省略分隔符，自动换行Print理论理论,实验实验,综合作业综合作业以标准格式显示各个字符串表达式以标准格式显示各个
6、字符串表达式Printscore1,score2,score3以标准格式显示各个数值表达式以标准格式显示各个数值表达式PrintPrint“平均成绩：平均成绩：;(score1+score2+score3)/3;分分以紧凑格式显示，数值项后面有一个空格以紧凑格式显示，数值项后面有一个空格EndSub计算机基础教学部 5.1数据输出数据输出PrintPrint方法方法 5.1.2与与Print方法有关的函数方法有关的函数1Tab函数函数格式：格式：Tab（n）作用：作用：把光标移到由参数把光标移到由参数n指定的位置指定的位置PrintTab(25);800在第在第25个位置输出个位置输出8002
7、Spc函数函数格式：格式：Spc（n）作用：作用：跳过跳过n个空格个空格Print“ABC”;Spc(8);“DEF“输出输出ABC，跳过，跳过8个空格，再输出个空格，再输出DEF3空格函数空格函数格式：格式：Space$（n）作用：作用：返回返回n个空格个空格计算机基础教学部 5.1数据输出数据输出PrintPrint方法方法4Cls方法方法格式：格式：对象对象.Cls作用：作用：清除由清除由Print方法显示的内容方法显示的内容5Move方法方法格式：格式：对象对象.Move左边距离，上边距离，宽度，高度左边距离，上边距离，宽度，高度作用：作用：移动窗体或控件，并改变大小移动窗体或控件，并
8、改变大小计算机基础教学部 5.1数据输出数据输出PrintPrint方法方法5.1.3格式输出格式输出在在VB中，用函数中，用函数Format来实现格式输出。来实现格式输出。格式：格式：Format$（数值表达式，格式字符串）（数值表达式，格式字符串）功能：功能：按照按照“格式字符串格式字符串”指定的格式输出指定的格式输出“数值表达式数值表达式”的值的值格式字符串有三类：数值格式、日期格式和字符串格式格式字符串有三类：数值格式、日期格式和字符串格式如：如：PrintFormat(3.14159,“#.#”)计算机基础教学部 5.1数据输出数据输出PrintPrint方法方法1.数值格式数值格式
9、说明：说明：对于对于“#”、“0”符号，当数值整数位数多于格式字符串的位数时，按照实际数符号，当数值整数位数多于格式字符串的位数时，按照实际数值显示；小数部分多于格式字符串的位数时，则按照四舍五入显示。值显示；小数部分多于格式字符串的位数时，则按照四舍五入显示。“0”按照规按照规定位数显示，不足位则用定位数显示，不足位则用0补齐，而补齐，而#不进行其他操作。不进行其他操作。字符字符说明明实例例结果果#数字占位符，每一个字符都代表数字占位符，每一个字符都代表转换后的一位字符。后的一位字符。实际数字小于符号位数，数字前不数字小于符号位数，数字前不补0Format(1123.4567,“#.#”)F
10、ormat(3.14159,“#.#”)1123.4573.1420数字占位符，每一个字符都代表数字占位符，每一个字符都代表转换后的一位字符。后的一位字符。实际数字小于符号号位数，数字前数字小于符号号位数，数字前补0Format(1123.4567,“000.000”)Format(3.14159,“000.000”)1123.457003.142,千分位符号占位符千分位符号占位符Format(1123.456,“#,#.#”)1,123.46%百分比符号占位符百分比符号占位符Format(0.1234,0.00%)12.34%计算机基础教学部 5.1数据输出数据输出PrintPrint方法方
11、法2.字符串格式字符串格式字符字符说明明实例例结果果字符占位符，字符由右向左填充，字符占位符，字符由右向左填充，实际字符位数小于占位符位数，在实际字符位数小于占位符位数，在字符串前补空格字符串前补空格Format(abcd,)abcd&字符占位符，字符由右向左填充，字符占位符，字符由右向左填充，实际字符位数小于占位符位数，在实际字符位数小于占位符位数，在字符串前不补空格字符串前不补空格Format(abcd,&)abcd强制大写，将所有字符以大写形式强制大写，将所有字符以大写形式显示显示Format(VisualBasic,)VISUALBASIC强制小写，将所有字符以小写形式强制小写，将所有
12、字符以小写形式显示显示Format(VisualBasic,)visualbasic!强制从左而右填充字符展位符，缺强制从左而右填充字符展位符，缺省由右向左填充省由右向左填充Format(abcd,!)abcd计算机基础教学部 5.1数据输出数据输出Print方法方法3.日期和时间格式化日期和时间格式化字符字符说明明实例例结果果ddddd显示完整日期（包括年、示完整日期（包括年、月、日）月、日）Format(Date,dddddd)2009年年7月月23日日mmmm以全称来表示月以全称来表示月(JanuaryDcember)Format(Date,mmmm)Julyyyyy以四位数来表示年以四
13、位数来表示年Format(Date,yyyy)2009Hh以有前以有前导0的数字的数字显示小示小时（0023）Nn以有前以有前导0的数字的数字显示分示分（0059）Ss以有前以有前导0的数字的数字显示秒示秒（0059）Format(Time,hh:nn:ss)18:06:23AM/PM12小小时显示示时间，上午，上午AM，下午，下午PMFormat(Time,hh:nn:ssAM/PM)06:06:39PM计算机基础教学部 5.2数据输入数据输入InputBox函数函数作用：作用：InputBox函数产生一个对话框，这个对话框作为输入数函数产生一个对话框，这个对话框作为输入数据的界面，等待用户
14、输入数据，并返回所输入的内容。据的界面，等待用户输入数据，并返回所输入的内容。格式：格式：InputBox（prompt，title，default，xpos，ypos，helpfile，context)缺省值缺省值标题题标题题提示提示计算机基础教学部 5.2数据输入数据输入InputBox函数函数参数参数用法用法prompt提示信息参数是必须的。若包含多行，可在各行之间用提示信息参数是必须的。若包含多行，可在各行之间用chrchr（1313）（回车符）、（回车符）、chrchr（1010）（换行符）或）（换行符）或chrchr（1313）& chr(10)& chr(10)来分隔来分隔tit
15、le对话框的标题，是可选的对话框的标题，是可选的default文本框里的缺省值，是可选的文本框里的缺省值，是可选的xpos，yposX X坐标，坐标，y y坐标决定输入框的位置坐标决定输入框的位置helpfile帮助文件是可选项，字符串变量或表达式，表示帮助文件名字帮助文件是可选项，字符串变量或表达式，表示帮助文件名字context可选项，数值变量或表达式，表示相关帮助主题的帮助目录号。可选项，数值变量或表达式，表示相关帮助主题的帮助目录号。参数说明：参数说明：计算机基础教学部 5.2数据输入数据输入InputBox函数函数例如：有下列语句如下例如：有下列语句如下:DimxasIntegerx
16、=Val(InputBox(“请输入一个数请输入一个数”,“输入框输入框”,100)语句执行后打开如下对话框。语句执行后打开如下对话框。说明：说明：默认情况下，默认情况下，InputBox函数返回一个字符串（不是变体类型），函数返回一个字符串（不是变体类型），若希望输入的值参与运算时，要将其转化为数值型，若希望输入的值参与运算时，要将其转化为数值型，Val函数转换为相函数转换为相应类型的数据。应类型的数据。缺省值标题提示计算机基础教学部 5.2数据输入数据输入InputBox函数函数例：用例：用InputBox函数输入圆柱体的半径和高，计算圆柱体表面积和函数输入圆柱体的半径和高，计算圆柱体表面
17、积和圆柱体体积。圆柱体体积。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函数
18、函数说明：说明：(1)在默认情况下，在默认情况下，InputBox的返回值是一个字符型数据，用的返回值是一个字符型数据，用val函数把函数把它转换成数值型数据。它转换成数值型数据。(2)在在InputBox函数对话框中有两个按钮，当在输入区输入数据后，单函数对话框中有两个按钮，当在输入区输入数据后，单击击“确定确定”按钮按钮(或按回车键或按回车键)，返回在输入区中输入的数据；若单击，返回在输入区中输入的数据；若单击“取消取消”按钮按钮(或按或按ESC键键)，并返回一个空字符串。，并返回一个空字符串。(3)每执行一次每执行一次InputBox函数，只能输入一个数据。如果需要输入多个函数，只能输入
19、一个数据。如果需要输入多个值，可以写多个调用值，可以写多个调用InputBox函数的语句。函数的语句。计算机基础教学部 5.3MsgBox函数和函数和MsgBox语句语句MsgBox函数函数 格式：格式：MsgBox(msg,type,title,helpfile,context)MsgBox语句语句格式：格式：MsgBoxMsg,type,title,helpfile,context说明：说明：1MsgBox语句与语句与MsgBox函数功能及各参数的意义相同。不同之处在于函数功能及各参数的意义相同。不同之处在于MsgBox语句是一条语句，可以独占一行，并且没有返回值；语句是一条语句，可以独占
20、一行，并且没有返回值；2msg、title、helpfile和和context与与InputBox函数中对应的参数相同；函数中对应的参数相同；3type是是“按钮图标按钮图标+缺省按钮缺省按钮+模式模式”是整型表达式，决定信息框按钮数是整型表达式，决定信息框按钮数目、出现目、出现在信息框上的图标类型及操作模式；由四类数值相加产生。在信息框上的图标类型及操作模式；由四类数值相加产生。图标图标标题标题提示信息提示信息命令按钮命令按钮计算机基础教学部 5.3MsgBox函数和函数和MsgBox语句语句按钮及图标值如下按钮及图标值如下:类别常量常量值说明明按按钮数目数目vbOKOnly0显示示OK按按
21、钮vbOKCancel1显示示OK及及Cancel按按钮vbAbortRetryIgnore2显示示Abort、Retry、Ignore按按钮vbYesNoCancel3显示示Yes、No及及Cancel按按钮vbYesNo4显示示Yes及及No按按钮vbRetryCancel5显示示Retry及及Cancel按按钮图标类型型vbCritical16显示示CriticalMessage图标vbQuestion32显示示WarningQuery图标vbExclamation48显示示WarningMessage图标vbInfomation64显示示InfomationMessage图标默默认按按
22、钮vbdefaultButton10第一个按第一个按钮是默是默认值vbdefaultButton2256第二个按第二个按钮是默是默认值vbdefaultButton3512第三个按第三个按钮是默是默认值模式模式vbApplicationModal0应用程序用程序强强制返回，制返回，应用程序一直被挂起，直到用用程序一直被挂起，直到用户对消息框作出响消息框作出响应才才继续工作工作vbSystemMpdal4096系系统强强制返回，全部制返回，全部应用程序都被挂起，直到用用程序都被挂起，直到用户对消息框作出响消息框作出响应才才继续工作工作计算机基础教学部 5.3MsgBox函数和函数和MsgBox语
23、句语句MsgBox函数返回值函数返回值:常数常数值说明明vbOK1单击“确定确定”按按钮vbCancel2单击“取消取消”按按钮vbAbort3单击“终止止”按按钮vbRetry4单击“重重试”按按钮vbgnore5单击“忽略忽略”按按钮vbYes6单击“是是”按按钮vbNo7单击“否否”按按钮计算机基础教学部 5.3MsgBox函数和函数和MsgBox语句语句例如：例如：MsgBox函数返回值的应用。函数返回值的应用。语句：语句：X=MsgBox(输入数据是否正确输入数据是否正确?,vbYesNoCancel,数据数据检查检查)弹出如图所示对话框，选择弹出如图所示对话框，选择“是是”按钮，按
24、钮，x=6；选择；选择“否否”按钮，按钮，x=7；选择；选择“取消取消”按钮，按钮，x=计算机基础教学部 InputBoxInputBox函数函数-输入框输入框作用作用： l打开一个对话框,等待用户输入内容。l单击确定，返回输入值（字符型数据） 格式格式： 变量名变量名 = = InputBoxInputBox ( ( 提示提示,标题标题,默认值默认值,X,Y),X,Y)例：设置一个输入框：例：设置一个输入框：提示用户输入查询学号。提示用户输入查询学号。 提示：提示：提示：提示： 若提示内容中需要换行显示：若提示内容中需要换行显示：在换行处加在换行处加chr(13)chr(13)和和chr(1
25、0) chr(10) 各项参数位置必须一一对应各项参数位置必须一一对应MsgboxMsgboxMsgbox函数函数函数-信息框信息框信息框1.1.1.1.语法语法语法语法 变量变量 = = MsgBoxMsgBox( (提示内容提示内容,按钮按钮,标题标题 ) ) MsgBoxMsgBox 提示内容提示内容,按钮按钮,标题标题2.MsgBox2.MsgBox函数的常用参数的说明函数的常用参数的说明函数的常用参数的说明函数的常用参数的说明提示内容提示内容提示内容提示内容：必要：必要。字符表达式，即显示在对话框中的信息。字符表达式，即显示在对话框中的信息;sample1$FontName=mode
26、rnPrintmodern-;sample1$FontSize=24FontName=宋体宋体FontBold=TruePrint宋体宋体-;sample2$FontName=隶书隶书FontItalic=TruePrint隶书隶书-;sample2$FontName=黑体黑体FontUnderline=TruePrint黑体黑体-;sample2$EndSub计算机基础教学部 5.6应用举例应用举例例：输入三角形的例：输入三角形的3条边长，计算三角形的面积，在窗体输出该三角条边长，计算三角形的面积，在窗体输出该三角形的面积。形的面积。分析：分析：变量定义：变量定义：三角形三条边三角形三条边a
27、,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(请输入第一个边请输
28、入第一个边)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(输入
29、总秒值输入总秒值)计算：计算：时的计算：时的计算：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计算机基础教学部
