动态数组

Question

redim挺方便的。
链表并不是数组，而且需要指针。

Answer 1

http://www.csdn.net/expert/topic/703/703132.xml?temp=.6989557

Answer 2

Dim 糖葫芦() As ????
ReDim 糖葫芦(0)读取操作：ReDim Preserve 糖葫芦(LBound To UBound(DataAry)+1) '给数组增加一个元素，并且保留原来的值。糖葫芦(UBound(糖葫芦))=新的数据（山楂、橘子、黑枣也可以）。'很简单那，无非就是串糖葫芦（数据糖葫芦）。还有什么疑问吗？
注：VB里支持中文命名，用糖葫芦做数组名字是可以的。

Answer 3

如果不明白，看看下面的程序。
Private Sub Form_Load()
Dim 肉串() As String
ReDim 肉串(0)Open "原料.txt" For Input As #1
  Do
    ReDim Preserve 肉串(LBound(肉串) To UBound(肉串) + 1)
    Line Input #1, 肉串(UBound(肉串))
  Loop Until EOF(1)
Close #1For I = 0 To UBound(肉串)
  Text1.Text = Text1.Text & "—" & 肉串(I)
NextEnd Sub原料.txt内容：牛肉
猪肉
羊肉
死猫肉
死狗肉
死耗子肉
胡萝卜
鸡油
死人肉
鱿鱼爪
鱿鱼脖

Answer 4

哈哈！这还不够恶心呢，我们经常写这种令人做呕的程序。呵呵！以这种方式开玩笑。尤其是在一边吃饭一边写程序的时候。今天吃饭的时候我们几个死党一起改了改，比上面更恶心。Private Sub Form_Load()
Dim t肉串() As String
ReDim t肉串(0)
Dim t肉块 As StringOpen "原料.txt" For Input As #1
  Do
    Line Input #1, t肉块
    用擦鼻涕的脏手串肉串 t肉串(),t肉块
  Loop Until EOF(1)
Close #1For I = 0 To UBound(t肉串)
  Text1.Text = Text1.Text & "—" & t肉串(I)
NextEnd SubSub 擦鼻涕的脏手串肉串(p肉串() As String,p肉块 As String)
  ReDim Preserve p肉串(LBound(p肉串) To UBound(p肉串) + 1)
  p肉串(UBound(p肉串))=p肉块
End Sub原料.txt内容：疯牛肉
口蹄疫猪肉
疯羊肉
瘟鸡肉
死猫肉
死狗肉
死耗子肉
霉胡萝卜
变质鸡油
发臭的死人肉
臭鱿鱼爪
臭鱿鱼脖