关于定义变量溢出的问题!!!

Question

我现在在ＭＯＤＵＬＥ　模块里做了如下的代码！！但数据总是过大！
运行的时候总显示大于６４ＫＢ？如何去定义！等待中：：：：：public type tag
  tagseq(4095)  as integer
  spare         as byte
  spare2(32812) as byte
end typepublic type portcom
  pspeed  as byte
  pdata   as byte
  pparity as byte
  pnot    as integer
  pspare  as string*28
end typepublic type portcont1
   comtype as integer
   comport as portcom
   portdsign as tag
end typepublic type BdGrp1
  portGrp0(3)  as portcont1
end typepublic BDMPs1(1) as BdGrp1

Answer 1

Public Type tag
  tagseq(4095)  As Integer
  spare         As Byte
  spare2(32812) As Byte
End TypePublic Type portcom
  pspeed  As Byte
  pdata   As Byte
  pparity As Byte
  pnot    As Integer
  pspare  As String * 28
End TypePublic Type portcont1
   comtype As Integer
   comport As portcom
   portdsign As tag
End TypePublic portGrp0(1, 3) As portcont1

Answer 2

ni yao 这么大的东西干什么？？
public type tag
  tagseq()  as integer
  spare         as byte
  spare2() as byte
end typepublic type portcom
  pspeed  as byte
  pdata   as byte
  pparity as byte
  pnot    as integer
  pspare  as string*28
end typepublic type portcont1
   comtype as integer
   comport as portcom
   portdsign as tag
end typepublic type BdGrp1
  portGrp0(3)  as portcont1
end typepublic BDMPs1(1) as BdGrp1
call init()private sub inittag(tag_ as tag)
redim tag_.tagseq(4095)
redim tag_.spare2(32812)
end subprivate sub initBdGrp1(bdg as BdGrp1)
  dim i as long 
  for i = 0 to 3
      call inittag(bdg.portGrp0(i).portdsign)
  next i
end subprivate sub init()
   dim i as long 
   for i = 0 to 1
       call initBdGrp1(BDMPs1(i))
   next i
end sub

Answer 3

模块里面是定义spare2() as byte 在窗体里面再redim 就可以了