VB编程:利用指针实现数组拆分-44_彭世瑜_新浪博客
原创
©著作权归作者所有:来自51CTO博客作者彭世瑜的原创作品,请联系作者获取转载授权,否则将追究法律责任
运行效果:
程序代码:
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
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章
-
VB编程:利用Object变量传递参数-21_彭世瑜_新浪博客
运行效果:程序代码:Private Sub Command1_Click() Dim i As Object Set i = Text1 i.Text = "传递参数"End Sub
python js javascript linux java