VB编程：利用指针实现数组拆分-44
【摘要】
运行效果：
程序代码：
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Privat...
运行效果：
程序代码：
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Sub Form_Load()
Dim arr()
arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
Text1.Text = ""
For i = 0 To UBound(arr)
Text1.Text = Text1.Text & arr(i)
Next i
Dim str(4)
CopyMemory ByVal VarPtr(str(0)), ByVal VarPtr(arr(4)), 5 * 16 '截取数组标号第四位之后的数
ReDim Preserve arr(UBound(arr) - 5)
Text2.Text = ""
For i = 0 To UBound(arr)
Text2.Text = Text2 & arr(i) '显示前半截
Next i
Text3.Text = ""
For i = 0 To UBound(str)
Text3.Text = Text3 & str(i) '显示后半截
Next i
End Sub
文章来源: pengshiyu.blog.csdn.net，作者：彭世瑜，版权归原作者所有，如需转载，请联系作者。
原文链接：pengshiyu.blog.csdn.net/article/details/81048909
【版权声明】本文为华为云社区用户转载文章，如果您发现本社区中有涉嫌抄袭的内容，欢迎发送邮件进行举报，并提供相关证据，一经查实，本社区将立刻删除涉嫌侵权内容，举报邮箱：
cloudbbs@huaweicloud.com
- 点赞
- 收藏
- 关注作者
评论（0）