Dim abc(2) As Integer
公司主营业务：成都网站设计、成都做网站、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。成都创新互联公司是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。成都创新互联公司推出泾县免费做网站回馈大家。
abc = {0, 1, 2}
'或者
Dim abcd() As Integer
ReDim abcd(9)
For i As Integer = 0 To abcd.Length - 1
abcd(i) = i
Next
也可声明为字符串数组
OPCItemIDsData(j,其中一维）即可。
如果前面方法有规定，不能用二维数组的格式，那么你可以自己定义一个一维数组，将二维数组的某一维度的全部数值赋值给这个数组，在引用这个数组：
dim OPCItemIDsDataBuf(x) as ...
for i = 1 to x
OPCItemIDsDataBuf(j）=OPCItemIDsData(j,其中一维）
next i
其中x是数组的最大下标
首先打开数据源，然后使用alter table语句即可，具体范例如下：
Set cn = New ADODB.ConnectionSet rs = New ADODB.Recordsetconstr = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" 数据库路径及文件名 ""cn.Open constrDim str As Stringstr = "alter table 表名 add 字段 类型"rs.Open str, cn, adOpenStaticmsgbox"添加字段成功",vbokonly
vb.netexcel给range赋值的方法如下：
Range是对象类型，对象的赋值要加一个Set,，例如您需要的语句可以这样写：
Set M = Range("A1:I1")
这样赋值以后，M才Range类型，例如可以使用 M.Count 属性，或者 M.ClearContents 方法
如果不写Set，那么会把Range的值赋与变量（数组类型）。