今天做了一个字符串在内存中存储的实验，实验结果见正文

Private Sub Command3_Click()

Dim s As String, s1 As String

Dim ps As Long, pv As Long, pt As Long, tmp As Long, tmp1 As Long, ps1 As Long

Dim i As Integer

s1 = "1234567890abcdefghijklmno": s = "ABCDEFGHI"

ps = StrPtr(s): pv = VarPtr(s): pt = ps - 4: ps1 = StrPtr(s1)

Print vbCrLf; vbCrLf

Print "两个字符串初始值 s:"; s; " 长度:"; LenB(s), "s1:"; s1; " 长度:"; LenB(s1); vbCrLf

Print "取字符串长度值前 StrPtr(s):"; ps; " VarPtr(s):"; pv; " ps - 4:"; pt; " tmp:"; tmp, " tmp1:"; tmp1; vbCrLf

CopyMemoryL VarPtr(tmp), pt, 4

Print "取字符串长度值后 StrPtr(s):"; ps; " VarPtr(s):"; pv; " ps - 4:"; pt; " tmp:"; tmp, " tmp1:"; tmp1; vbCrLf

CopyMemoryL VarPtr(tmp1), pv, 4

Print "取s变量地址值后 StrPtr(s):"; ps; " VarPtr(s):"; pv; " ps - 4:"; pt; " tmp:"; tmp, " tmp1:"; tmp1; vbCrLf

CopyMemoryL pv, VarPtr(ps1), 4

Print "改变s变量地址内容后 StrPtr(s):"; ps; " VarPtr(s):"; pv; " ps - 4:"; pt; " tmp:"; tmp, " tmp1:"; tmp1; vbCrLf

Print "改变s变量地址内容后两个变量值 s:"; s; " 长度:"; LenB(s), "s1:"; s1; " 长度:"; LenB(s1); vbCrLf

Dim s2 As String

s2 = s1

pv = (StrPtr(s2) - 4)

CopyMemoryL VarPtr(tmp), pv, 4

Print "s1赋s2后各项值 StrPtr(s):"; ps; " VarPtr(s):"; pv; " ps - 4:"; pt; " s2内存长度值:"; tmp; vbCrLf

Print "打印三个字符 s串:"; s; " s1串:"; s1; " s2串:"; s2

End Sub

     原来以为s字符串在内存中保存的字符长度是18，只能显示18个有效字符，但通过输出结果看，这个内存长度

值好像仅是记录原始字符串的长度，当该字符串缓冲地址发生改变后，没有人为改变那个内存长度值时，也能正常

显示出最终字符串值，看来vb取字符串时是检测到两个字节00 00结束符为止，不按内存保存的长度值来取字符串。