标题：数据类型
需求
数据类型的出现是为了把数据分成所需内存大小不同的数据，编程的时候需要用大数据的时候才需要申请大内存，就可以充分利用内存。 例如大胖子必须睡双人床，就给他双人床，瘦的人单人床就够了。
概述
根据缺省规定，如果在声明中没有说明数据类型，则令变量的数据类型为 Variant。Variant 数据类型很像一条变色龙— 它可在不同场合代表不同数据类型。当指定变量为 Variant 变量时，不必在数据类型之间进行转换，Visual Basic 会自动完成各种必要的转换。
但是，如果知道变量确实总是存储特定类型的数据，并且还声明了这种特定类型的变量，则 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），那么，此处的结果可能会令人感到新鲜。
数字型
概述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 变量存储二进制数据就可保留数据。当 String 变量在 ANSI 和 Unicode 格式间进行转换时，变量中的任何二进制数据都会遭到破坏。在下列任何一种情况下，Visual Basic 都会自动在 ANSI 和 Unicode 之间进行转换： 
读文件时
写文件时
调用 DLL 时
调用对象的方法和属性时 
除一元减法外，所有可对整数进行操作的运算符均可操作 Byte 数据类型。因为 Byte 是从 0 - 255 的无符号类型，所以不能表示负数。因此，在进行一元减法运算时，Visual Basic 首先将 Byte 转换为符号整数。
所有数值变量都可相互赋值，也可对 Variant 类型变量赋值。 在将浮点数赋予整数之前， Visual Basic要将浮点数的小数部分四舍五入，而不是将小数部分去掉。
详细信息 关于 Unicode 和 ANSI 转换的详细信息，请参阅“国际化”。
文本型
如果变量总是包含字符串而从不包含数值，就可将其声明为 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。
详细信息 请参阅语言参考中的“Ltrim、RTrim Function 和 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 会自动强制变量为适当的数据类型。在转换字符串和数值时要小心；如果传送字符串中的值不是数值，则在运行时会出错。
逻辑型
若变量的值只是“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 和 Time 值既可包含在特定的 Date 数据类型中，又可包含在 Variant 变量中。一般的 Date 特性适用于这两种类型。
详细信息 请参阅《联机手册》的“高级变量主题”中的“在 Variant 变量中存储 Date/Time 值”部分。
当其它数值数据类型转换为 Date 时，小数点左边的值表示 Date 信息，小数点右边的值则代表 Time。午夜为 0，正午为 0.5。负数表示公元 1899 年 12 月 31 日之前的 Date。
对象型
Object 变量作为 32 位（4 个字节）地址来存储，该地址可引用应用程序中或某些其它应用程序中的对象。可以随后（用 Set 语句）指定一个被声明为 Object 的变量去引用应用程序所识别的任何实际对象。
Dim objDb As Object
Set objDb = OpenDatabase ("c:\Vb5\Biblio.mdb")
在声明对象变量时，请试用特定的类，而不用一般的 Object（例如用 TextBox 而不用 Control，或者象上面的例子那样，用 Database 取代 Object）。运行应用程序之前，Visual Basic 可以决定引用特定类型对象的属性和方法。因此，应用程序在运行时速度会更快。在“对象浏览器”中列举了特定的类。
当使用其它应用程序的对象，并在“对象浏览器”中的“类”列表中列举对象时，不要用 Variant 或一般的 Object，而应声明对象。这样可确保 Visual Basic 能够识别引用的特定类型对象，在运行时解决引用问题。
详细信息 关于创建和指定对象以及对象变量的更详细信息，请参阅本章后面的“创建对象”部分。
转换类型
概述Visual Basic 提供了几种转换函数，可用来将值转换成特定数据类型。例如，用 CCur函数将值转换成 Currency 类型：
PayPerWeek = CCur (hours * hourlyPay)
转换函数 将表达式转换成 
Cbool Boolean 
Cbyte Byte 
Ccur Currency 
Cdate Date 
CDbl Double 
Cint Integer 
CLng Long 
CSng Single 
CStr String 
Cvar Variant 
CVErr Error注意对目标数据类型，传递到转换函数的值必须是有效的，否则会发生错误。例如，如果想把 Long 型数转换成 Integer 型数，那么，Long 型数必须在 Integer 数据类型的有效范围之内。
详细信息 在联机帮助中查找指定的转换函数。
变体型
概述Variant 变量能够存储所有系统定义类型的数据。如果把它们赋予 Variant 变量，则不必在这些数据的类型间进行转换； Visual Basic 会自动完成任何必要的转换。例如：
Dim SomeValue '缺省为 Variant。
SomeValue = "17" 'SomeValue包含 "17"（双字符的串）。
SomeValue = SomeValue - 15 '现在， SomeValue 包含数值 2。
SomeValue = "U" & SomeValue '现在， SomeValue 包含 "U2" （双字符的串）。
不必过多关注 Variant 变量中数据的类型就可对 Variant 变量进行操作，但须避免落入陷阱。 
如果对 Variant 变量进行数学运算或函数运算，则 Variant 必包含某个数。更详细的信息，请参阅《联机手册》中“高级变量主题”中的“变量中存储的 Numeric 值”部分。
如果正在连接两个字符串，则用 " & " 操作符而不用 " + " 操作符。更详细的信息，请参阅《联机手册》中“高级变量主题”中的“Variant 变量中存储的 Strings”部分。 
除了可以像其它标准数据类型一样操作外，Variants 还包含三种特定值：Empty，Null 和 Error。
Empty 值
有时需要知道是否已将一个值赋予所创建的变量。在赋值之前，Variant 变量具有值 Empty。值 Empty 是异于0、零长度字符串 ("") 或 Null 值的特定值。可用 IsEmpty 函数测试 Empty 值：
If IsEmpty (Z) Then Z = 0
当 Variant 变量包含 Empty 值时，可在表达式中使用它；将其作为 0 或零长度字符串来处理，这要根据表达式来定。
只要将任何值（包括 0、零长度字符串或 Null）赋予 Variant 变量，Empty 值就会消失。而将关键字 Empty 赋予 Variant 变量，就可将 Variant 变量恢复为 Empty。Null 值Variant 数据类型还可包含一特定值：Null。Null通常用于数据库应用程序，表示未知数据或丢失的数据。 由于在数据库中使用 Null 方法，Null 具有某些唯一的特性： 
对包含 Null 的表达式，计算结果总是 Null。于是说 Null 通过表达式“传播”；如果表达式的部分之值为 Null，那么整个表达式的值也为 Null。
将 Null 值、含 Null 的 Variant 变量或计算结果为 Null 的表达式作为参数传递给大多数函数，将会使函数返回 Null。
Null 值经由返回 Variant 数据类型的内在函数传播。 
也可用 Null 关键字指定 Null 值。
Z = Null
也可用 IsNull 函数测试 Variant 变量是否包含 Null 值。
If IsNull (X) And IsNull (Y) Then
Z = Null
Else
Z = 0
End If
如果将 Null 值赋予 Variant 以外的任何其它类型变量，则将出现可以捕获的错误。而将 Null 值赋予 Variant 则不会发生错误，Null 将通过包含 Variant 变量的表达式传播（尽管 Null 并不通过某些函数来传播）。可以从任何具有 Variant 返回值的函数过程返回 Null。
除非明确将 Null 赋予变量，否则变量不会设置成 Null 值，所以，如果不在应用程序中使用 Null，就不必书写测试 Null 和处理 Null 的程序。
详细信息 关于如何在表达式中使用 Null 的详细信息，请参阅语言参考的“Null”部分。Error 值在 Variant 中，Error 是特定值，指出已发生的过程中的错误状态。但是，与其它类型错误不同，这里并未发生正常的应用程序级的错误处理。因此，程序员或应用程序本身可根据 Error 值进行取舍。利用 CVErr 函数将实数转换成错误值就可建立 Error 值。
详细信息 关于如何在表达式中使用 Error 值，请参阅语言参考中的“CVErr 函数”部分。关于错误处理的信息，请参阅“调试代码和处理错误”。有关 Variant 数据类型的更详细信息，请参阅《联机手册》中的“高级变量主题”。
VB
数据类型概述以下表格显示所支持的数据类型，以及存储空间大小与范围。
数据类型 存储空间大小 范围 
Byte 1 个字节 0 到 255 
Boolean 2 个字节 True 或 False 
Integer 2 个字节 -32,768 到 32,767 
Long
(长整型) 4 个字节 -2,147,483,648 到 2,147,483,647 
Single 
(单精度浮点型) 4 个字节 负数时从 -3.402823E38 到 -1.401298E-45；正数时从 1.401298E-45 到 3.402823E38 
Double 
(双精度浮点型) 8 个字节 负数时从 -1.79769313486232E308 到 
-4.94065645841247E-324；正数时从4.94065645841247E-324 到 1.79769313486232E308 
Currency 
(变比整型) 8 个字节 从 -922,337,203,685,477.5808 到 922,337,203,685,477.5807 
Decimal 14 个字节 没有小数点时为 +/-79,228,162,514,264,337,593,543,950,335，而小数点右边有 28 位数时为 +/-7.9228162514264337593543950335；最小的非零值为 +/-0.0000000000000000000000000001 
Date 8 个字节 100 年 1 月 1 日 到 9999 年 12 月 31 日 
Object 4 个字节 任何 Object 引用 
String 
(变长) 10 字节加字符串长度 0 到大约 20 亿 
String
(定长) 字符串长度 1 到大约 65,400 
Variant
(数字) 16 个字节 任何数字值，最大可达 Double 的范围 
Variant
(字符) 22 个字节加字符串长度 与变长 String 有相同的范围 
用户自定义
（利用 Type） 所有元素所需数目 每个元素的范围与它本身的数据类型的范围相同。注意任何数据类型的数组都需要 20 个字节的内存空间，加上每一数组维数占 4 个字节，再加上数据本身所占用的空间。数据所占用的内存空间可以用数据元数目乘上每个元素的大小加以计算。例如，以 4 个 2 字节之 Integer 数据元所组成的一维数组中的数据，占 8 个字节。这 8 个字节加上额外的 24 个字节，使得这个数组所需总内存空间为 32 个字节。
包含一数组的 Variant 比单独的一个数组需要多 12 个字节。
定类，定序；定比；定距