例60：使用CAllocate分配内存

建立一个控制台工程，输入如下代码： 

'为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