dim a(2) as byte '0-2 3个dim a() as byteredim a(2) '动态设置redim Preserve a(4) '保留原值的增加数量dim a(5,2) as byte 多维数组
Dim a(10) As Integer
