高级变量主题

高级变量主题

使用多个同名的变量

如果不同模块中的公用变量使用同一名字，则通过同时引用模块名和变量名就可以在代码中区分它们。例如，如果有一个在 Form1 和 Module1 中都声明了的公用 Integer 变量 intX，则把它们作为 Module1.intX 和 Form1.intX 来引用便得到正确值。

为了看清这是如何工作的，在一个新工程中插入两个标准模块，并在窗体上画上三个命令按钮。

在第一个标准模块 Module1 之中声明一个变量 intX。Test 过程设置它的值：

Public intX As Integer      '声明 Module1 的 intX。
Sub Test ()
   '设置 Module1 的 intX 变量的值。
   intX = 1   
End Sub

在第二个标准模块 Module2 中声明了第二个变量 intX，它有相同的名字。又是名为 Test 的过程设置它的值：

Public intX As Integer      '声明了 Module2 的 intX。
Sub Test ()
   '设置 Module2 的 intX 变量的值。
   intX = 2   
End Sub

在窗体模块中声明了第三个变量 intX。名为 Test 的过程又一次设置它的值。

Public intX As Integer      '声明了该窗体的 intX 变量。
Sub Test ()
   ' 设置 form 中的 intX 变量值。
   intX = 3
End Sub

在三个命令按钮的 Click 事件过程中，每一个都调用了相应的 Test 过程，并用 MsgBox 来显示这三个变量的值。

Private Sub Command1_Click ()
   Module1.Test               ' 调用 Module1 中的 Test。
   MsgBox Module1.intX         ' 显示 Module1 的 intX。
End Sub

Private Sub Command2_Click ()
   Module2.Test               ' 调用 Module2 中的 Test。
   MsgBox Module2.intX         ' 显示 Module2 的 intX。
End Sub

Private Sub Command3_Click ()
   Test                     ' 调用 Form1 中的 Test。
   MsgBox intX               ' 显示 Form1 的 intX。
End Sub

运行应用程序，单击三个命令按钮中的每一个按钮。于是将看到三个公用变量被分别引用。注意在第三个命令按钮的 Click 事件过程中，在调用 Form1 的 Test 过程时不必指定 Form1.Test，在调用 Form1 的 Integer 变量的值时也不必指定 Form1.intX 。如果多个过程或变量同名，则 Visual Basic 会取变化更受限制的值，在这个例子中，就是 Form1 变量。

公用变量与局部变量的比较

在不同的范围内也可有同名的变量。例如，可有名为 Temp 的公用变量，然后在过程中声明名为 Temp 的局部变量。在过程内通过引用名字 Temp 来访问局部变量；而在过程外则通过引用名字 Temp 来访问公用变量。通过用模块名限定模块级变量就可在过程内访问这样的变量。

Public Temp As Integer
Sub Test ()
   Dim Temp As Integer
   Temp = 2                  ' Temp 的值为 2。
   MsgBox Form1.Temp         ' Form1.Temp 的值为 1。
End Sub

Private Sub Form_Load ()
   Temp = 1                  ' 将 Form1.Temp 的值设置成 1。
End Sub 
Private Sub Command1_Click ()
   Test   
End Sub

一般说来，当变量名称相同而范围不同时，局限性大的变量总会用“阴影”遮住局限性不太大的变量（即优先访问局限性大的变量）。所以，如果还有名为 Temp 的过程级变量，则它会用“阴影”遮住模块内部的公用变量 Temp。

阴影窗体属性和控件

由于阴影效应，窗体属性、控件、常数和过程皆被视为窗体模块中的模块级变量。窗体属性或控件的名称与模块级变量、常数、自定义类型或过程的名称相同是不合法的，因为它们的范围相同。

在窗体模块内，和窗体中控件同名的局部变量将遮住同名控件。因此必须引用窗体名称或 Me 关键字来限定控件，才能设置或者得到该控件的值或它的属性值。例如：

Private Sub Form_Click ()
Dim Text 1 ， BackColor
'假定该窗体有一个控件也叫做 Text1。
   Text1 = "Variable"       '变量用“阴影”遮住控件。
   Me.Text1 = "Control"       '要得到控件，必须用‘Me’限定。
   Text1.Top = 0          '导致出错！
   Me.Text1.Top = 0       '要得到控件，必须用‘Me’限定。
   BackColor = 0          '变量用“阴影”遮住属性。
   Me.BackColor = 0       '要得到窗体属性，必须用‘Me’限定。
End Sub

使用同名的变量和过程

专用模块级变量和公共模块级变量的名字也会和过程名冲突。模块中的变量不能和任何过程同名，也不能和模块中定义的类型同名。但可以和公用过程或其它模块中定义的类型或变量同名。在这种情况下，从别的模块访问这个变量时，就必须用模块名来限定。

虽然上面讨论阴影规则并不复杂，但是用阴影的方法可能会带来麻烦，而且会导致难以查找的错误。因此，对不同的变量使用不同的名称才是一种好的编程习惯。在窗体模块中应尽量使变量名和窗体中的控件名不一样。

 

 

 

 

数值在变量中的内部表示

Variant 变量维护它们所存储的数值的内部表示。这个表示将决定 Visual Basic 在执行比较操作和其它操作时如何处理这些值。将值赋予 Variant 变量时，Visual Basic 会用最紧凑的表示正确记录这个值。以后的操作可能使 Visual Basic 改变这个用于特定变量的表示。（Variant 变量不是无类型变量，而是能够随意改变类型的变量。）这些内部表示与本章前面在“数据类型”中讨论的数据类型相一致。

注意 Variant 总保持 16 位，无论其中存储了什么数据。对象、字符串和数组，在物理上并非存于 Variant 之中；在这些情况下，用四个字节的 Variant 来保持对象引用、或者字符串或数组的指针。而真正的数据存在其它地方。

很多时候，不必了解 Visual Basic 为特殊变量使用哪一种变量类型；Visual Basic 会自动转换类型。若想了解 Visual Basic 正在使用哪种变量类型，可使用 VarType 函数。

例如，如果在 Variant 变量中存储二进制值，Visual Basic 就会用 Double 内部表示。如果知道应用程序并不需要 Double 值提供的高精度（以及由此而来的低速度），那么将此值转换成 Single 甚至转换成 Currency 就可以加快计算速度：

If VarType (X) = 5 Then X = CSng (X)   '转换成单精度。

对 Array 变量，VarType 的值等于数组元素与数据类型返回值之和。例如，这个数组包含 Double 值：

Private Sub Form_Click ()
   Dim dblSample (2) As Double
   MsgBox VarType (dblSample)
End Sub

Visual Basic 的今后版本可能会增加新的 Variant 表示，所以，任何根据 VarType 函数的返回值做出判断的代码都应能适当地处理非当前定义的返回值。

详细信息 关于 VarType 函数的信息，请参阅语言参考中的“VarType 函数”。关于数组的更详细信息，请参阅本章后面的“数组”。关于转换数据类型的详细信息，请参阅本章前面的“数据类型”。

Variant 变量中存储的 Numeric 值

 

在 Variant 变量中存储整个数时，Visual Basic 使用最紧凑的表示。例如，若是存储不带小数点的微小的数值，Variant 对该值使用 Integer 表示。如果此后赋予一个较大的数，则 Visual Basic将使用 Long 值，如果这个数非常大或者有小数部分，则 Visual Basic 将使用 Double 值。

有时想对一个数使用特定表示。例如，为了在以后的计算中避免舍入误差，可能希望 Variant 变量将数值作为 Currency 存储起来。Visual Basic 提供了几种转换函数，可以用它们将值转换成指定的类型（参阅本章前面的“转换数据类型”）。例如，用 Ccur 函数可将值转换成 Currency 类型：

PayPerWeek = CCur (hours * hourlyPay)

如果 Variant 变量不含数或者不含可以解释为数的内容，则对 Variant 变量执行数学运算或函数计算就会出错。例如，不能对 'U2' 这个值进行任何算术运算，尽管它包含一个数值字符 '2'，但整个值并非合法的数。同样不能对值 1040EZ 进行任何计算，但是，可以对 +10 或 -1.7E6 进行计算，因为它们是有效的数。因此经常需要判定 Variant 变量是否包含可以当作数使用的值。IsNumeric 函数可以完成这样的任务：

Do
   anyNumber = InputBox ("Enter a number")
Loop Until IsNumeric (anyNumber)
MsgBox "The square root is: " & Sqr (anyNumber)

当 Visual Basic 将一个非数值的表示（如包含一个数的字符串）转换成数值时，它会使用地区设置（在 Windows 的“控制面板”中规定）来解释千位分隔符、小数点符号和货币符号。

于是，如果 Windows 的“控制面板”中的国家/地区设置值被设置成美国、加拿大或澳大利亚，则这两个语句将返回 True：

IsNumeric ("$100")
IsNumeric ("1,560.50")

而下面两个语句则返回 false：

IsNumeric ("DM100")
IsNumeric ("1.560,50")

但是，如果在 Windows 的“控制面板”中的国家/地区设置值被设置成德国，则情况正好相反：前两个语句返回 false，而后两个语句返回 true。

如果把包含数的 Variant 赋给字符串变量或属性，Visual Basic 自动把数的内部表示转换成字符串。如果想显式地将数转换成字符串，可以用 CStr 函数。还可以用 Format 函数将数转换成字符串，字符串包含某种格式，如货币符，千位分隔符和小数点符号。Format 函数按照 Windows“控制面板”中的“地区设置”对话框自动使用相应的符号。

详细信息 请参阅的语言参考中的 "Format 函数" 以及关于转换函数的主题。关于编写分布在国外市场的应用程序的更详细信息，请参阅“国际化”。

Variant 变量中存储的字符串

一般说来，在 Variant 变量中存储和使用字符串不会出什么问题。但是如前所述，有时在使用两个 Variant 值时，" + " 运算符的结果可能很含糊。如果两个 Variant 变量都包含数，则 " + " 运算符执行加法运算。如果两个 Variant 变量都包含字符串，则 " + " 运算符执行字符串连接。但是，如果一个值代表数，而另一个值代表字符串，则情况就很复杂了。Visual Basic 首先试图把字符串变成数。如果转换成功，那么 " + " 运算符把两者加在一起；如果不成功，则产生一个“类型不匹配”错误。

为了确保执行的动作为字符串连接，不管变量中的表示如何，都用 & 运算符。例如，以下代码：

Sub Form_Click ()
   Dim X ， Y
   X = "6"
   Y = "7"
   Print X + Y,X & Y
   X = 6
   Print X + Y,X & Y
End Sub

在窗体上产生如下结果：

67      67
13      67

注意 Visual Basic 在内部用 Unicode 存储字符串。关于 Unicode 的更详细的信息，请参阅“国际化"。

Variant 变量中存储的 Date/Time 值

Variant 变量还可以包含 Date/Time 值。有几个函数返回 Date/Time 值。例如，DateSerial 返回该年所剩的天数。

Private Sub Form_Click ()
   Dim rightnow ， daysleft ， hoursleft ， minutesleft
   rightnow = Now         'Now 返回当前的 Date 和 Time。
   daysleft = Int(DateSerial(Year(rightnow) _
   + 1, 1, 1) - rightnow)
   hoursleft = 24 - Hour (rightnow)
   minutesleft = 60 - Minute (rightnow)
   Print daysleft & " days left in the year."
   Print hoursleft & " hours left in the day."
   Print minutesleft & " minutes left in the hour."
End Sub

还可以对 Date/Time 值进行运算。通过加减一个整数来增加或减少天数；通过加减一个分数来增加或减少时间。所以，加 20 就是加 20 天，而减掉 1/24 就是减去一小时。

存储在 Variant 变量中的 Date 值的有效范围从公元 0100 年 1 月 1 日到公元 9999 年 12 月 31 日。计算 Date 时不考虑 Gregorian 历法采用之前的日期。所以如果计算 Gregorian 历法被采用那年（在英国及其殖民地为 1752 年；其它国家/地区则或早一些或晚一些）之前的日期，结果可能会不正确。

在代码中可以采用 Date/Time 文字，只要用一对 " # " 号将它们括起来，如同对字符串用一对双引号 ( "" ) 括起来一样。例如，可以将包含 Date/Time 值的 Variant 和一串表示 Date 的文字作比较：

If SomeDate > #3/6/93# Then

下面的例子将包含 Date/Time 值的 Variant 变量和一串表示 Date 和 Time 的文字相比较：

If SomeDate > #3/6/93 1:20pm# Then

如果 Date/Time 值不包括 Time，则 Visual Basic 自动将该值的 Time部分设定为午夜（一天的开始）。如果 Date/Time 值不包括 Date，则 Visual Basic 自动将该值的 Date 部分设定为公元 1899 年 12 月 30 日。

Visual Basic 接受许多种文字的 Date 和 Time 格式。下面的 Date/Time 值全部有效：

SomeDate = #3-6-93 13:20#
SomeDate = #March 27 ， 1993 1:20am#
SomeDate = #Apr-2-93#
SomeDate = #4 April 1993#

详细信息 有关用国际格式处理 Date 的信息，请参阅“国际化”。

用 IsNumeric 函数可测试一个 Variant 变量是否包含一个值，这个值可以看作有效的数值，同样，用 IsDate 函数可测试一个 Variant 变量是否包含一个值，这个值可以看作有效的 Date/Time 值。然后可用 CDate 函数将该值转换成 Date/Time值。

例如，以下代码用 IsDate 测试文本框的 Text 属性。如果属性包含被看作有效 Date 的文本，则 Visual Basic 将此文本转换成 Date 并计算到年底还有几天。

Dim SomeDate ， daysleft
If IsDate (Text1.Text) Then
   SomeDate = CDate (Text1.Text)
   daysleft = DateSerial(Year(SomeDate) + _
   1, 1, 1) - SomeDate
   Text2.Text = daysleft & " days left in the year."
Else
   MsgBox Text1.Text & " is not a valid date."
End If

详细信息 关于各种 Date 和 Time 函数的信息，请参阅的语言参考中的“Date Function”。

Variant 变量中存储的 Objects

可以将 Objects 存储在 Variant 变量中。当需要高效地处理包括 Objects 在内的各种数据类型时，这可能十分有用。例如，一个数组中的所有元素都必须具有相同的数据类型。将数组的数据类型设置成 Variant 就可将 Objects 连同其它数据类型一起存入同一个数组中。