vb自定义类型数组的应用