第5章 数据的输入输出

第5章数据的输入输出 本章主要介绍窗体的输入输出操作，包括Print方法、InputBox函数、MsgBox函数和MsgBox语句。5.1数据输出—Print方法

计算机通过输入操作接收数据，然后对数据进行处理，并将处理完的数据以完整有效的方式提供给用户，即输出。

5.1.1Print方法 在早期版本的BASIC语言中，数据的输出主要通过Print语句来实现。在VB中Print是作为对象的方法来使用的。1.使用Print方法

使用Print方法可以在窗体上输出文本字符串或表达式的值，其语法格式为：

[〈对象名称〉.]Print[〈表达式列表〉][{,|;}]1)〈对象名称〉可以是窗体（Form）、图片框（PictureBox）或打印机（Printer）,也可以是立即窗口（Debug）。如果省略“对象名称”，则在窗体上直接输出。

2)〈表达式列表〉是一个或多个表达式，可以是数值表达式或字符串。对于数值表达式，将输出表达式的值；对于字符串，则照原样输出。如果省略“表达式列表”，则输出一个空行。3）{,|;}分隔符，当输出多个表达式或字符串时，各表达式用分隔符（逗号、分号或空格）隔开。 如果使用逗号分隔，则按标准输出格式（分区输出格式）显示数据项；以14个字符位置为单位把一个输出行分为若干个区段。 如果使用分号或空格分隔，则按紧凑输出格式输出数据。例：x=5:y=10:z=15Printx,y,z,"ABCD"PrintPrintx,y,z;"ABCD";"EFGH"4）Print方法具有计算和输出双重功能，对于表达式，先计算后输出；但没有赋值功能。例： x=5:y=10 Print(x+y)/3例：

x=5:y=10Printz=(x+y)/35）当在Print语句末尾添加一个分号或逗号，则可在同一行上显示信息。 如果使用分号，则下一条Print输出内容将紧跟其后显示。 如果使用逗号，则下一条Print输出内容将在同一行的下一个显示区段显示信息。例：Print"30+50=", Print30+50 Print"80+100="; Print80+1005.1.2与Print方法有关的函数

为了使数据按指定的位置输出，VB提供了几个与Print相配合的函数。

(1)Tab函数

格式为：Tab(n)

Tab函数把光标移到由参数n指定的位置，从这个位置开始输出信息。要输出的内容放在Tab函数后面，并用分号隔开。例如：PrintTab(10);"姓名";Tab(30);"年龄"注意：其中n为数值表达式，其值为一整数，它是下一个输出位置的列号。 通常最左边的列号为1，如果当前的显示位置已经超过n，则自动下移一行。 如果n比行宽大时，则显示位置为nmod行宽； 如果n<1，则把输出位置移到第一列。 当在一个Print方法中有多个Tab函数时，则每个Tab函数对应一个输出项，各输出项之间用分号隔开。

(2)Spc函数 在Print的输出中，用Spc函数可以跳过n个空格。其格式为：

Spc(n

)

其中n为数值表达式，其值为一整数，表示在下一个表达式之前插入的空格数。Spc函数与输出项之间用分号隔开。例如：

Print"ABC";Spc(5);"DEF" '输出：ABCDFE

与Tab函数不同之处是：Tab函数从对象的左端开始计数，而Spc函数只表示两个输出项之间的间隔。5.1.3格式输出Format$函数可以使数值或日期按指定的格式输出。格式为：Format$（数值表达式，格式字符串）功能是：按“格式字符串”指定的格式输出“数值表达式”的值。字符作用#表示一个数字位，#的个数决定了显示区段的长度；不在前面或后面补0。例如：PrintFormat（12345,“########”）PrintFormat（12345,“###”）0与#功能相同，只是在多余的位以0补齐。例如：PrintFormat（12345,“00000000”）.显示小数点；小数点与#或0结合使用，可以放在显示区段的任何位置。小数部分多余的数字按四舍五入处理。例如：PrintFormat（123.45,“#####.###”）PrintFormat（123.4567,“00.00”）字符作用,千位分隔符,即从小数点左边一位开始，每3位用一个逗号分开。注意：逗号可以放在小数点左边的任何位置，但不能放在头部，或紧靠小数点。例如：PrintFormat（12345.67，“###,#.##”）%百分比符号，通常放在格式字符串的尾部，用来输出百分号。例如：PrintFormat（0.123，“00.0%”）$美元符号，通常作为格式字符串的起始字符。例如：PrintFormat（123.456，“$$00##.00”）字符作用-、+负、正号，通常放在格式字符串的头部。例如：PrintFormat（123.45，“-##0.00”）PrintFormat（123.45，“+##0.00”）E+、E-指数符号，用指数形式显示数值。例如：PrintFormat（456.789，“0.00E+00”）PrintFormat（456.789，“0.00E-00”）PrintFormat（0.0456789，“0.00E+00”）PrintFormat（0.0456789，“0.00E-00”）PrintFormat(12345.6,”000,000.00”)PrintFormat(12345.678,”###,###.##”)PrintFormat(12345.6,”###,##0.00”)PrintFormat(12345.6,”$###,#0.00”)PrintFormat(12345.6,”-###,##0.00”)PrintFormat(.123,”0.00%”)PrintFormat(12345.6,”0.00E+00”)PrintFormat(.1234567,”0.00E-00”)012,345.6012,345.6812,345.60$12,345.60-12,345.6012.30%1.23E+041.23E-015.1.4其他方法和属性1、Cls方法格式：[对象.]Cls功能：清除由Print方法显示的文本或在图片框中显示的图形，并把光标移到对象的左上角（0，0）。注意：“对象”指的是窗体或图片框，如果省略则清除当前窗体内的显示内容。当窗体的背景是用picture属性装入的图形时，不能用Cls方法清除。2、Move方法格式：[对象.]Move左边距离[，上边距离[，宽度[，高度]]]功能：移动窗体和控件，并可改变其大小。屏幕窗体控件上边距离上边距离左边距离左边距离高度高度宽度宽度3、TextHeight和TextWidth方法格式：[对象名称.]TextHeight(字符串) [对象名称.]TextWidth(字符串)

其中，对象名称可以是窗体、图片框或打印机对象。

TextHeight和TextWidth方法则分别可以返回一个字符串文本的高度值和宽度值。其单位均为Twip。

CurrentX和CurrentY属性分别用来返回或设置当前输出位置的横坐标与纵坐标，5.2数据输入—InputBox函数

InputBox函数产生一个对话框，这个对话框作为输入数据的界面，等待用户输入数据，并返回所输入的内容。其语法格式为：

InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])说明：1)<信息内容>指定在对话框中出现的文本。在<信息内容>中使用硬回车符（CHR(13)）可以使文本换行。对话框的高度和宽度随着<信息内容>而增加，最多可有1024个字符。2)<对话框标题>指定对话框的标题。3)<默认内容>可以指定输入框的文本框中显示的默认文本。如果用户单击“确定”按钮，文本框中的文本（字符串）将返回到变量中；若用户单击“取消”按钮，返回的将是一个零长度的字符串。注意：如果省略了某些可选项，必须加入相应的逗号分隔符。例5.6PrivateSubForm_Click()c1$=Chr$(13)+Chr$(10)msg1$="输入顾客名字:"msg2$="输入后按回车键"msg3$="或单击“确定”按钮"""

msg$=msg1$+cl$+msg2$+cl$+msg3$

custname$=InputBox(msg$,"inputboxfunctiondemo","王大力")Printcustname$EndSub例5.7PrivateSubForm_Click() msg1$="请输入姓名:"

msgtitle$="学生情况登记" msg2$="请输入年龄:" msg3$="请输入性别:" msg4$="请输入籍贯:"

studname$=InputBox(msg1$,msgtitle$)

studage=InputBox(msg2$,msgtitle$)

studsex$=InputBox(msg3$,msgtitle$)

studhome$=InputBox(msg4$,msgtitle$)

Cls Printstudname$;",";studsex$;",现年"; Printstudage;"岁";",";studhome$;"人"EndSub编程题： 从键盘上输出4个数，编写程序，计算并输出这4个数的和及平均值。通过InputBox函数输入数据，在窗体上显示和及平均值。注意：在默认情况下，InputBox函数的返回值是一个字符串。5.3MsgBox函数和MsgBox语句5.3.1MsgBox函数

MsgBox函数在对话框中显示信息，等待用户单击按钮，并返回一个整数以标明用户单击了哪个按钮。其语法格式为：

MsgBox(msg[,type][,〈title〉][,helpfile,context])(1)msg:是一个字符串，指定在对话框中出现的文本，在信息内容中使用硬回车符（CHR(13)）可以使文本换行。对话框的高度和宽度随着信息内容的增加而增加，最多可有1024个字符。(2)Type:是一个整数值或符号常量，用来控制对话框内显示的按钮、图标的种类及数量，一般由3类数值决定。值符号常量作用0vbOKOnly“确定”按钮1vbOKCancel“确定”和“取消”按钮2vbAbortRetryIgnore“终止”、“重试”和“忽略”按钮3vbYesNoCancel“是”、“否”和“取消”按钮4vbYesNo“是”和“否”按钮5vbRetryCancel“重试”和“取消”按钮表1值常量说明0vbDefaultButton1 指定默认按钮为第一按钮256vbDefaultButton2指定默认按钮为第二按钮512vbDefaultButton3指定默认按钮为第三按钮768vbDefaultButton4指定默认按钮为第四按钮值常量说明16vbCritical停止图标32vbQuestion问号（？）图标48vbExclamation感叹号（！）图标64vbInformation信息图标表2表3Type参数由以上4类数值组成，其组成原理是：从每一类中选择一个值，把这几个值加在一起就是Type参数的值，不同的组合会得到不同的结果。(3)title:是一个字符串，用来显示对话框的标题。例：msg$=MsgBox("Msg:显示内容",0+16+0,"Title:标题")MsgBox("Msg:显示内容",3+48+0,"Title:标题")MsgBox("Msg:显示内容",3+32+2,"Title:标题")MsgBox("Msg:显示内容",34,"Title:标题")MsgBox("Msg:显示内容",19,"Title:标题")MsgBox函数的返回值是一个整数，这个整数与所选择的按钮有关。返回值操作符号常量1选“确定”按钮vbOk2选“取消”按钮vbCancel3选“终止”按钮vbAbort4选“重试”按钮vbRetry5选“忽略”按钮vbIgnore6选“是”按钮vbYes7选“否”按钮vbNo例5.8PrivateSubForm_Click()msg1$="Areyoucontinueto?"msg2$="OperationDialogBox"r=MsgBox(msg1$,34,msg2$)PrintrEndSub例5.9PrivateSubForm_