VB一维数组复制到二维数组

以下是VB中一维数组复制到二维数组的示例代码：

Dim arr1(4) As Integer '定义一维数组
Dim arr2(2, 2) As Integer '定义二维数组
Dim i, j, k As Integer
k = 0
For i = 0 To 2 '遍历二维数组的行
    For j = 0 To 2 '遍历二维数组的列
        arr2(i, j) = arr1(k) '将一维数组的元素赋值给二维数组
        k = k + 1
    Next j
Next i

上述代码中，我们首先定义了一个一维数组`arr1`和一个二维数组`arr2`，然后使用两个嵌套的循环遍历二维数组的每一个元素，并将一维数组的元素赋值给二维数组。