如何在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
       

仅有1条评论 发表评论

  1. 红日 /

    VB6中的array函数返回的是变体数组,你这个是吗

发表评论