给结构体中数组赋值解决方法

给结构体中数组赋值
Public   Structure   Individual
                Public   Gene()   As   Double
        End   Structure
Dim   OriPool(60)   As   Individual  
Private   Sub   Button3_Click(ByVal   sender   As   System.Object,   ByVal   e   As   System.EventArgs)   Handles   Button3.Click
                      OriPool(59).Gene(1)   ＝23
                MsgBox(OriPool(59).Gene(1))
        End   Sub
运行提示“未将对象引用设置到对象的实例”
怎么回事？？？？

[解决办法]
先分配数组空间

ReDim OriPool(59).Gene(1)
OriPool(59).Gene(1) = 23
MsgBox(OriPool(59).Gene(1))

*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码)

最新版本：20070212

http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html