如何在自定义类型中实现动态数组

我想定义如下的数据类型  
  Type   SimplexPoint  
          n   As   Integer  
          FactorValue()   As   Double  
          ObjectValue()   As   Double  
          state   As   String  
  End   Type  
   
  问题：  
  FactorValue()   定义成动态的数组（VB6的帮助文件中有这样的定义），程序中如何实现对该数组的维数和各维大小的定义。  
  程序中  
          Dim   Simplex()   As   SimplexPoint  
          ReDim   Simplex(1   To   n   +   1)  
          ReDim   Simplex.FactorValue(1   To   n   +   1,   1   To   n)  
          ReDim   Simplex.ObjectValue(1   To   n)  
  后面两行是不能执行的，提示Simplex.FactorValue中Simplex为无效限定符  
   
  这种情况该如何实现? 问题点数：20、回复次数：7Top

1 楼tmran（Rocky 爱瘦鱼）回复于 2005-04-26 20:04:43 得分 0

不懂，关注Top

2 楼Featured（我握着爱情的门票静静排队……）回复于 2005-04-26 20:16:19 得分 20

Private   Type   test  
  c   As   Integer  
  a()   As   Double  
  cc   As   Integer  
  End   Type  
   
  Private   Sub   Form_Load()  
  Dim   aa   As   test  
  Dim   max     As   Integer  
  max   =   10  
  ReDim   aa.a(1   To   max)  
  For   i   =   1   To   10  
          aa.a(i)   =   i  
          List1.AddItem   aa.a(i)  
  Next  
  End   Sub  
  测试了完全没有问题啊Top

3 楼samtyty（）回复于 2005-04-26 20:29:38 得分 0

楼上的非常感谢你  
   
  但是如果aa也定义成数组的时候就不行了，  
   
  因为我的程序需要将aa也定义成数组才方便，又没有办法解决啊Top

4 楼Featured（我握着爱情的门票静静排队……）回复于 2005-04-26 20:33:47 得分 0

ReDim   Simplex(这里你怎么没写元素).FactorValue(1   To   n   +   1,   1   To   n)  
    应该    
      ReDim   Simplex(1).FactorValue(1   To   n   +   1,   1   To   n)   之类的啊！Top

5 楼samtyty（）回复于 2005-04-26 20:39:24 得分 0

刚想到这个问题，那么这样就要循环来定义了，是不是这样啊Top

6 楼Featured（我握着爱情的门票静静排队……）回复于 2005-04-27 11:02:38 得分 0

对亚对亚！Top

7 楼Featured（我握着爱情的门票静静排队……）回复于 2005-04-27 11:02:57 得分 0

对亚对亚！Top

相关问题

• 数组
• simplex
• factorvalue
• redim
• 定义
• 实现
• aa
• 程序
• 问题
• type

• 帖主：samtyty
• Featured

• Visual Basic类图书
• Visual Basic类源码下载