《数据输入和输出》由会员分享，可在线阅读，更多相关《数据输入和输出（21页珍藏版）》请在金锄头文库上搜索。
1、数据输入和输出除界面外,程序通常可分为三部分,即:输入、处理、输出.VisualBasic提供了多种手段来进行输入和输出,如:利用各种控件来进行输入和输出操作.使得输入和输出灵活、多样、方便、形象直观。计算机通过输入操作接受数据，然后对数据进行处理，并将处理完的数据以完整有效的方式提供给用户，即输出。本章主要介绍窗体的输入和输出.数据的输出-Print方法功能：Print方法可以在窗体上显示文本字符串和表达式的值，并可以在其它图形对象或打印机上输出信息。其中表达式可以是数值表达式或字符串表达式。语法格式：对象名称.Print表达式列表,|;说明：对象：指窗体、图片框、打印机、立即窗口；5.1.
2、2.与Print方法有关的函数与Print相配合的函数：（1）Tab函数功能：与Print#语句或Print方法一起使用，对输出进行定位。格式：Tab(n)（2）Spc函数功能：在显示或打印列表中的下一个表达式之前插入n个空格,其中:n为032767之间的整数。Spc函数与输出项之间须用分号隔开。格式：Spc(n)5.1.3.格式输出利用Format$函数可以按指定格式输出数据.Format函数的格式：Format$(数值表达式，格式字符串)功能：按“格式字符串”指定格式输出“数值表达式”的值5.1.4.其它与输出相关的方法和属性清除方法CLS功能：Cls清除由Print方法打印的文本或图片框
3、中的图形。格式：对象名称.Cls5.2数据输入InputBox函数功能：产生一对话框，这个对话框作为输入数据的界面，等待用户输入正文或按下按钮，并返回输入的内容。语法格式：变量=InputBox(,)说明：各个参数的含义InputBox函数的执行过程函数值的默认类型为String类型用InputBox输入数值数据时，需要用Val函数或在输入变量后加类型说明符(或在使用前给出类型说明语句)一个InputBox函数只能输入一个数据输入的数据需要赋给变量，否则不能保存该函数有7个参数，其含义如下：（1）Prompt:是一个字符串，其长度不超过1024个字符，它是对话框内显示的信息，用来提示用户的输入
4、。在对话框内显示Prompt时，可以自动换行。若要按自己的要求换行，须插入回车换行操作。即：Chr$(13)+Chr$(10)（2）Title:字符串，它是对话框的标题，显示在对话框顶部的标题区。（3）Default：字符串，用来显示输入缓冲区的默认信息。在执行InputBox函数后，若用户没有输入任何信息，则可用此默认字符串作为输入值。也可以在输入区直接键入数据取代默认值。若省略该参数，则对话框的输入区为空白，等待用户输入信息。详见P95图5.9（4）xpos,ypos：是两个整数值，分别用来确定对话框与屏幕的左边距和上边距，这两个参数必须同时给出或全部省略。若省略这对位置参数，则对话框显示
5、在屏幕中心线下约1/3处。（5）Helpfile,context：Helpfile是一个字符串变量或字符串表达式，表示帮助文件；context是一个数值变量或数值表达式，表示帮助文件的相关目录号。在使用InputBox函数时, 应注意以下几点: 执行InputBox函数后, 产生一个对话框, 提示用户输入数据, 光标位于对话框底部的输入区中. 如果第三个参数(default)不省略, 则在输入区中显示该参数的值, 此时如果按回车键或单击对话框中的 “确定”按钮, 则输入该默认值, 并可把它赋给一个变量; 如果不想输入默认值, 则可直接键入所需要的数据, 然后按回车键或单击“确定”按钮输入. 在
6、默认情况下, InputBox的返回值是一个字符串(不是变体类型). 也就是说, 如果没有事先声明返回值变量的类型(或声明为变体类型), 则当把该函数的返回值赋给这个变量时, Visual Basic总是把它作为字符串来处理. 因此, 当需要用InputBox函数输入数值, 并且需要输入的数值参加运算时, 必须在进行运算前用Val函数(或其他转换函数)把它转换为相应类型的数值, 否则有可能会得到不正确的结果. 如果正确地声明了返回值的变量类型(或者加了类型说明符), 则可不必进行类型转换. 在执行InputBox函数所产生的对话框中, 有两个按钮, 一个是 “确定”, 另一个是 “取消”. 在
7、输入区输入数据后, 单击 “确定” 按钮(或按回车键)表示确认, 并返回在输入区中输入的数据; 而如果单击“取消” 按钮(或按Esc键), 则使当前的输入作废, 在这种情况下, 将返回一个空字符串. 每执行一次InputBox函数只能输入一个值, 如果需要输入多个值, 则必须多次调用InputBox函数. 输入数据并按回车键或单击 “确定”后, 对话框消失, 输入的数据必须作为函数的返回值赋给一个变量, 否则输入的数据不能保留. 在实际应用中, 函数InputBox通常与循环语句、数组结合使用, 这样可以连续输入多个值, 并把输入的数据赋给数组中各元素. 和其他返回字符串的函数一样, Inpu
8、tBox函数也可以写成InputBox$的形式, 两种形式完全等价.5.3MsgBox函数和MsgBox语句功能：产生一对话框显示信息，等待用户单击按钮进行选择，根据用户选择确定程序其后的操作。MsgBox函数格式：变量=MsgBox(,)MsgBox语句格式：MsgBox,说明：各个参数的含义(*参数Type)参数：整型表达式，指定显示按钮的数目及形式，使用的图标类型，缺省按钮的种类以及消息框的强制回应等。如果省略，则的缺省值为0。 5.3.1 MsgBox函数 MsgBox函数的格式如下:MsgBox(msg,type,title,helpfile,context 该函数有5个参数, 除第
9、一个参数外, 其余参数都是可选的. 每个参数的含义如下 msg: 是一个字符串, 其长度不能超过1024个字符, 如果超过, 则多余的字符被截掉. 该字符串的内容将在由MsgBox函数产生的对话框内显示. 当字符串在一行内显示不完时, 将自动换行, 当然也可以用 “Chr$( 13 )+Chr$( 10 )” 强制换行. type: 是一个整数值或符号常量, 用来控制在对话框内显示的按钮、图标的种类及数量. 该参数的值由4类数值相加产生, 这4类数值或符号常量分别表示按钮的类型、显示图标的种类、活动按钮的位置及强制返回, 见表5.2函数返回值表示用户所选择的按钮，作为继续执行程序的依据提示字符
10、串可以自动换行，若须强行换行，可用代码Chr$(13)+Chr$(10)表5-3MsgBox函数的返回值系统常数返回值描述VbOK1确定VbCancel2取消VbAbort3终止VbRetry4重试VbIgnore5忽略VbYes6是VbNo7否 说明: MsgBox函数第二个参数的第三类数值用来确定默认活动按钮. 当某个按钮为活动按钮时, 其内部的文字周围有一个虚线框(参见图5.12). 如果按回车键, 则选择的是活动按钮, 与单击该按钮作用相同. 用Tab键可以把其他按钮变为活动按钮, 每按一次Tab键, 变换一个活动按钮. 此外, 不管是否是活动按钮, 用鼠标(单击)都可以选择该按钮.
11、用MsgBox函数显示的提示信息最多不超过1024个字节, 所显示的信息自动换行, 并能自动调整信息框的大小. 如果由于格式要求需要换行, 则必须增加回车换行代码. 在应用程序中, MsgBox函数的返回值通常用来作为继续执行程序的依据, 根据该返回值决定其后的操作. 看下面的例子. 5.3.2 MsgBox语句 MsgBox函数也可以写成语句形式, 即:MsgBox Msg$,type%,title$,help,context各参数的含义及作用与MsgBox函数相同, 由于MsgBox语句没有返回值, 因而常用于较简单的信息显示. 例如:MsgBox “工程保存成功”执行上面的语句, 显示的
12、信息框如图5.14所示. 图5.14 简单信息框 由MsgBox函数或MsgBox语句所显示的信息框有一个共同的特点, 就是在出现信息框后, 必须作出选择, 即单击框中的某个按钮或按回车键, 否则不能执行其他任何操作. 在Visual Basic中, 把这样的窗口(对话框)称为 “模态窗口”(Modal Window), 这种窗口在Windows中普遍使用. 在程序运行时, 模态窗口挂起应用程序中其他窗口的操作. 一般来说, 当屏幕上出现一个窗口(或对话框)时, 如果需要在响应该窗口中的提示后才能进行其后的操作, 则应使用模态窗口. 与模态窗口相反, 非模态窗口(Modaless Window
13、)允许对屏幕上的其他窗口进行操作, 也就是说, 可以激活其他窗口, 并把光标移到该窗口. MsgBox函数和MsgBox语句强制所显示的信息框为模态窗口. 在多窗体程序中, 可以把某个窗体设置为模态窗口.5.4字形除字体类型和大小外，Visual Basic还提供了其他一些属性，使文字的输出丰富多彩. 字体类型：对象.FontName=“字体类型”字体大小：对象.FontSize=点数粗体字： 对象.FontBold=BooleanFontBold属性值为True时，文本以粗体字输出，否则按正常字输出。该属性的默认值为False。斜体字： 对象.FontItalic=BooleanFontIt
14、alic属性值为True时，文本以斜体字输出，否则按正常字输出。该属性的默认值为False。加删除线： 对象.FontStrikethru=BooleanFontStrikethru属性值为True时，则可在输出的文本中部画一条直线，直线的长度与文本的长度相同，该属性的默认值为False。加下划线： 对象.FontUnderline=BooleanFontUnderline属性值为True时，则可使输出的文本加下划线，该属性的默认值为False。重叠显示： 对象.FontTransParent=Boolean当以图形或文本作为背景显示新的信息时，有时候需要保留原来的背景，使新显示的信息与背景重
15、叠，这可以通过FontTransParent属性来实现，格式如下： FontTransParent =Boolean如果该属性被设置为True，则前景的图形或文本可以与背景重叠显示；如果被设置为False，则背景将被前景的图形或文本覆盖.在使用以上介绍的字形属性时，应该注意以下两点： 除重叠显示（FontTransParent）属性只适用于窗体和图片框控件外，其他属性都适用于窗体和各种控件及打印机. 如果省略对象名，则指的是当前窗体，否则应加上对象名，例如： Textl .FontSize = 20 设置文本框中的字体大小 Printer. FontBold = True 在打印机上以粗体字输
16、出 设置一种属性后，该属性即开始起作用，并且不会自动撤消，只有在显式地重新设置后，才能改变该属性的值.在Visual Basic 6.0中，除通过上面所讲的属性设置窗体或控件的字形外，还可以在设计阶段通过字体对话框设置字形. 其方法是：选择需要设置字体的窗体或控件，然后激活属性窗口，单击其中的Font，再单击右端的“”将打开“字体”对话框，可在此对话框中对所选择对象的字形进行如下设置： 字体：相当于FontName属性，可在该栏中选择所需要的字体. 字形：即显示粗体或斜体. 如果选择“斜体”，则相当于FontItalic属性；如果 选择“粗体”，则相当于FontBold属性. 大小：相当于FontSize属性. 加删除线：相当于FontStrikethru属性. 加下划线：相当于FontUnderline属性.
