您正在看的VB|VB.NET是:vb变量、常数和数据类型及过程概述(二)。 ic会自动转换类型。若想了解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 函数的信息，请参阅《Visual Basic 6.0语言参考手册》中的“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“控制面板”中的“地区设置”对话框自动使用相应的符号。

　　详细信息 请参阅《Visual Basic 6.0语言参考手册》中的 "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 ，