数据的输入和输出PPT课件

第4章数据的输入和输出4.1数据的输入4.2数据的输出4.3MsgBox函数4.4字形与颜色控制4.1数据的输入VB与用户之间的直接交互是通过函数来实现的，最常用的输入函数为InputBox()函数。4.1.1InputBox函数调用格式InputBox[$](Prompt[,Tiltle][,Default][,Xpos,Ypos])(1)Prompt（提示信息，为必选项）:字符串，长度不超过1024个字符，用来提示用户输入。(2)Title（标题）：字符串，是对话框的标题，显示在对话框标题区。(3)Default（默认）:字符串，如果在输入框中无输入时，则改默认值作为输入的内容。(4)Xpos，Ypos(坐标位置)：两个整数值，确定对话框左上角在屏幕上的位置。如果省略，则对话框在屏幕上水平居中，垂直方向上大约处于屏幕1/3处。4.1数据的输入例如：PrivatesubForm_Click()c1$=chr$(13)+chr$(10)str1$=“请输入一串字符:"str2$=“输入后按回车键,或单击确定按钮"msg$=str1$+c1$+str2$ss$=InputBox$(msg$,“输入函数InputBox示例”,“hello")Printss$EndSubP73.vbp(1)函数的返回值为一字符串。变量名=InputBox(参数表）输入数值时，函数值需利用Val函数转换为数值后，再参加运算。(2)每执行一次InputBox函数只能输入一个值。需要输入多个值，则必须多次执行或调用InputBox函数4.1.2使用InputBox函数注意事项例：输入三角形的边长，求面积。PrivateSubForm_Click()Dima!,b!,c!,s!,t!a=val(InputBox(“输入边长1:”))b=val(InputBox(“输入边长2:”))c=val(InputBox(“输入边长3:”))Ifa+b<＝cOrb+c<＝aOra+c<＝bThenPrint"不能构成三角形，请重新输入个边"EndIft=(a+b+c)/2:s=Sqr(t*(t-a)*(t-b)*(t-c))Print"该三角形的面积：";sEndSubStart:GoTostart单精度实数4.2数据的输出4.2.1Print方法4.2.2格式化输出函数4.2.3与Print方法有关的函数4.2.4与Print方法有关的属性和方法4.2.1Print方法1.调用格式[对象名称.]Print[表达式表][,|;]2.项目说明(1)对象名称：表示数据输出的位置，可以是窗体、图片框、打印机或立即窗口，“对象名称”省略时则在窗体上输出。(2)表达式：是被输出的内容，可以是数值表达式或字符表达式例1：Debug.Print“在立即窗口输出数据”例2：Print5+7(1)输出多个字符串①用逗号分隔，则按标准输出格式显示各数据，以14个字符位置为单位把一个输出行分为若干个区段（输出区），逗号后的表达式在下一个区段输出。②用分号分隔，则按紧凑格式输出数据例如：PrivateSubForm1_Click()c$=“求实创新”:d$="海纳百川"Debug.Printc$,d$'分区输出Debug.Printc$;d$'紧凑格式输出Endsub3.输出格式说明(2)输出数值在数值的左面有一个符号位，在数值的右侧有一个空格例如：PrivateSubForm1_Click()a=12:b=-3Debug.Printa;b+aDebug.Printa,b'分区输出Endsub3.输出格式说明(3)每执行一次Print方法要自动换行,除非末尾加上一个分号或逗号。(4)Print方法后面无任何表达式,表示输出一个空行；如果上一个空Print方法的末尾有逗号或分号时，则该Print语句表示结束上一个Print方法末尾的逗号或分号.例如：PrivateSubForm_Click()a$="5":b$="8"Debug.Printb,a'每执行一次Print要自动换行Debug.Printa,b,Debug.Print13'和上一个Print在同一行输出Debug.Print"下面输出一个空行"Debug.Print'输出空行Debug.Printb;a;Debug.Print'结束上一个语句末尾的逗号或分号Debug.Printb,aEndSub3.输出格式说明功能：格式化输出函数规定输出数据的格式，返回值是字符串。格式:Format(Expression,FormatSTR)说明：Expression：是要输出的内容,数值、日期或字符串类型的数；FormatSTR：是指定输出格式的格式字符串。Format()函数一般用于Print方法中。例如：PrintFormat(123.45,”###.##”)输出为:123.454.2.2格式化输出函数Format()1.数值格式化将数值表达式的值按照指定的格式输出。若小数部分的位数多于格式字符串的小数位数，按四舍五入处理。P77,表4－14.2.2格式化输出函数Format()字符作用字符作用#数值长度比指定小不在前后补0%改成百分比0数值长度比指定小在前后补0$美元格式.显示小数点-，+输出正负号，千位分隔符E+，E-指数形式数值格式化符号与作用数值格式化举例：1)printformat$(12345,”00000000”)00012345printformat$(12345,”########”)printformat$(12345,”000”)printformat$(23.45,”###.##”)2)printformat$(3.45,”000.00”)3)printformat$(12345.678,”##,###.##”)4)printformat$(12.67,”00.0%”)5)printformat$(12.67,”$###0.00”)6)printformat$(-123.45,”000.00”)printformat$(123.45,”+000.00”)7)printformat$(1234.56,”0.00E+00”)printformat$(1234.56,”0.00E-00”)123451234523.45003.4512,345.681267.0%$12.67-123.45+123.451.23E+031.23E032．日期与时间数据的格式化输出将日期和时间数据按照指定的格式输出符号作用d显示日期(1~31)，个位前不加0dd显示日期(1~31)，个位前加0ddd显示星期缩写(Sun~Sat)dddd显示星期全名(Sunday~Saturday)ddddd显示完整日期(日、月、年)w星期以数字表示(1~7，1是星期天)ww一年中的星期数(1~53)m显示月份(1~12)，个位前不加零mm显示月份(1~12)，个位前加零mmm显示月份缩写(Jan~Dec)mmmm显示月份全名(January~December)y显示一年中的天数(1~366)yy以两位数显示年份(00~99)yyyy四位数显示年份(0100~9999)q季度数(1~4)h显示小时(0~23)，个位前不加零hh显示小时(00~23)，个位前加零m在h后显示分(0~59)，个位前不加零mm显示分(00~59)，个位前加零s显示秒(0~59)，个位前不加零ss显示秒(0~59)，个位前加零a/p12小时的时钟，中午前加A/aam/pm12小时的时钟，中午前加AM/am注意：①m，mm:跟在h，hh后的时候表示分钟；否则表示月份②非格式说明符“－”、“／”、“：”等照原样输出举例：PrivateSubForm_Click()PrintFormat(Now,"yyyy-mm-dddddd")PrintFormat(Now,"ddddd")PrintFormat(Now,"yyyy-mm-ddddddhh-mm-ssam/pm")PrintFormat(Now,"ddmmmmyyyy")PrintFormat(Now,"h:mm:ss")PrintFormat(Now,"m/d/yyh:mm")EndSubP79.vbp3．字符串格式化输出符号作用<强制以小写显示>强制以大写显示@当实际字符位数小于指定输出位数时,字符串前加空格&当实际字符位数小于指定输出位数时,字符串前不加空格例如：PrivateSubForm_Click()PrintFormat(“HOWAREYOU”,"<")PrintFormat(“howareyou”,">")PrintFormat(“howareyou”,“@@@@@@@@@@@@@")PrintFormat(“howareyou”,”&&&&&&&&&&&&&”)EndsubP79_2.vbp1.Tab函数(1)函数调用格式：Tab(n)－－输出定位函数(2)函数功能：使输出定位在参数n指定的位置（列数）处。如：PrintTab(20)；“输出在第二十列”4.2.3与Print方法有关的标准函数例：PrivateSubForm_Load()Debug.Print"编号";Tab(15);"姓名";Tab(30);"专业"Debug.Print"001";Tab(16);"王玲";Tab(30);"计算机科学"Debug.Print"002";Tab(16);"李爽";Tab(30);"古代汉语"EndSubP80.vbp说明：①参数n为数值表达式，表示下一输出位置列号，如果当前的显示位置已超过n，则自动下移到下一行的这个位置输出。②当n比行宽大时，实际输出位置为nMod行宽，如果n<1，则把输出位置移到第1列。2．Spc函数(1)函数调用格式：Spc(n)(2)函数功能：用在Print方法中，其作用表示输出n个空格。说明：①参数n是一个数值表达式，其取值范围为0～32767的整数，②函数Tab(n)和Spc(n)间的区别：Tab(n)的作用表示使被输出的内容输出到第n列（从对象的左端开始计算）的位置处。而Space(n)表示两个输出项间空n格。1.ScaleWidth和ScaleHeight属性功能：设置或返回对象的宽度和高度。使用格式：[对象名.]ScaleHeight[=value][对象名.]ScaleWidth[=value]说明：①对象名可以是窗体名、图片框名或打印机对象（Printer），如果省略对象名时，表示当前窗体。②只能在程序代码中使用，不能在设计界面时设定其值。③若省略“=Value”，则表示返回当前对象的宽度和高度。4.2.4与Print方法有关的属性和方法2.CurrentX和CurrentY属性功能：设置或返回在对象上的输出位置坐标。使用格式：[对象名.]CurrentX[=x][对象名.]CurrentY[=y]①“对象名”是窗体、图片框或打印机对象（Printer），如果省略对象名，则表示当前窗体。②只能在程序代码中使用。③坐标是各对象以其自己的左上角为参考点的坐标。PrivateSubForm_Click()Print"当前坐标为(";Form1.CurrentX;",";Form1.CurrentY;")"CurrentX=1000CurrentY=800Print"当前坐标为(";Form1.CurrentX;",";Form1.CurrentY;")"CurrentX=ScaleWidth/2CurrentY=ScaleHeight/2Picture1.Print“当前坐标为(";Form1.CurrentX;",";_Form1.CurrentY;")"Picture1.Print"当前坐标为(";Picture1.CurrentX;",";_Picture1.CurrentY;")"Picture1.Print"Iloveyou"Picture1.CurrentX=1000Picture1.CurrentY=500Picture1.Print"HOWAREYOU"EndSubexam4_5’.vbp3.TextHeight和TextWidth方法功能：返回一个文本字符串的高度和宽度值。调用格式：[对象名．]TextHeight（字符串）[对象名．]TextWidth（字符串）说明：“对象名”为窗体、图片框或打印机对象例4.6p84[对象.]Height[=高度值][对象.]Width[=宽度值][对象.]Left[=距左边距离][对象.]Top[=距顶边距离]（修正课本）topleftheighwidth4.Height、Width、Top及Left属性设置对象的大小（Height、Width）以及在容器（如窗体）中的位置（Top、Left）。(1)对窗体对象来说，Left、top属性是与屏幕的相对位置；（2.3.2,p19）对控件对象来说，Left、top属性是与窗体的相对位置。(2)屏幕对象Screen只有Height和Width两个属性，且是只读的。Screen.Width为屏幕的宽度，而Screen.Height为屏幕的高度例4.7将窗体的大小设置为屏幕大小的50%，并使窗体居中。PrivateSubForm_Click()Width=Screen.Width*0.5‘设置窗体的宽度Height=Screen.Height*0.5‘设置窗体的高度Left=(Screen.Width-Width)/2Top=(Screen.Height-Height)/2EndSubexam4_7.vbp5.Cls方法功能：清除窗体或图片框中由Print方法和图形方法生成的文本或图形。.调用格式：[对象名．]Cls6.Move方法功能：用来移动窗体或控件，并可改变其大小。格式：[对象．]Move左边距离[，上边距离][，宽度][，高度]说明：“对象”可以是窗体及除计数器（Timer）、菜单（Menu）外的所有控件。如果省略“对象”，则表示要移动的是窗体。例4.8图形起始点移到窗体的中心，同时图形框缩小50%。PrivateSubForm_Load()Image1.Top=0Image1.Left=0Image1.Picture=LoadPicture(App.Path+"\诱人的水果小2.jpg")EndSubPrivateSubImage1_Click()Image1.MoveForm1.ScaleWidth/2,Form1.ScaleHeight/2,_Image1.Width/2,Image1.Height/2EndSub（修改课本）exam4_8.vbp4.3MsgBox函数和过程MsgBox函数的功能是在一个对话框中显示消息，等待用户单击按钮，并返回一个整型数据。MsgBox过程与MsgBox函数的功能相同，只是它没有返回值。一、调用的语法格式函数调用：[Variable=]MsgBox(Prompt[,Buttons][,Title])过程调用：MsgBoxPrompt[,Buttons][,Title]1)Variable：变量，用于接收MsgBox函数的返回值。2)Prompt，Title：“提示”和“标题”。3)Buttons：按钮样式，为一整形表达式，最多可以由4项数值相加。<按钮数目及样式>[+<图标类型>][+<默认按钮>][+<模式>]一、调用的语法格式3)Buttons：按钮样式，为一整形表达式，最多可以由4项数值相加。<按钮数目及样式>[+<图标类型>][+<默认按钮>][+<模式>]标题图标提示按钮组别内部常数数值描述按钮数目以及样式vbOKOnly0只显示“确定”按钮vbOKCancel1显示“确定”和“取消”按钮vbAbortRetryIgnore2显示“终止”、“重试”和“忽略”按钮vbYesNoCancel3显示“是”、“否”和“忽略”按钮vbYesNo4显示“是”和“否”按钮vbRetryCancel5显示“重试”和“取消”按钮组别内部常数数值描述图标类型vbCritical16危急信息图标vbQuestion32询问图标VbExclamation64惊叹信息图标默认按钮vbDefaultButton10第一个按钮为缺省值vbDefaultButton2256第二个按钮为缺省值vbDefaultButton3512第三个按钮为缺省值vbDefaultButton4768第四个按钮为缺省值二、MsgBox函数的返回值内部常数数值被单击的按钮vbOK1确定vbCancel2取消vbAbort3终止vbRetry4重试vbIgnore5忽略vbYes6是vbNo7否例4.9：设计一，运行程序时，单击窗体产生一个MsgBox对话框。根据用户的不同选择，分别作退出或继续操作PrivateSubForm_Click()Tile$=“警告“‘标题Prompt$=“退出程序吗？“‘提示信息result=MsgBox(Prompt,vbYesNo+vbDefaultButton1+vbQuestion,Tile)Ifresult=6Then‘如果单击了“Y”EndElse:Print"继续！"‘如果单击了“N”EndIfEndSubExam4_9.vbp一、字形控制属性）1.字体类型（FontName）[窗体名.][控件名.]|Printer.FontName[=“字体类型名”]FontName可作为窗体、控件或打印机的属性。例如：FontName="宋体"FontName="TimesNewRoman"Textl.FontName=“隶书”2.字体大小（FontSize）[窗体名.[控件名.]|Printer.FontSize[=点数]3.字体修饰属性4.4字形与颜色控制3.字体修饰属性(1)粗体属性FontBold[窗体名.][控件名.]|Printer.FontBold[=布尔值](2)斜体属性FontItalic(3)加删除线FontStrikethru(4)加下划线FontUnderline(5)重叠显示属性FontTransparent二、颜色控制1.使用RGB函数功能：返回一个Long整数，用来表示一个RGB颜色值。格式：RGB(Red,Green,Blue)说明：参数Red、Green、Blue为三种颜色的亮度值，取值为0～255。例如：Form1.ForeColor=RGB(255,0,0)‘设定前景为红色Form1.BackColor=RGB(0,0,255)‘设定背景为蓝色2.使用QBColor函数功能：返回一个Long值，用来表示一个RGB颜色值。格式：QBColor(Color)说明：参数Color：0~15，共代表16种颜色。表4-6p93例如：Form1.ForeColor=QBColor(12)Form1.BackColor=QBColor(9)3.使用系统定义的颜色常数vbRed、vbGreen、vbBlack、vbYellow、vbBlue等。表4-7,P93例如：Form1.ForeColor=vbRedForm1.BackColor=vbBlue4.直接使用颜色设置值用十六进制指定颜色的格式为：＆HBBGGRR例如：Form1.ForeColor=＆H0000FFForml．BackColor=＆HFF0000例4.13使用QBColor函数，输出16种不同颜色的文字PrivateSubform_Click()FontSize=16FontBold=TrueFori=0To15Form1.ForeColor=QBColor(i)Form1.Print“梅花香自苦寒来”NextiEndSubExam4_13.vbp▲4.5用打印机输出数据一、利用Printer对象直接输出到打印机1.Printer对象的Print方法Printer.Print[表达式表]2.与Printer对象有关的属性和方法(1)Page属性作用：用于设置打印的页号。使用格式：Printer.Page例：Printter.Print“页号：”；Printer.Page(2)NewPage方法作用：实现换页操作。使用格式：Printer.NewPage(3)EndDoc方法作用：结束数据的打印使用格式：Printer.EndDoc例4.14写一程序向打印机输出文本。Exam4_14.vbpPrivateSubForm_Click()FontName="黑体"FontSize=28Printer.Print"欢迎使用VisualBasic！"Printer.Print"正在进行打印输出！"Printer.Print"打印测试完毕"Printer.PrintPrinter.Page‘使用属性PagePrinter.NewPage‘调用方法NewPagePrinter.Print"这是第";Printer.Page;"页"Printer.EndDoc‘使用属性EndDocEndSub二、利用窗体的PrintForm方法间接向打印机输出格式：[窗体名.]PrintForm作用：把窗体上的内容打印出来。说明：用PrintForm方法不仅可打印窗体上的文本，也可以打印出窗体上的任何可见控件及图形信息利用窗体打印输出时，必须将该窗体的“AutoRedraw”属性设置为True（该属性的默认值为False）例4.15Exam4_15.vbp图a屏幕上的窗体图b打印输出内容