整容说文库 > 程序代码 > 教育资讯

这个问题如何解决?

来源:学生作业帮助网 编辑:整容说文库 时间:2019/10/23 06:40:39 程序代码
这个问题如何解决?程序代码
Private Sub Command1_Click()
Dim aa
aa = Array(1, 2, 3, 4)
Dim bb
'bb = Array(4, 5, 6, 7)
RtlMoveMemory bb, aa, 4
Print bb
End Sub
目的是用RTLMOVEMENORY传递一个数组的值到另一个数组,并把另一个数组在窗体上打出来
Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (dest As Any, source As Any, ByVal numBytes As Long)

Private Sub Command1_Click()
        Dim aa(4) As Byte, bb(4) As Byte
        aa(0) = 1
        aa(1) = 2
        aa(2) = 3
        aa(3) = 4
        
        CopyMemory bb(0), aa(0), 4
        'Debug.Print bb(0), bb(1), bb(2), bb(3)
        'RtlMoveMemory bb, aa, 4
        Print bb(0), bb(1), bb(2), bb(3)
End Sub
程序代码