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属性等。
* H* u& Y& o- L　　1. 通过MsgBox函数输出
; D( |! }" d5 P. Z0 d" D( ~/ x　　了解Windows应用程序的人都知道当用户操作错误时，应用程序往往打出一个消息框来提示用户的错误，象这样：
1 b* k% L4 A' \0 q5 N　　Dim Action As Integer
& W: X  t8 r; y6 ]( K　　Action = MsgBox("单击确定键将引爆此计算机!", vbYesNo + vbCritical + vbDefaultButton2, "警告!")
　　If Action = 6 Then Explode
. C$ ^+ H. h$ V# V　　这个功能在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的返回值确定了用户的选择，程序可根据返回值做出相应的动作。
9 U4 E$ m# q! h; t+ z$ w, Q; w　　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字符宽的打印区扔到一边，用自己的方式定义了新的灵活的打印区宽度。
* m) v9 M7 m$ F$ }, F　　(3) Cls方法
, h2 W* R! ~$ L% E　　Cls也是一个古老的BASIC语句,原来它的作用总是把屏幕变成黑色，然后在左上角或左下角闪烁一个光标，Visual Basic里它的作用是清除绘图语句和Print语句产生的文字和图形。
　　语法是：object. Cls
5 z% B  T' j. ^$ ~# B　　object指清除的对象，可以是Form或Picture Box。如果object省略，通常Visual Basic都把当前的窗口作为Cls操作的对象。
; R: F, N8 }9 u0 p0 A  U1 Y　　3. Format函数
( V/ o2 y! d! o2 k$ i4 V) [　　Format函数用于制定字符串或数字的输出格式。语法是：x = Format (expression,fmt)
　　expression是所输出的内容。fmt是指输出的格式，这是一个字符串型的变量，这一项若省略的话，那么Format函数将和Str函数的功能差不多。