如何判断一个数组是一维数组还是二维数组？？

如何判断一个数组是一维数组还是二维数组？ 问题点数：20、回复次数：8Top

1 楼WizardBear（飞猫_重起机器）回复于 2005-05-19 12:40:30 得分 8

哦。。。  
  function   checkdimension()as   integer  
          on   error   goto   dimension2  
          ubound(array,2)  
          checkdimension=1  
          exit   function  
   
          dimension2:  
          checkdimension=2  
  end   function  
  Top

2 楼viena（维也纳N02）回复于 2005-05-19 12:52:38 得分 3

WizardBear(飞猫_重起机器)弄反了  
  出错的应该是一维Top

3 楼zyg0（影子(被评为本年度最可爱流氓）回复于 2005-05-19 12:53:00 得分 8

Private   Declare   Sub   CopyMemory   Lib   "kernel32"   Alias   "RtlMoveMemory"   (Destination   As   Any,   Source   As   Any,   ByVal   Length   As   Long)  
  Private   Declare   Function   ArrayPtr   Lib   "msvbvm60.dll"   Alias   "VarPtr"   (TargetArray()   As   Any)   As   Long  
  Private   Sub   Form_Load()  
          Dim   b(1,   2,   3,   4)   As   Byte  
           
           
          Dim   lpArray   As   Long,   lDim   As   Long  
           
          CopyMemory   lpArray,   ByVal   ArrayPtr(b()),   4  
          CopyMemory   lDim,   ByVal   lpArray,   2  
          Debug.Print   "维数   =   "   &   lDim  
  End   SubTop

4 楼WizardBear（飞猫_重起机器）回复于 2005-05-19 13:00:03 得分 0

呵呵，是反了Top

5 楼DooDu（杜霖:I want,I can(开关拉)）回复于 2005-05-19 13:10:00 得分 1

也就这两种方法了~~Top

6 楼goes_kad（钢筋混凝土）回复于 2005-05-19 13:24:17 得分 0

函数ArrayPtr是什么意思？  
   
  大家觉得哪个方法效率高些？Top

7 楼zyg0（影子(被评为本年度最可爱流氓）回复于 2005-05-19 14:01:30 得分 0

ArrayPtr获得数组的指针Top

8 楼goes_kad（钢筋混凝土）回复于 2005-05-19 14:25:09 得分 0

ok，基本明白了，谢谢大家Top

相关问题

• 数组
• checkdimension
• arrayptr
• lparray
• ldim
• copymemory
• 维数组还是二维
• dimension
• 判断一个数组是一
• byval

• 帖主：goes_kad
• WizardBear
• viena
• zyg0
• DooDu

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