字符串变量赋值时存储地址的变化

      在VB6中，我们并不关心字符串的存储问题，因为系统已经为我们处理好了这个问题。先看看下面的代码：

Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Private Sub main()
    Call test1
End Sub

Private Sub test1()
    Dim a As String
    Dim g As Long
    
'    CopyMemory ByVal StrPtr(a), g, 4   '(1)
'    CopyMemory g, ByVal StrPtr(a), 4   '(2)
    
    '第一次输出，尚未对a赋值
    CopyMemory g, ByVal VarPtr(a), 4
    Debug.Print g
    
    '第二次输出，第一次对a赋值
    a = "hello"
    CopyMemory g, ByVal VarPtr(a), 4
    Debug.Print g
    
    '第三次输出，第二次对a赋值
    a = "hello"
    CopyMemory g, ByVal VarPtr(a), 4
    Debug.Print g
    
End Sub

'某一次的运行结果如下：
'0
'1813340
'1816076

      声明字符串变量后，在尚未赋值之前，这个变量指向的地址为：0，即第一次输出的结果。这个地址既不能读也不能写，即注释掉的两句会导致程序崩溃。

      字符串变量赋值后，系统会为字符串自动分配内存空间，并将a指向这个地址，这个地址在程序每次运行时会随机选取，当然也会有和上次运行时的地址相同的可能。

      如果对变量再次赋以相同的值，系统并不比较是否与前值一样，只是机械性地再次自动分配内存空间，使a指向这个新地址。这导致后两次的输出不一样。

      在vb6中，用户不必考虑字符串存储何处，只管用就好。当字符串变量赋以新值，原来分配的地址被收回，系统重新为字符串开辟新的内存地址。这个概念是不是很耳熟呢？