如何在vb.net中实现VB中array函数给数组赋值的功能？

在VBA或VB 6.0 中，如果要快速生成已知元素的一维或多维数组，可以使用Array函数直接赋值。

如下代码所示：

Sub QQ1722187970()
    Dim arr1
    '添加一维数组
    arr1 = Array(1, 2, 3, 4, "a", "b", "c")
    Dim arr2
    '添加二维数组
    arr2 = Array(Array(1, 2, 3), Array("a", "b", "c"))
End Sub

但是在VB.NET中，已经没有了Array函数。

在VB.NET中如果要快速生成已知元素的一维或多维数组，可以直接使用{}赋值，如下所示：

  Sub QQ1722187970()
        Dim arr1
        arr1 = {1, 2, 3}
        Dim arr2
        arr2 = {{1, 2, 3}, {"a", "b", "c"}}
        MsgBox(arr1(0))
        MsgBox(arr2(0, 2))
  End Sub