建立一个控制台工程，输入如下代码：
'为10个整数元素赋值和初始化空间。
Dim p As Integer Ptr = CAllocate(10, SizeOf(Integer))
'用整数值填充内存。
For index As Integer = 0 To 9
p[index] = (index + 1) * 10
Next
'显示整数值。
For index As Integer = 0 To 9
Print p[index] ;
Next
'释放内存
Deallocate(p)
GetKey执行后输出：10 20 30 40 50 60 70 80 90 100
