28,409
社区成员




Dim a(2,3)
a(0,0)=2
a(0,1)=1
a(0,2)=2
a(0,3)=2
a(1,0)=1
a(1,1)=2
a(1,2)=1
a(1,3)=1
a(2,0)=1
a(2,1)=2
a(2,2)=1
a(2,3)=1
dd = aa(a)
MsgBox dd(1,0)
Function aa(b)
Dim cc(3,3)
For i=0 To UBound(b)
For j=0 To UBound(b,2)
k = b(i,j)-1
cc(j,k)=cc(j,k)+1
Next
Next
aa=cc
End Function