[原创]手把手教VB之数据结构篇（一）

Question

线性表结点的插入和删除算法'作者:Snowcloud
'插入结点
'函数名称: NodeInsert(Pos As Integer, Num As Integer, TableName As Variant, Cnt As Integer) As Boolean
'参数:      Pos As Integer要插入结点的位置,Num As Integer要插入的数值,TableName As Variant线性表名称,Cnt As Integer线性表长度
'返回值:    BooleanFunction NodeInsert(Pos As Integer, Num As Integer, TableName As Variant, Cnt As Integer) As Boolean
    '改变源线性表长度：插入结点后线性表长度加一
    ReDim Preserve TableName(UBound(TableName) + 1)
    '对线性表中第i个元素到最后一个元素的位置后移一位
    For i = (UBound(TableName)) To (Pos + 1) Step -1
        If i < 1 Or i > (UBound(TableName)) Then
        Insert = False
        Exit Function
        Else
        TableName(i) = TableName(i - 1)
        End If
    Next
    '将要插入的元素放到第i个位置
    TableName(i) = Num
    '记录改变后的线性表长度
    Cnt = UBound(TableName) + 1
    Insert = True
End Function'删除结点
'函数名称:  NodeDelete(Pos As Integer, TableName As Variant, Cnt As Integer) As Boolean
'参数:      Pos As Integer要删除结点的位置,TableName as Variant线性表名称,Cnt As Integer线性表长度
'返回值:    Boolean
Function NodeDelete(Pos As Integer, TableName As Variant, Cnt As Integer) As Boolean
    '对线性表中第i个元素到最后一个元素的位置前移一位
    For i = Pos To (UBound(TableName))
        If i < 1 Or i > (UBound(TableName)) Then
        Delete = False
        Exit Function
        Else
        TableName(i - 1) = TableName(i)
        End If
    Next
    '改变源线性表长度:删除结点后线性表长度减一
    ReDim Preserve TableName(UBound(TableName) - 1)
    '记录改变后的线性表长度
    Cnt = UBound(TableName) - 1
    Delete = True
End Function===============================================
欢迎大家发表看法，有问题的地方大家请指正，谢谢！
===============================================

Answer 1

node比较多的情况下,楼主的办法不是太慢了点吗?

Answer 2

对，在顺序存储结构的线性表中插入和删除一个数据元素，平均所需移动表中一半的元素，若表长为n则Insert,Delete的时间复杂性为O(n),所以当n很大的话，效率是十分低的。  在此只是抛砖引玉，希望大家能够学习一下数据结构，并自行的写一些算法例子，这样有助于提高。==========================
谢谢大家支持啊！
==========================