class Vector
    Private length
    Private data()
    Sub Class_Initialize()
        length=0
    End Sub
    '插入元素'
    public Function Add (byval x)
        length=length+1
        redim preserve data(length-1)
        data(length-1)=x
    End Function
    '快速展示'
    public Function display()
        dim i
        dim s
        for i=0 to length-1
            s=s & cstr(data(i)) & " "
        next
        msgbox s
    End Function
    '返回大小'
    public Function size()
        size= length
    End Function
    '获取元素'
    public Function getAt (byval pos)
        if pos<0 or pos>length-1 then 
            getAt=0
            exit Function
        end if
        getAt=data(pos)
    End Function
    '删除元素'
    public Function delAt (byval pos)
        if pos<0 or pos>length-1 then exit Function '注意退出函数的表达式'
        dim i
        for i=pos to length-2
            data(i)=data(i+1)
        next
        length=length-1
    End Function
    '插入元素'
    public Function insert (byval pos,byval elem)
        if pos<0 or pos>length-1 then exit Function 
        dim i
        length=length+1
        redim preserve data(length-1)
        for i=length-1 to pos+1 step -1
            data(i)=data(i-1)
        next
        data(pos)=elem
    End Function
end class

set v = new Vector
v.Add 1
v.Add 2
v.Add 3
v.display
v.delAt 0
v.insert 1,555
v.display