数据的输入输出方式.ppt

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

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

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

4、yStr = Format(23) 如果没有指定格式，则返回字符串。 Dim MyTime, 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(MyD

5、ate, dd,mm dd yyyy),三、MsgBox函数,接收用户输入信息的函数。它在对话框中消息，等待用户简单的选择，并返回一个整型值。 格式：MsgBox(,) msg消息type：VBOKOnly、VBOKCancel、VBYesNoCancel、VBYesNo等等。Title在标题栏中的显示。,Button参数值,vbOKOnly0只显示 OK 按钮。 VbOKCancel1显示 OK 及 Cancel 按钮。VbAbortRetryIgnore2显示 Abort、Retry 及 Ignore 按钮。 VbYesNoCancel3显示 Yes、No 及 Cancel 按钮。VbYe

6、sNo4显示 Yes 及 No 按钮。 VbRetryCancel5显示 Retry 及 Cancel 按钮。 VbCritical16显示 Critical Message 图标。 VbQuestion32显示 Warning Query 图标。 VbExclamation48显示 Warning Message 图标。 VbInformation64显示 Information Message 图标。 vbDefaultButton10第一个按钮是缺省值。 vbDefaultButton2256第二个按钮是缺省值。 vbDefaultButton3512第三个按钮是缺省值。 vbDefau

7、ltButton4768第四个按钮是缺省值。,MsgBox函数的返回值,Msgbox实例,Msg = Do you want to continue ? Style = vbYesNo + vbInformation + vbDefaultButton2 Title = MsgBox Demonstration Msgbox msg,style,title Rutnum=msgbox(msg,sytle,title),Dim Msg, Style, Title, Help, Ctxt, Response, MyString Msg = Do you want to continue ? Sty

8、le = vbYesNo + vbCritical + vbDefaultButton2 Title = MsgBox Demonstration Help = DEMO.HLP Ctxt = 1000 Response = MsgBox(Msg, Style, Title, Help, Ctxt) If Response = vbYes Then MyString = Yes Else MyString = No End If,四、InputBox函数,InputBox是提供从键盘输入数据的函数。利用它产生一个对话框，提示用户输入数据或单击命令按钮。该函数返回值是一个字符串（String类型） 格式：InputBox(msg,title,default,xpos,ypos) M