数据的输入输出方式.ppt

《数据的输入输出方式.ppt》由会员分享，可在线阅读，更多相关《数据的输入输出方式.ppt（17页珍藏版）》请在三一办公上搜索。

1、第四章数据的输入输出方式,一、print方法,Print是输出数据、文本的一个重要方法。.格式窗体名称.Print,|;.表达式：数据值或字符串Print:输出一个空行。多表达式用分隔符分开。使用分号(;)直接将插入点定位在上一个被显示的字符之后。使用逗号（,）将在上一个被显示的字符后间隔一个制表位的位置上输出,.与Print方法相关的函数,Tab函数Tab函数与Print方法一起使用，在指定位置输出表达式的值。格式：Tab(n)n可选，输出起始列数。没有n则移到下一个输出区的起点。注意：使用函数时一定用；号与其它隔开当N的位置有文字时，将在下一行输入,Spc函数跳过N个空格，对输出进行定位。

2、格式：Spc(n)n为整形数值，输出之前插入的空格数。与Tab不同，Spc与两个输出项之间的间隔。Tab从左端。Print“a+b”;spc(n);a+b,二、Format函数,可使数据或日期按指定格式输出。格式：Format(，)参数说明：格式字符串是一个串常量或串变量，由专门的格式说明字符组成，这些字符决定了数据项的显示格式和长度。,格式字符串,表示一个数字位。的个数决定了显示串的长度。如果显示的数据位数小于格式字符串的长度，则数据在指定区段内左对齐，多余位不补0。如果显示的数据位数大于格式字符串指定的长度，则数据值照原样显示。0与的功能相同，只是多余位要用0补齐,.表示显示小数点。小数点

3、与或0结合使用，可以放在格式字符串的任何位置。根据格式串，小数部分多余的数字按四舍五入显示。，在格式字符串中插入逗号，起到“分位”作用，逗号可以放在小数点前的任何位置，但不能放在串首部。,%通常放在格式字符串的尾部，用来输出百分数$通常作为格式字符串的起始字符。、放在格式字符串的首部，为输出数据添加正负号。,Format例子,MyStr=Format(5459.4,#,#0.00)MyStr=Format(334.9,#0.00)MyStr=Format(5,0.00%)MyStr=Format(HELLO,),MyStr=Format(23)如果没有指定格式，则返回字符串。Dim MyTim

4、e,MyDate,MyStr MyTime=#17:04:23#MyDate=#January 27,1993#MyStr=Format(Time,Long Time)MyStr=Format(Date,Long Date)MyStr=Format(MyTime,h:m:s)MyStr=Format(MyTime,hh:mm:ss AMPM)MyStr=Format(MyDate,dddd,mmm d yyyy)MyStr=Format(MyDate,dd,mm dd yyyy),三、MsgBox函数,接收用户输入信息的函数。它在对话框中消息，等待用户简单的选择，并返回一个整型值。格式：Msg

5、Box(,)msg消息type：VBOKOnly、VBOKCancel、VBYesNoCancel、VBYesNo等等。Title在标题栏中的显示。,Button参数值,vbOKOnly0只显示 OK 按钮。VbOKCancel1显示 OK 及 Cancel 按钮。VbAbortRetryIgnore2显示 Abort、Retry 及 Ignore 按钮。VbYesNoCancel3显示 Yes、No 及 Cancel 按钮。VbYesNo4显示 Yes 及 No 按钮。VbRetryCancel5显示 Retry 及 Cancel 按钮。VbCritical16显示 Critical Mes

6、sage 图标。VbQuestion32显示 Warning Query 图标。VbExclamation48显示 Warning Message 图标。VbInformation64显示 Information Message 图标。vbDefaultButton10第一个按钮是缺省值。vbDefaultButton2256第二个按钮是缺省值。vbDefaultButton3512第三个按钮是缺省值。vbDefaultButton4768第四个按钮是缺省值。,MsgBox函数的返回值,Msgbox实例,Msg=Do you want to continue?Style=vbYesNo+vbI

7、nformation+vbDefaultButton2 Title=MsgBox Demonstration Msgbox msg,style,titleRutnum=msgbox(msg,sytle,title),Dim Msg,Style,Title,Help,Ctxt,Response,MyString Msg=Do you want to continue?Style=vbYesNo+vbCritical+vbDefaultButton2 Title=MsgBox Demonstration Help=DEMO.HLP Ctxt=1000 Response=MsgBox(Msg,Sty

8、le,Title,Help,Ctxt)If Response=vbYes Then MyString=Yes Else MyString=No End If,四、InputBox函数,InputBox是提供从键盘输入数据的函数。利用它产生一个对话框，提示用户输入数据或单击命令按钮。该函数返回值是一个字符串（String类型）格式：InputBox(msg,title,default,xpos,ypos)Msg：提示消息，若有多行，用回车符chr(13)或换行符chr(10)来分隔。Title：标题框显示。每执行一次InputBox只能输入一个数据，可放入循环可使用。,实例,Retnum=InputBox(enter+Chr(10)+number),