1、运行效果 2、程序代码; Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long) Private Sub Form_Load() Dim i As Long Dim j As Long i = 1234 j = 4321 CopyMemory ByVal VarPtr(i), ByVal VarPtr(i) - 4, 4 Text1.Text = i End Sub