dim b() as integer '定义动态数组ba=30redim b(a) '重定义一维数组的个数
数据库类的把 计算机学过 忘了
Dim B As IntegerReDim B(a)
redim b(a)
