2011年度计算机等级考试二级VB基础教程(11)

　　2.7 Visual Basic的输出机制

　　作为输出的对象，Visual Basic提供了标签，文本框，窗体，图片框(Picture Box)等用于输出，而且Visual Basic里也有一堆命令、属性涉及信息的输出，较常用的有：MsgBox函数，Print方法，Cls方法，Tab函数，Format函数，FontName，FontSize，FontBold，FontItalic，FontStrikethru，FontUnderline属性，CurrentX，CurrentY属性等。

　　1. 通过MsgBox函数输出

　　了解Windows应用程序的人都知道当用户操作错误时，应用程序往往打出一个消息框来提示用户的错误，象这样：

　　Dim Action As Integer

　　Action = MsgBox("单击确定键将引爆此计算机!", vbYesNo + vbCritical + vbDefaultButton2, "警告!")

　　If Action = 6 Then Explode

　　这个功能在Visual Basic里是通过MsgBox函数来实现的，这样程序员就不必自己去画一个消息框了。语法是：

　　Action = MsgBox (msg, type, title)

　　其中，msg是消息的内容，是一个字符串型的变量，type及title参数是可以省略的，type参数指定显示的按钮是什么及使用什么样的图标(这个参数往往让新程序员思考几分钟)，title参数指定消息框的标题。type参数的含义是：

　　例如：Action = MsgBox (“Are you girl?”, vbYesNo + vbQuestio“Question”)。使用这个函数时Visual Basic将产生一个标题为Question，具有问号和Yes，No按钮的消息框。作为一个函数，本质上还是要返回值的，MsgBox的返回值确定了用户的选择，程序可根据返回值做出相应的动作。

　　2. Print方法，Cls方法，Tab函数

　　(1) Print方法

　　Print 方法的语法是：object. Print expressionlist

　　object表示Print作用的对象，比如是Form或者是Picture Box，object是可以省略的，省略时的Print往往在窗体上输出。expressionlist是输出的内容，允许许多项数据的输出，在数据间可以加入“,”或”;”。加入分号将使下一数据项紧挨着上一数据项输出。而加入逗号，则Visual Basic将下一数据项在下一打印区输出，其实就是空了几个空格后再输出。两个打印区之间有14个字符的宽度，其实这也很难衡量，比如14个“W”所占的宽度大概是14个“i”所占宽度的三倍多。幸好中国日本之类的方块字所占的宽度基本上是一样的，所以较好处理一些。

　　(2) Tab函数

　　Tab函数只用在Print方法中，它用来移动下一个字符到打印位置，这将省去数空格的功夫。语法是：Tab (column)

　　Tab函数将Visual Basic自定义的14字符宽的打印区扔到一边，用自己的方式定义了新的灵活的打印区宽度。

　　(3) Cls方法

　　Cls也是一个古老的BASIC语句,原来它的作用总是把屏幕变成黑色，然后在左上角或左下角闪烁一个光标，Visual Basic里它的作用是清除绘图语句和Print语句产生的文字和图形。

　　语法是：object. Cls

　　object指清除的对象，可以是Form或Picture Box。如果object省略，通常Visual Basic都把当前的窗口作为Cls操作的对象。

　　3. Format函数

　　Format函数用于制定字符串或数字的输出格式。语法是：x = Format (expression,fmt)

　　expression是所输出的内容。fmt是指输出的格式，这是一个字符串型的变量，这一项若省略的话，那么Format函数将和Str函数的功能差不多。