1. 程式人生 > >大頭鍛鍊日記3 -- vbscript靜態連結串列實現法

大頭鍛鍊日記3 -- vbscript靜態連結串列實現法

'-------------------------------  '       調 '-------------------------------  Dim TestSL,i,j,data Set TestSL=New StaticLinked                 ' MsgBox "list length is "&TestSL.Length      ' MsgBox TestSL.IsRaw                         ' TestSL.Insert 1,"A"                         '
TestSL.Insert 2,"C" TestSL.Insert 3,"D" TestSL.Insert 4,"E" TestSL.Insert 2,"B" MsgBox "list length is "&TestSL.Length      ' MsgBox TestSL.IsRaw  TestSL.Print                                ' data="" For i=0 To 9 Step 1 data=data&"Index"&i&"{Data:"&TestSL.StructArr
(i).getData&" ,Cur:index"&_ TestSL.StructArr(i).getCur& "}   "      ' Next MsgBox data  TestSL.Delete 4                             ' TestSL.Delete 3 TestSL.Print data="" For i=0 To 9 Step 1                  data=data&"Index"&i&"{Data:"&TestSL.StructArr
(i).getData&" ,Cur:index"&_     TestSL.StructArr(i).getCur& "}   "      ' Next MsgBox data