Option Explicit
Const DATASIZE = 459
Dim glngEnrollData(DATASIZE) As Long
Dim gbytEnrollData(DATASIZE * 5) As Byte

解决方案 »

  1.   

    Option Explicit'强制先声明后使用变量
    Const DATASIZE = 459'定义常量
    Dim glngEnrollData(DATASIZE) As Long'定义数组
    Dim gbytEnrollData(DATASIZE * 5) As Byte
      

  2.   

    Option Explicit'强制先声明后使用变量
    Const DATASIZE = 459'定义常量
    Dim glngEnrollData(DATASIZE) As Long'定义数组
        是不是指定义glngEnrollData为一维数组,459个元素
    Dim gbytEnrollData(DATASIZE * 5) As Byte    再请问这一句呢
      

  3.   

    Option Explicit'强制先声明后使用变量
    Const DATASIZE = 459'定义常量
    Dim glngEnrollData(DATASIZE) As Long'定义数组
        是不是指定义glngEnrollData为一维数组,459个元素
    Dim gbytEnrollData(DATASIZE * 5) As Byte    再请问这一句呢其实就是 Dim gbytEnrollData(459 * 5) As Byte 
    也就等于 Dim gbytEnrollData(2295) As Byte 在编译时常量将被替换。
      

  4.   

    dim glngEnrollData(DATASIZE) as Long '一维数组.460个元素.
    Dim gbytEnrollData(DATASIZE * 5) As Byte '一维数组.2296个元素....................................
      

  5.   

    Option Explicit                             '强制先声明后使用变量
    Const DATASIZE = 459                        '定义常量
    Dim glngEnrollData(DATASIZE) As Long        '定义一维数组(0 - DATASIZE)
    Dim gbytEnrollData(DATASIZE * 5) As Byte    '定义一维数组(0 - DATASIZE * 5)
      

  6.   

    Option Explicit                             '强制先声明后使用变量
    Option Base 1                               '强制声明数组下标的缺省下界为1
    如果有上面这句,则
    Const DATASIZE = 459                        '定义常量
    Dim glngEnrollData(DATASIZE) As Long        '定义一维数组(1 - DATASIZE), 459个元素 
    Dim gbytEnrollData(DATASIZE * 5) As Byte    '定义一维数组(1 - DATASIZE * 5),2295个元素