为了放大效果，我用一个很大的数组进行测试。
莫插楼！

下面是MSDN对Variant的描述

测试代码如下：
Option Explicit
Private Sub Form_Load()
    Dim a() As Variant
    Dim i As Long
    Const UB As Long = 10000000
    ReDim a(UB)
    Stop
    For i = 0 To UB
        a(i) = 1
    Next
    Stop
    For i = 0 To UB
        a(i) = 9.99999
    Next
    Stop
    For i = 0 To UB
        a(i) = "str"
    Next
    Stop
    For i = 0 To UB
        a(i) = "this is long string"
    Next
    Stop
End Sub

初始化为数值1后，内存占用没有发生变化。
赋为浮点值后，也没有发生变化。

测试完毕，只是呼吁下新手们，不要因为变体型变量方便好用就滥用它，能不用就尽量不要用，养成良好的编程习惯。等你深入之后就会明白它确实是个垃圾类型，像非常强大的C/C++语言，她有着丰富的数据类型但就是没有变体，因为不需要。

此贴一定要顶，感谢楼主说的那么详细，

支持下

对于未确定数据类型的变量，变体数据类型允许以可变方式存储数据。比如，若存储不带小数点的一个较小的数值，则变体类型变量对该数值使用整型来表示，以此类推， 这些话是书上说的，这样看来，变体型也不怎么耗用内存嘛？就是效率不行，和失去对数据类型的记录，并破坏用户应用程序，而且会使应用程序调试更加困难，

啊啊~居然精了

同时发帖，

顶一个，楼主精神值得赞赏

我可以用VarType函数进行测试么？

@ 黄佐腾

怎么我监视到全部都是Boolean型的？

娘亲Google浏览器上传不了图，

VB本就不适合开发大型程序。中小型程序使用vb开发好处是便捷、高效、快速。
应用到实际开发情况中，1KW大小的变体数组几乎见不到的……（如果真要牵扯到大数据处理，肯定选择高效的c了，做成dll供vb调用），所以不必太纠结这个数据类型占用内存的情况，如今电脑都标配4GB，害怕不够用？
当然，养成良好的变成习惯也很重要。

顶。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

存取是压缩的：
Const s = "D:\Program Files\TestVBNumb\"
Dim a(), i&
Private Sub Form_Load()
ReDim a(2047)
Print "2048Null size " & Wr("2048Null")
ReDim a(1023)
Print "1024Null size " & Wr("1024Null")
For i = 0 To 1023
a(i) = CInt(i)
Next
Print "1024Int size " & Wr("1024Int")
For i = 0 To 1023
a(i) = i
Next
Print "1024Long size " & Wr("1024Long")
For i = 0 To 1023 Step 2
a(i) = CInt(i)
Next
Print "1024LongInt size " & Wr("1024LongInt")
End Sub
Function Wr(ByVal n$)
n = s & n & ".dat"
Open n For Binary As #1
Put #1, , a
Wr = Hex(LOF(1))
Close #1
End Function

用varptr测试：
Dim a, aa, b()
Private Sub Form_Load()
ReDim b(1023)
a = b
Print VarPtr(a(0)) - VarPtr(a)
Print VarPtr(aa) - VarPtr(a)
Print VarPtr(a(1)) - VarPtr(a(0))
End Sub