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进行病毒编程
利用VB平台进行编程时注意哪些问题呢?
VB 职场 编程 休闲 -
plc数据类型和Java 对照
数据类型用于指定数据元素的大小以及如何解释数据。每个指令参数至少支持一种数据类型,而有些参数支持多种数据类型。将光标停在指令的参数域上方,便可看到给定参数所支持的数据类型。形参指的是指令上标记该指令要使用的数据位置的标识符(例如:ADD 指令的IN1输入)。实参指的是包含指令要使用的数据的存储单元(含“%”字符前缀)或常量(例如,%MD400 "Number_of_Widgets")。用户指定的实
plc数据类型和Java 对照 byte数组添加数据 number最长多少位 qt 将不同的数据类型组成一个新类型 string类型的数字比较大小