数据的输入输出方式.ppt

《数据的输入输出方式.ppt》由会员分享，可在线阅读，更多相关《数据的输入输出方式.ppt（17页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

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

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

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

4、0%)w MyStr=Format(HELLO,)w MyStr=Format(23)w 如果没有指定格式，则返回字符串。w Dim MyTime,MyDate,MyStr w MyTime=#17:04:23#w MyDate=#January 27,1993#w MyStr=Format(Time,Long Time)w MyStr=Format(Date,Long Date)w MyStr=Format(MyTime,h:m:s)w MyStr=Format(MyTime,hh:mm:ss AMPM)w MyStr=Format(MyDate,dddd,mmm d yyyy)w MySt

5、r=Format(MyDate,dd,mm dd yyyy)三、MsgBox 函数w 接收用户输入信息的函数。它在对话框中消息，等待用户简单的选择，并返回一个整型值。w 格式：MsgBox(,)msg 消息type：VBOKOnly、VBOKCancel、VBYesNoCancel、VBYesNo 等等。Title 在标题栏中的显示。Button 参数值w vbOKOnly 0 只显示 OK 按钮。w VbOKCancel 1 显示 OK 及 Cancel 按钮。VbAbortRetryIgnore 2 显示 Abort、Retry 及 Ignore 按钮。w VbYesNoCancel 3

6、显示 Yes、No 及 Cancel 按钮。VbYesNo4 显示 Yes 及 No 按钮。w VbRetryCancel 5 显示 Retry 及 Cancel 按钮。w VbCritical 16 显示 Critical Message 图标。w VbQuestion 32 显示 Warning Query 图标。w VbExclamation 48 显示 Warning Message 图标。w VbInformation 64 显示 Information Message 图标。w vbDefaultButton1 0 第一个按钮是缺省值。w vbDefaultButton2 256

7、第二个按钮是缺省值。w vbDefaultButton3 512 第三个按钮是缺省值。w vbDefaultButton4 768 第四个按钮是缺省值。MsgBox 函数的返回值 Msgbox 实例w Msg=Do you want to continue?w Style=vbYesNo+vbInformation+vbDefaultButton2 w Title=MsgBox Demonstration w Msgbox msg,style,titlew Rutnum=msgbox(msg,sytle,title)w Dim Msg,Style,Title,Help,Ctxt,Respons

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