vb6.0如何用Collection

Question

vertex.clsPublic x, y, z As Double    '点的三维坐标
Public NO As Integer     '点号module.basPublic pArray As New Collection 
然后从文件中读取数据(大概有1700组数据)  dim p as vertex
  Do While Not EOF(1)
        Input #1, x1, y1, z1
        nCount = nCount + 1
        p.x = x1: p.y = y1: p.z = z1: p.NO = nCount
        pArray.Add p
   Loop
最后我用pArray(i).x获取第i点的x时怎么不论i是什么，pArray(i).x的值都是最后一个的x值？是不是不能这样用。急!!!

Answer 1

猴子掰玉米的故事----
dim p as vertex
  Do While Not EOF(1)
        Input #1, x1, y1, z1
        nCount = nCount + 1
        p.x = x1: p.y = y1: p.z = z1: p.NO = nCount
        pArray.Add p
   Loop

Answer 2

 p.x = x1: p.y = y1: p.z = z1: p.NO = nCount 
循环赋值,最只保留了最后一组值.P是对象,每循环一次集合 pArray中添加了一个对象P,结果集合 pArray中全是P,P的全部值只有一组,就是你看到的结果了