Question

vb中可以把二维数组的某一列传递给一维数组吗

Answer 1

可以
用for 循环就可以了
for i=1 to ubound(arr)
brr(i)=arr(i,1)

next

追问

想编写一个函数过程，将二维数组的一列传递给函数中定义的一维数组，怎么实现不了

追答

举个例子给你,这个是把arr的第2列给brr

Sub bb()
    Dim arr(1 To 10, 1 To 4)
    For i = 1 To 10
        For j = 1 To 4
            arr(i, j) = i + j
        Next
    Next
    Dim brr()
    ReDim brr(1 To UBound(arr))
    For i = 1 To UBound(arr)
        brr(i) = arr(i, 2)
    Next
    print Join(brr, "@")
End Sub

追问

不，我想的是call bb(arr(1 to 10,1))

Sub bb(brr())
end sub
在传参时，直接把二维数组的一列传递给一维数组

追答

Dim arr(1 To 10, 1 To 4)
Dim brr()
Sub aaa()
    For i = 1 To 10
        For j = 1 To 4
            arr(i, j) = i + j
        Next
    Next
    Call bb(arr, 2)
End Sub
Sub bb(a(), b As Integer)
    ReDim brr(1 To UBound(a))
    For i = 1 To UBound(a)
        brr(i) = a(i, b)
    Next
End Sub

给你以上代码，你自己研究吧