用ARRAY定义数组也可以，只是你的定义方法及引用方法都不对。
创新互联公司-专业网站定制、快速模板网站建设、高性价比宣州网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式宣州网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖宣州地区。费用合理售后完善，10年实体公司更值得信赖。
用ARRAY无法定义二维数组，只能定义多重数组，因此不能向二维数组那样引用。
Dim PartIn, PartOut
PartIn = Array(Array(F11, F12, F13), Array(F21, F22, F23), Array(F31, F32, F33))
PartOut = Array(Array(F11F, F12F, F13F), Array(F21F, F22F, F23F), Array(F31F, F32F, F33F))
For i = 0 To 2
For j = 0 To 2
If PartIn(i)(j) = PartOut(i)(j) Then
PartIn(i)(j) = PartOut(i)(j)
Else
PartIn(i)(j) = PartIn(i)(j) "and" PartOut(i)(j)
End If
Next j
Next i
另外，为什么F11、F12、。。。不都定义成数组呢？这样用二维数组也挺方便。
Dim F(2, 2), FF(2, 2)
Dim PartIn(2, 2), PartOut(2, 2)
For i = 0 To 2
For j = 0 To 2
PartIn(i, j) = F(i, j)
PartOut(i, j) = FF(i, j)
Next j
Next i
For i = 0 To 2
For j = 0 To 2
If PartIn(i, j) = PartOut(i, j) Then
PartIn(i, j) = PartOut(i, j)
Else
PartIn(i, j) = PartIn(i, j) "and" PartOut(i, j)
End If
Next j
Next i
是这么定义的：
数组中的第一个元素的下标称为下界，最后一个元素的下标称为上界，其余的元素连续地分布在上下界之间，且数组在内存中也是用连续的区域来存储的，所以数组每维的长度不能超过Long数据类型的最大值，即264—1=263。
把VB．NET数组当作一个对象来处理，就意味着数组类型是单个引用类型，数组变量包括指向构成数组元素、数组维和数组长度等数据的指针，数组之间互相赋值但仅仅是在相互复制指针，数组继承了System名字空间的Array类。
VB．NET中的数组有两种类型：定长数组和动态数组。
扩展资料：
1、数组的使用
在’VB 6．0中，能够用For Each来循环遍历一个数组。
比如：
Dim x As Integer
F0r Each x In arrayl
Console．WriteLine(x)
Next
2、在VB．NET中能够使用For循环和数组长度来遍历一个数组。
比如：
Dim i As工nteger
F0r i=0 T0 (arrayl．Length-1)
（此处空一行）
Console．WriteLine(arrayl(1)J
Next i
'既然制定了是2维数组所以要用括号这是规定写法
'shuzu%(0, 0)获得里面的元素，第一个0代表一维，第二个0代表其中第一个元素
Dim shuzu%(,) = {{1, 2, 3}, {4, 5, 6}, {7, 8, 9}}
Dim a As Integer
a = shuzu%(0, 0)
根据你的语句，上下标是确定的，所以定义语句修改为：
Dim ary(UBound(temp), 1) As String '声明二维数组
1、vb.net的
数组定义与变量定义差不多。可以用
dim
来定义
比如:
dim
a（100）
as
integer。
也可以不定义下标
在程序中
用
redim
来定义。
如：
dim
a()
as
integer
'
'
redim
a(100)
2、vb.net中定义数组可以直接赋值。
如：
dim
a()
as
integer
={1,
2,
3,4}
