格式化输出屏幕是一个非常重要的编程部分,它使得数据可以清楚及更系统化地呈现于用户的屏幕上。在上一课中我们已经学习了如何使用逗号和一些内建函数来呈现数据。在这一课中,我们将学习如何利用Visual Basic中的格式化功能来更好地控制输出格式,。
三种最常见VB的格式函数是 Tab, Space, 与及 Format
Tab 函数的形式是 Tab (n); x
Tab 显示x 离开输出屏幕左边框 n个空格的位置。 Tab 和 x 间必须有一个分号。
.Private Sub Form_Activate
Print "我"; Tab(5); "要"; Tab(10); "学"; Tab(15); "习"; Tab(20); "Visual Basic"
Print Tab(10); "我"; Tab(15); "要"; Tab(20); "学"; Tab(25); "习"; Tab(30); "Visual Basic"
Print Tab(15); "我"; Tab(20); ; "要"; Tab(25); "学"; Tab(30); "习"; Tab(35); “Visual Basic"
End sub
范例1 的输出画面如下图12.1所示:
Space 函数跟 Tab 函数很相似.然而,它门之间有一个微小的差别. Tab (n) 是指该项目离开屏幕左边框 n个空格,Space(n) 则指定两个项目之间距离n 空格。
Private Sub Form_Activate()
Print "Visual"; Space(10); "Basic"
End Sub
在范例2 中, Visual 和 Basic 的距离是十个空格。
Format 函数拥有非常强大的格式化功能,它能以各种形式来显示数值。基本上它有两种类型的格式的功能,其中之一是内置的或预定义的格式,而另一个可以由用户定义。
Format 函数的公式如下
Format (n, “style argument”)
其中,n是一个数字,“style argument”是表中所列的风格参数。
Style argument |
说明 |
范例 |
---|---|---|
General Number |
显示的数字无需以分隔符来显示千位数。 |
Format(8972.234, “General Number”)=8972.234 |
Fixed |
显示的数字无需以分隔符来显示千位数及四舍五入到两位小数点。 |
Format(8972.2, “Fixed”)=8972.23 |
Standard |
显示的数字以分隔符来显示千位数及四舍五入到两位小数点。 |
Format(6648972.265, “Standard”)= 6,648,972.27 |
Currency |
显示的数字有货币的符号以分隔符来显示千位数及四舍五入到两位小数点。 |
Format(6648972.265, “Currency”)= $6,648,972.27 |
Percent |
转换数的百分比的形式,显示一个%符号及四舍五入到两位小数点。 |
Format(0.56324, “Percent”)=56.32 % |
范例3
Private Sub Form_Activate()
Print Format (8972.234, "General Number")
Print Format (8972.2, "Fixed")
Print Format (6648972.265, "Standard")
Print Format (6648972.265, "Currency")
Print Format (0.56324, "Percent")
End Sub
现在,运行程序,你会得到如图12.2所示的输出: