VisualBasic变量、常数和数据类型及过程概述二

　　　　常数

　　　　经常会发现代码包含一些常数值，它们一次又一次地反复出现。还可发现，代码要用到很难记住的数字，而那些数字没有明确意义。
　　　　在这些情况下，可用常数大幅度地改进代码的可读性和可维护性。常数是有意义的名字，取代永远不变的数值或字符串。尽管常数有点像变量，但不能像对变量那样修改常数，也不能对常数赋以新值。常数有两种来源：
　　　　1.内部的或系统定义的常数是应用程序和控件提供的。在“对象浏览器”中的 Visual Basic ( VB ) 、和 Visual Basic for applications ( VBA ) 对象库中列举了 Visual Basic 的常数。其它提供对象库的应用程序，如Microsoft Excel 和 Microsoft Project，也提供了常数列表，这些常数可与应用程序的对象、方法和属性一起使用。在每个 ActiveX 控件的对象库中也定义了常数。关于使用“对象浏览器”的详细信息，请参阅第九章“用对象编程”。
　　　　2.符号的或用户定义的常数是用 Const 语句来声明的。下节“创建属于自己的常数”中将说明用户定义的常数。
　　　　在 Visual Basic 中，常数名采用大小写混合的格式，其前缀表示定义常数的对象库名。来自 Visual Basic 和 Visual Basic for applications 对象库的常数以 "vb" 开头，例如vbTileHorizontal。
　　　　设计前缀时应尽力防止发生意外冲突，不能出现常数名称相同但表示不同数值的情况。即使使用了前缀，两个对象库也仍可能包含表示不同值的相同常数。在这种情况下，引用哪个常数取决于哪个对象库具有更高的优先级。关于改变对象库优先级的信息，请参阅 “引用对话框”部分。
　　　　为了绝对确保不发生常数名字冲突，可用以下语法来限定对常数的引用：
　　　　[libname.][modulename.]constname
　　　　Libname 通常是控件或库的类名。Modulename 是定义常数的模块的名字。Constname 是常数名。在对象库中定义了每个元素，并能在“对象浏览器”中查看元素。

　　　　创建属于自己的常数
　　　　声明常数的语法是：
　　　　[PublicPrivate] Const constantname[As type] = expression
　　　　参数 constantname 是有效的符号名（其规则与建立变量名的规则一样），expression 由数值常数或字符串常数以及运算符组成；但在 expression 中不能使用函数调用。
　　　　Const 语句可以表示数量、日期和时间：
　　　　Const conPi = 3.14159265358979
　　　　Public Const conMaxPlanets As Integer = 9
　　　　Const conReleaseDate = #1/1/95#
　　　　也可用 Const 语句定义字符串常数：
　　　　Public Const conVersion = "07.10.A"
　　　　Const conCodeName = "Enigma"
　　　　如果用逗号进行分隔，则在一行中可放置多个常数声明：
　　　　Public Const conPi = 3.14, conMaxPlanets = 9, _
　　　　conWorldPop = 6E+09
　　　　等号 ( = ) 右边的表达式往往是数字或文字串，但也可以是其结果为数或字符串的表达式（尽管表达式不能包含函数调用）。甚至可用先前定义过的常数定义新常数。
　　　　Const conPi2 = conPi * 2一旦已定义常数，就可将其放置在代码中，使代码更可读。例如：
　　　　Static SolarSystem (1 To conMaxPlanets)
　　　　If numPeople > conWorldPop Then Exit Sub

　　　　设定用户自定义常数的范围
　　　　和变量声明一样， Const 语句也有范围，也使用相同的规则：
　　　　　为创建仅存在于过程中的常数，请在这个过程内部声明常数。
　　　　　为创建一常数，它对模块中所有过程都有效，但对模块之外任何代码都无效，请在模块的声明段中声明常数。
　　　　　为创建在整个应用程序中有效的常数，请在标准模块的声明段中进行声明，并在 Const 前面放置 Public 关键字。在窗体模块或类模块中不能声明 Public 常数。
　　　　详细信息 关于范围的更详细信息，请参阅本章前面的“理解变量的范围”一节.

　　　　避免循环引用
　　　　由于常数可以用其它常数定义，因此必须小心，在两个以上常数之间不要出现循环或循环引用。当程序中有两个以上的公用常数，而且每个公用常数都用另一个去定义时就会出现循环 。例如：
　　　　''在 Module1 中：
　　　　Public Const conA = conB * 2　　　　''在整个应用程序
　　　　　　　　　　　　　　　　　　　　　　''中有效。
　　　　''在 Module 2：
　　　　Public Const conB = conA / 2　　　　''在整个应用程序
　　　　　　　　　　　　　　　　　　　　　　''中有效。
　　　　如果出现循环，在试图运行此应用程序时，Visual Basic 就会产生错误信息。不解决循环引用就不能运行程序。为避免出现循环，可将公共常数限制在单一模块内，或最多只存在于少数几个模块内。

　　　　数据类型
　　　　变量是用来存储值的所在处，它有名字和数据类型。变量的数据类型决定了如何将代表这些值的位存储到计算机的内存中。在声明变量时也可指定它的数据类型。所有变量都具有数据类型，以决定能够存储哪种数据。
　　　　根据缺省规定，如果在声明中没有说明数据类型，则令变量的数据类型为Variant。Variant 数据类型很像一条变色龙，它可在不同场合代表不同数据类型。当指定变量为 Variant 变量时，不必在数据类型之间进行转换，VisualBasic 会自动完成各种必要的转换。
　　　　但是，如果知道变量确实总是存储特定类型的数据，并且还声明了这种特定类型的变量，则 Visual Basic 会以更高的效率处理这个数据。例如，存储人名的变量最好表示成 String 数据类型，因为名字总是由字符组成。
　　　　除变量外，数据类型也用于其它场合。在给属性赋值时，这个值就有数据类型；函数的参数也有数据类型。事实上，在 Visual Basic 中，凡是与数据有关的东西就与数据类型有关。
　　　　你也可声明任何基本类型的数组。
　　　　详细信息 关于更详细信息，请参阅本章后面的“数组”部分。在第十五章“性能和兼容性的设计”中还将讨论通过选择数据类型来提高应用程序的性能。

　　　　声明带数据类型的变量
　　　　在使用非 Variant 变量之前，必须使用 Private、Public、Dim 或 Static 语句将变量声明为 As type。例如，下列语句分别声明了 Integer、Double、String和 Currency 类型的变量：
　　　　Private I As Integer
　　　　Dim Amt As Double
　　　　Static YourName As String
　　　　Public BillsPaid As Currency
　　　　一个声明语句可将多个声明组合起来，请看下列语句：
　　　　Private I As Integer,Amt As Double
　　　　Private YourName As String,BillsPaid As Currency
　　　　Private Test,Amount,J As Integer
　　　　注意 如果不提供数据类型，则指定变量为缺省类型。在上例中，变量 Test和 Amount 是 Variant 数据类型。如果由于其它编程语言的经验使你感到同一个声明语句中的所有变量都有相同的指定数据类型（此例中为 Integer），那么，此处的结果可能会令人感到新鲜。

　　　　Numeric 数据类型
　　　　Visual Basic 支持几种 Numeric 数据类型：Integer（整型）、Long（长整型）、Single（单精度浮点型）、Double（双精度浮点型）和 Currency（货币型）。与 Variant 类型相比，Numeric 类型占用的存储空间通常要少。
　　　　如果知道变量总是存放整数（如 12 ）而不是带小数点的数字（如 3.57），就应当将它声明为 Integer 类型或 Long 类型。整数的运算速度较快，而且比其它数据类型占据的内存要少。在 For...Next 循环内作为计数器变量使用时，整数类型尤为有用。
　　　　详细信息 关于控制结构的详细资料，请参阅本章后面的“控制结构概述”。如果变量包含小数，则可将它们声明为 Single、Double 或 Currency 变量。Currency 数据类型支持小数点右面 4 位和小数点左面 15 位；它是一个精确的定点数据类型，适用于货币计算。浮点（Single 和 Double）数比 Currency的有效范围大得多，但有可能产生小的进位误差。
　　　　注意 浮点数值可表示为 mmmEeee 或 mmmDeee ，其中 mmm 是尾数，而 eee 是指数（以 10 为底的幂）。Single 数据类型的最大正数值为3.402823E+38，或 3.4 乘以 10 的 38 次方；Double 数据类型的最大正数值是 1.79769313486232D+308 或 1.8 乘以 10 的 308 次方。用 D 将数值文字中的尾数部分和指数部分隔开，就会导致将该值作为 Double 数据类型来处理。同样，用这种方式使用 E，也会导致将该值作为 Single 数据类型来处理。

　　　　Byte 数据类型
　　　　如果变量包含二进制数，则将它声明为 Byte 数据类型的数组（本章后面的“数组”中将讨论数组）。在转换格式期间用 Byte 变量存储二进制数据就可保留数据。当 String 变量在 ANSI 和 Unicode 格式间进行转换时，变量中的任何二进制数据都会遭到破坏。在下列任何一种情况下，VisualBasic 都会自动在 ANSI 和 Unicode 之间进行转换：
　　　　　读文件时
　　　　　写文件时
　　　　　调用 DLL 时
　　　　　调用对象的方法和属性时
　　　　除一元减法外，所有可对整数进行操作的运算符均可操作 Byte 数据类型。因为 Byte 是从 0-255 的无符号类型，所以不能表示负数。因此，在进行一元减法运算时，Visual Basic 首先将 Byte 转换为符号整数。
　　　　所有数值变量都可相互赋值，也可对 Variant 类型变量赋值。 在将浮点数赋予整数之前， Visual Basic要将浮点数的小数部分四舍五入，而不是将小数部分去掉。
　　　　详细信息 关于 Unicode 和 ANSI 转换的详细信息，请参阅第十六章“国际化”。

　　　　String 数据类型
　　　　如果变量总是包含字符串而从不包含数值，就可将其声明为 String 类型。
　　　　Private S As String
　　　　然后可将字符串赋予这个变量，并用字符串函数对它进行操作。
　　　　S = "Database"
　　　　S = Left (S,4)
　　　　按照缺省规定，String 变量或参数是一个可变长度的字符串。随着对字符串赋予新数据，它的长度可增可减。 也可以声明字符串具有固定长度。可用以下语法声明一个定长字符串：
　　　　String * size
　　　　例如，为了声明一个长度为 50 字符的字符串，可用下列语句：
　　　　Dim EmpName As String * 50
　　　　如果赋予字符串的字符少于 50 个，则用空格将 EmpName 的不足部分填满。如果赋予字符串的长度太长，已不能成为定长字符串，则 Visual Basic 会直接截去超出部分的字符。
　　　　因为定长字符串用空格填充尾部多余的空间，所以在处理定长字符串时可发现，删除空格的 Trim 和 RTrim 函数是很有用的。　　　　可将标准模块中的定长字符串声明为 Public 或 Private。在窗体和类模块中，必须将定长字符串声明为 Private。
　　　　详细信息 请参阅《Visual Basic 6.0语言参考手册》中的“Ltrim、RTrim 和Trim 函数”。

　　　　交换字符串和数字
　　　　如果字符串表示数值，则可将字符串赋予数值变量。也可将数值赋予字符串变量。例如，将命令按钮、文本框和列表框放置在窗体中。在命令按钮的 Click 事件中输入下列代码。运行应用程序并单击命令按钮。
　　　　Private Sub Command1_Click ()
　　　　　　　Dim intX As Integer
　　　　　　　Dim strY As String
　　　　　　　strY = "100.23"
　　　　　　　intX = strY 　　　　　　　　　　　　　''将字符串传递给数值变量。
　　　　　　　List1.AddItem Cos (strY)　　　　　　　''将字符串中数值的余弦值。
　　　　　　　　　　　　　　　　　　　　　　　　　　''添加到列表框中。
　　　　　　　strY = Cos (strY) 　　　　　　　　　　''将余弦值传递给字符串变量。
　　　　　　　Text1.Text = strY 　　　　　　　　　　''在文本框中显示字符串。
　　　　End Sub
　　　　Visual Basic 会自动强制变量为适当的数据类型。在转换字符串和数值时要小心；如果传送字符串中的值不是数值，则在运行时会出错。

　　　　Boolean 数据类型
　　　　若变量的值只是“true/false”、“yes/no”、“on/off”信息，则可将它声明为Boolean 类型。Boolean 的缺省值为 False。在下面的例子中，blnRunning 是Boolean 变量，存储简单的 yes/no 设置。
　　　　Dim blnRunning As Boolean
　　　　　　''查看磁带是否在转。
　　　　　　If Recorder.Direction = 1 Then
　　　　　　blnRunning = True
　　　　End if

　　　　Date 数据类型
　　　　Date 和 Time 值既可包含在特定的 Date 数据类型中，又可包含在 Variant变量中。一般的 Date 特性适用于这两种类型。
　　　　详细信息 请参阅《联机手册》的“高级变量主题”中的“在 Variant 变量中存储 Date/Time 值”部分。
　　　　当其它数值数据类型转换为 Date 时，小数点左边的值表示 Date 信息，小数点右边的值则代表 Time。午夜为 0，正午为 0.5。负数表示公元 1899 年12 月 31 日之前的 Date。