VB基础教程：第二章第七节VB的输出机制

文章作者 100test 发表时间 2007:03:10 18:24:08
来源 100Test.Com百考试题网

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参数的含义是：

数值	符号常量	意义
0	vbOKOnly	只显示 Ok 按钮
1	vbOKCancel	显示 Ok Cancel 按钮
2	vbAbortRetryIgnore	显示 Abor Retry Ignore 按钮
3	vbYesNoCancel	显示 Yes No Cancel 按钮
4	vbYesNo	显示 Yes No 按钮
5	vbRetryCancel	显示 Retry Cancel 按钮
16	vbCritical	Stop Sign对极其重要的问题提醒用户
32	vbQuestion	Question Mark增亮没有危险的问题
48	vbExclamation	Exclamation Mark强调警告用户必须知道的事情
64	vbInformation	Information Mark可以使乏味的信息变得有趣
0	vbDefaultButton1	第一个按钮缺省
256	vbDefaultButton2	第二个按钮缺省
512	vbDefaultButton3	第三个按钮缺省

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

返回值	含义	返回值	含义
1	选择 Ok 按钮	5	选择 Ignore 按钮
2	选择 Cancel 按钮	6	选择 Yes 按钮
3	选择 Abort 按钮	7	选择 No 按钮
4	选择 Retry 按钮

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函数的功能差不多。如：

语句	输出
Format (2, “0.00”)	2.00
Format (.7, “0%”)	70%
Format (1140, “$#,##0”)	$1,140

　　简单地，fmt